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 / frmMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-07-12  |  1.7 KB  |  56 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "CoverTracks v1.00"
  4.    ClientHeight    =   2175
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4695
  8.    Icon            =   "frmMain.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2175
  11.    ScaleWidth      =   4695
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton cmdClear 
  14.       Caption         =   "&Clear list"
  15.       Height          =   495
  16.       Left            =   1200
  17.       TabIndex        =   2
  18.       Top             =   840
  19.       Width           =   1935
  20.    End
  21.    Begin VB.CommandButton cmdQuit 
  22.       Caption         =   "&Quit"
  23.       Height          =   495
  24.       Left            =   1200
  25.       TabIndex        =   1
  26.       Top             =   1440
  27.       Width           =   1935
  28.    End
  29.    Begin VB.CommandButton cmdAdd 
  30.       Caption         =   "&Add a file"
  31.       Height          =   495
  32.       Left            =   1200
  33.       TabIndex        =   0
  34.       Top             =   240
  35.       Width           =   1935
  36.    End
  37. Attribute VB_Name = "frmMain"
  38. Attribute VB_GlobalNameSpace = False
  39. Attribute VB_Creatable = False
  40. Attribute VB_PredeclaredId = True
  41. Attribute VB_Exposed = False
  42. Private Sub cmdAdd_Click()
  43.     Me.Hide
  44.     frmAdd.Show
  45. End Sub
  46. Private Sub cmdClear_Click()
  47.     If MsgBox("Warning: This will clear your log file, leaving all your existing 'unwanted' files vulnerable!!! Are you SURE you want to do this?", vbYesNo + vbQuestion, "WARNING") = vbYes Then
  48.         Open "C:\Windows\FileLog.ini" For Output As #1
  49.         Close #1
  50.         MsgBox "The log has been cleared.", vbOKCancel + vbInformation, ""
  51.     End If
  52. End Sub
  53. Private Sub cmdQuit_Click()
  54.     End
  55. End Sub
  56.