Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

51 lines (48 sloc) 1.396 kB
VERSION 5.00
Begin VB.Form frmGestionMariage
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 1605
ClientLeft = 45
ClientTop = 435
ClientWidth = 2925
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1605
ScaleWidth = 2925
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Appliquer"
Height = 375
Left = 1200
TabIndex = 2
Top = 1080
Width = 1455
End
Begin VB.TextBox Text1
Height = 375
Left = 240
TabIndex = 1
Top = 480
Width = 2415
End
Begin VB.Label Label1
Caption = "Donner de la vie :"
Height = 255
Left = 240
TabIndex = 0
Top = 240
Width = 2175
End
End
Attribute VB_Name = "frmGestionMariage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
'Vie = Text1.Text
'Player(FindPlayer(conjoint)).HP = Player(FindPlayer(conjoint)).HP + Text1.Text
End Sub
Jump to Line
Something went wrong with that request. Please try again.