home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
PROGRAM
/
VISBASIC
/
MSMEGA
/
INICONSA.ZIP
/
SAMPLE.FRM
next >
Wrap
Text File
|
1993-06-23
|
4KB
|
153 lines
VERSION 2.00
Begin Form Form1
BorderStyle = 3 'Fixed Double
Caption = "IniCon Sample"
ClientHeight = 1815
ClientLeft = 1275
ClientTop = 2160
ClientWidth = 5055
ControlBox = 0 'False
Height = 2220
Left = 1215
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1815
ScaleWidth = 5055
Top = 1815
Width = 5175
Begin CommandButton Command3
Caption = "DeleteParm"
Height = 375
Left = 3360
TabIndex = 10
Top = 1200
Width = 1455
End
Begin CommandButton Command2
Caption = "DeleteApp"
Height = 375
Left = 3360
TabIndex = 9
Top = 720
Width = 1455
End
Begin CommandButton Command1
Caption = "Exit"
Height = 375
Left = 3360
TabIndex = 8
Top = 240
Width = 1455
End
Begin TextBox Text4
Height = 285
Left = 1320
TabIndex = 6
Top = 1320
Width = 1695
End
Begin TextBox Text3
Height = 285
Left = 1320
TabIndex = 4
Top = 960
Width = 1695
End
Begin TextBox Text2
Height = 285
Left = 1320
TabIndex = 2
Top = 600
Width = 1695
End
Begin Init Init1
Application = ""
Filename = ""
Height = 420
Left = 120
Parameter = ""
Top = 1320
Value = ""
Width = 420
End
Begin TextBox Text1
Height = 285
Left = 1320
TabIndex = 0
Top = 240
Width = 1695
End
Begin Label Label4
Alignment = 1 'Right Justify
Caption = "Value:"
Height = 255
Left = 240
TabIndex = 7
Top = 1365
Width = 975
End
Begin Label Label3
Alignment = 1 'Right Justify
Caption = "Parameter:"
Height = 255
Left = 240
TabIndex = 5
Top = 1005
Width = 975
End
Begin Label Label2
Alignment = 1 'Right Justify
Caption = "Application:"
Height = 255
Left = 120
TabIndex = 3
Top = 645
Width = 1095
End
Begin Label Label1
Alignment = 1 'Right Justify
Caption = "Filename:"
Height = 255
Left = 240
TabIndex = 1
Top = 285
Width = 975
End
End
Sub Command1_Click ()
End
End Sub
Sub Command2_Click ()
Text3.Text = ""
Text4.Text = ""
Init1.DeleteApp = True
End Sub
Sub Command3_Click ()
Text4.Text = ""
Init1.DeleteParm = True
End Sub
Sub Text1_Change ()
Init1.Filename = Text1.Text
Text4.Text = Init1.Value
End Sub
Sub Text2_Change ()
Init1.Application = Text2.Text
Text4.Text = Init1.Value
End Sub
Sub Text3_Change ()
Init1.Parameter = Text3.Text
Text4.Text = Init1.Value
End Sub
Sub Text4_Change ()
Init1.Value = Text4.Text
End Sub