Programming Tool Box/SIMS_2.iso/vb_tools/vbabk/vba_ini.frm

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