home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD90708182000.psc / frmAdd.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-07-12  |  1.8 KB  |  67 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAdd 
  3.    Caption         =   "Add"
  4.    ClientHeight    =   2460
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4335
  8.    Icon            =   "frmAdd.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2460
  11.    ScaleWidth      =   4335
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton cmdCancel 
  14.       Caption         =   "&Cancel"
  15.       Height          =   495
  16.       Left            =   2280
  17.       TabIndex        =   3
  18.       Top             =   1200
  19.       Width           =   1335
  20.    End
  21.    Begin VB.CommandButton cmdOK 
  22.       Caption         =   "&OK"
  23.       Height          =   495
  24.       Left            =   720
  25.       TabIndex        =   2
  26.       Top             =   1200
  27.       Width           =   1335
  28.    End
  29.    Begin VB.TextBox tbFile 
  30.       Height          =   375
  31.       Left            =   1200
  32.       TabIndex        =   1
  33.       Top             =   330
  34.       Width           =   2655
  35.    End
  36.    Begin VB.Label lblFile 
  37.       Caption         =   "File Name:"
  38.       Height          =   255
  39.       Left            =   240
  40.       TabIndex        =   0
  41.       Top             =   360
  42.       Width           =   1095
  43.    End
  44. Attribute VB_Name = "frmAdd"
  45. Attribute VB_GlobalNameSpace = False
  46. Attribute VB_Creatable = False
  47. Attribute VB_PredeclaredId = True
  48. Attribute VB_Exposed = False
  49. Private Sub cmdCancel_Click()
  50.     Unload Me
  51. End Sub
  52. Private Sub cmdOK_Click()
  53.     Open "C:\Windows\FileLog.ini" For Append As #1
  54.         Temp = ""
  55.         For I = 1 To Len(tbFile.Text)
  56.             T = Asc(Mid(tbFile.Text, I, 1))
  57.             Temp = Temp + Chr(T + 100)
  58.         Next I
  59.         Print #1, Temp
  60.     Close #1
  61.     Me.Hide
  62.     frmMain.Show
  63. End Sub
  64. Private Sub Form_Unload(Cancel As Integer)
  65.     frmMain.Show
  66. End Sub
  67.