home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_tools
/
vbabk
/
vba_ini.frm
< prev
next >
Wrap
Text File
|
1994-07-03
|
7KB
|
261 lines
VERSION 2.00
Begin Form VBA_Ini
BorderStyle = 3 'Fixed Double
Caption = "Ini Functions"
ClientHeight = 2835
ClientLeft = 825
ClientTop = 2220
ClientWidth = 7365
Height = 3240
Left = 765
LinkTopic = "Form1"
ScaleHeight = 2835
ScaleWidth = 7365
Top = 1875
Width = 7485
Begin OptionButton Option1
Caption = "Ini Delete Section"
Height = 255
Index = 11
Left = 4440
TabIndex = 21
Top = 2520
Width = 2055
End
Begin OptionButton Option1
Caption = "Win Ini Delete Section"
Height = 255
Index = 10
Left = 4440
TabIndex = 20
Top = 2280
Width = 2295
End
Begin OptionButton Option1
Caption = "Ini Delete Entry"
Height = 255
Index = 9
Left = 4440
TabIndex = 19
Top = 2040
Width = 2055
End
Begin OptionButton Option1
Caption = "Win Ini Delete Entry"
Height = 255
Index = 8
Left = 4440
TabIndex = 18
Top = 1800
Width = 2055
End
Begin OptionButton Option1
Caption = "Ini Flush"
Height = 255
Index = 7
Left = 2280
TabIndex = 17
Top = 2520
Width = 2055
End
Begin OptionButton Option1
Caption = "Win Ini Flush"
Height = 255
Index = 6
Left = 2280
TabIndex = 16
Top = 2280
Width = 2055
End
Begin OptionButton Option1
Caption = "Ini Put"
Height = 255
Index = 5
Left = 2280
TabIndex = 15
Top = 2040
Width = 2055
End
Begin OptionButton Option1
Caption = "Win Ini Put"
Height = 255
Index = 4
Left = 2280
TabIndex = 14
Top = 1800
Width = 2055
End
Begin OptionButton Option1
Caption = "Ini Get All"
Height = 255
Index = 3
Left = 120
TabIndex = 13
Top = 2520
Width = 2055
End
Begin OptionButton Option1
Caption = "Ini Get"
Height = 255
Index = 2
Left = 120
TabIndex = 12
Top = 2280
Width = 2055
End
Begin OptionButton Option1
Caption = "Win Ini Get All"
Height = 255
Index = 1
Left = 120
TabIndex = 11
Top = 2040
Width = 2055
End
Begin OptionButton Option1
Caption = "Win Ini Get"
Height = 255
Index = 0
Left = 120
TabIndex = 10
Top = 1800
Width = 2055
End
Begin TextBox IniValue
Height = 285
Left = 5040
TabIndex = 5
Text = "IniValue"
Top = 1320
Width = 2055
End
Begin TextBox IniEntry
Height = 285
Left = 5040
TabIndex = 4
Text = "Fonts"
Top = 960
Width = 2055
End
Begin TextBox IniSection
Height = 285
Left = 5040
TabIndex = 3
Text = "Fonts"
Top = 600
Width = 2055
End
Begin TextBox IniFileName
Enabled = 0 'False
Height = 285
Left = 5040
TabIndex = 2
Text = "BKMA.Ini"
Top = 240
Width = 2055
End
Begin CheckBox WinIni
Caption = "Win Ini"
Enabled = 0 'False
Height = 255
Left = 3840
TabIndex = 1
Top = 240
Width = 1095
End
Begin TextBox Section
Height = 1335
Left = 120
ScrollBars = 2 'Vertical
TabIndex = 0
Text = "Ini Section"
Top = 360
Width = 3495
End
Begin Label Label2
Caption = "Ini Viewer"
Height = 255
Left = 120
TabIndex = 9
Top = 120
Width = 1935
End
Begin Label Label1
Caption = "Value"
Height = 255
Index = 2
Left = 3840
TabIndex = 8
Top = 1320
Width = 855
End
Begin Label Label1
Caption = "Entry"
Height = 255
Index = 1
Left = 3840
TabIndex = 7
Top = 960
Width = 855
End
Begin Label Label1
Caption = "Section"
Height = 255
Index = 0
Left = 3840
TabIndex = 6
Top = 600
Width = 855
End
End
Sub IniFail ()
MsgBox "Unexpected error.", 16, "Failed to write"
IniSuccess
End Sub
Sub IniSuccess ()
End Sub
Sub Option1_Click (Index As Integer)
WinIni = False
Select Case Index
Case 0
WinIni = 1
Section.Text = WinIniGet(iniSection, IniEntry)
Case 1
WinIni = 1
Section.Text = WinIniGetAll(iniSection)
Case 2
Section.Text = IniGet(iniSection, IniEntry, iniFilename)
Case 3
Section.Text = IniGetAll(iniSection, iniFilename)
Case 4
WinIni = 1
If WinIniPut(iniSection, IniEntry, iniValue) Then IniSuccess Else IniFail
Case 5
If IniPut(iniSection, IniEntry, iniValue, iniFilename) Then IniSuccess Else IniFail
Case 6
WinIni = 1
WinIniFlush
Case 7
IniFlush iniFilename
Case 8
WinIni = 1
WinIniDel iniSection, IniEntry
IniSuccess
Case 9
IniDel iniSection, IniEntry, iniFilename
Case 10
WinIni = 1
IniWinDelSect iniSection
Case 11
IniDelSect iniSection, iniFilename
End Select
End Sub