home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / various / inivx1 / form1.txt < prev    next >
Encoding:
Text File  |  1995-02-27  |  1.2 KB  |  57 lines
  1. Option Explicit
  2.  
  3. Sub Command1_Click ()
  4.     
  5.     inifile1.Default = txtDefault.Text
  6.     inifile1.Entry = txtEntry.Text
  7.     inifile1.FileName = txtFilename.Text
  8.     inifile1.Section = txtSection.Text
  9.     inifile1.Text = txtText.Text
  10.     
  11.     inifile1.Action = 1
  12.  
  13.     MsgBox inifile1.Action
  14. End Sub
  15.  
  16. Sub Command2_Click ()
  17.     inifile1.Default = txtDefault.Text
  18.     inifile1.Entry = txtEntry.Text
  19.     inifile1.FileName = txtFilename.Text
  20.     inifile1.Section = txtSection.Text
  21.     inifile1.Text = ""
  22.     
  23.     inifile1.Action = 2
  24.     
  25.     MsgBox inifile1.Action
  26.     
  27.     txtText.Text = inifile1.Text
  28.  
  29. End Sub
  30.  
  31. Sub Command3_Click ()
  32.     inifile1.Default = txtDefault.Text
  33.     inifile1.Entry = txtEntry.Text
  34.     inifile1.FileName = txtFilename.Text
  35.     inifile1.Section = txtSection.Text
  36.     inifile1.Text = txtText.Text
  37.     
  38.     inifile1.Action = 3
  39.     
  40.     MsgBox inifile1.Action
  41.     
  42. End Sub
  43.  
  44. Sub Command4_Click ()
  45.     inifile1.Default = txtDefault.Text
  46.     inifile1.Entry = txtEntry.Text
  47.     inifile1.FileName = txtFilename.Text
  48.     inifile1.Section = txtSection.Text
  49.     inifile1.Text = txtText.Text
  50.     
  51.     inifile1.Action = 4
  52.     
  53.     MsgBox inifile1.Action
  54.  
  55. End Sub
  56.  
  57.