home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
iniacces
/
form1.frm
next >
Wrap
Text File
|
1993-08-17
|
5KB
|
198 lines
VERSION 2.00
Begin Form Form1
Caption = "Form1"
ClientHeight = 4080
ClientLeft = 924
ClientTop = 1656
ClientWidth = 6468
Height = 4524
Left = 864
LinkTopic = "Form1"
ScaleHeight = 4080
ScaleWidth = 6468
Top = 1272
Width = 6588
Begin TextBox txtDefault
Height = 288
Left = 3840
TabIndex = 12
Text = "Text1"
Top = 3360
Width = 2292
End
Begin TextBox txtText
Height = 288
Left = 3840
TabIndex = 7
Text = "value"
Top = 2760
Width = 2292
End
Begin TextBox txtEntry
Height = 288
Left = 3840
TabIndex = 6
Text = "myentry"
Top = 2160
Width = 2292
End
Begin TextBox txtSection
Height = 288
Left = 3840
TabIndex = 5
Text = "mysection"
Top = 1560
Width = 2292
End
Begin TextBox txtFilename
Height = 288
Left = 3840
TabIndex = 4
Text = "myfile.ini"
Top = 960
Width = 2292
End
Begin CommandButton Command4
Caption = "Remove Section"
Height = 492
Left = 1080
TabIndex = 3
Top = 2880
Width = 2172
End
Begin CommandButton Command3
Caption = "Remove Entry"
Height = 492
Left = 1080
TabIndex = 2
Top = 2280
Width = 2172
End
Begin CommandButton Command2
Caption = "Read"
Height = 492
Left = 1080
TabIndex = 1
Top = 1680
Width = 2172
End
Begin IniFile IniFile1
Default = ""
Entry = "Test"
FileName = "wfd.ini"
Left = 5760
Section = "test1"
Text = "IniFile1"
Top = 360
End
Begin CommandButton Command1
Caption = "Write"
Height = 492
Left = 1080
TabIndex = 0
Top = 1080
Width = 2172
End
Begin Label Label1
Caption = "Default"
Height = 252
Index = 4
Left = 3840
TabIndex = 13
Top = 3120
Width = 1692
End
Begin Label Label1
Caption = "Text"
Height = 252
Index = 3
Left = 3840
TabIndex = 11
Top = 2520
Width = 1692
End
Begin Label Label1
Caption = "Entry"
Height = 252
Index = 2
Left = 3840
TabIndex = 10
Top = 1920
Width = 1692
End
Begin Label Label1
Caption = "Section"
Height = 252
Index = 1
Left = 3840
TabIndex = 9
Top = 1320
Width = 1692
End
Begin Label Label1
Caption = "Filename"
Height = 252
Index = 0
Left = 3840
TabIndex = 8
Top = 720
Width = 1692
End
End
Option Explicit
Sub Command1_Click ()
inifile1.Default = txtDefault.Text
inifile1.Entry = txtEntry.Text
inifile1.FileName = txtFilename.Text
inifile1.Section = txtSection.Text
inifile1.Text = txtText.Text
inifile1.Action = 1
MsgBox inifile1.Action
End Sub
Sub Command2_Click ()
inifile1.Default = txtDefault.Text
inifile1.Entry = txtEntry.Text
inifile1.FileName = txtFilename.Text
inifile1.Section = txtSection.Text
inifile1.Text = ""
inifile1.Action = 2
MsgBox inifile1.Action
txtText.Text = inifile1.Text
End Sub
Sub Command3_Click ()
inifile1.Default = txtDefault.Text
inifile1.Entry = txtEntry.Text
inifile1.FileName = txtFilename.Text
inifile1.Section = txtSection.Text
inifile1.Text = txtText.Text
inifile1.Action = 3
MsgBox inifile1.Action
End Sub
Sub Command4_Click ()
inifile1.Default = txtDefault.Text
inifile1.Entry = txtEntry.Text
inifile1.FileName = txtFilename.Text
inifile1.Section = txtSection.Text
inifile1.Text = txtText.Text
inifile1.Action = 4
MsgBox inifile1.Action
End Sub