Programming Tool Box/SIMS_2.iso/vb_code1/iniacces/form1.frm

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