home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / FINDFILE / FOUND.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-02-16  |  2.5 KB  |  93 lines
  1. VERSION 2.00
  2. Begin Form Found 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Files Found"
  5.    ClientHeight    =   3600
  6.    ClientLeft      =   1110
  7.    ClientTop       =   3750
  8.    ClientWidth     =   7365
  9.    Height          =   4005
  10.    Icon            =   FOUND.FRX:0000
  11.    Left            =   1050
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3600
  14.    ScaleWidth      =   7365
  15.    Top             =   3405
  16.    Width           =   7485
  17.    Begin CommandButton DeleteBtn 
  18.       Caption         =   "Delete"
  19.       Height          =   420
  20.       Left            =   3600
  21.       TabIndex        =   4
  22.       Top             =   135
  23.       Width           =   1095
  24.    End
  25.    Begin CommandButton RunBtn 
  26.       Caption         =   "Run"
  27.       Height          =   420
  28.       Left            =   2475
  29.       TabIndex        =   3
  30.       Top             =   135
  31.       Width           =   1095
  32.    End
  33.    Begin CommandButton RemoveBtn 
  34.       Caption         =   "Remove"
  35.       Height          =   420
  36.       Left            =   1350
  37.       TabIndex        =   2
  38.       Top             =   135
  39.       Width           =   1095
  40.    End
  41.    Begin CommandButton EditBtn 
  42.       Caption         =   "Edit"
  43.       Height          =   420
  44.       Left            =   225
  45.       TabIndex        =   1
  46.       Top             =   135
  47.       Width           =   1095
  48.    End
  49.    Begin ListBox FoundFiles 
  50.       Height          =   2760
  51.       Left            =   180
  52.       TabIndex        =   0
  53.       Top             =   675
  54.       Width           =   6990
  55.    End
  56. Option Explicit
  57. Sub DeleteBtn_Click ()
  58. If FoundFiles.ListIndex > -1 Then
  59.     If MsgBox("Are you sure you want to delete " & FoundFiles.Text, MB_YesNo) = IDYes Then
  60.         Kill FoundFiles.Text
  61.         FoundFiles.RemoveItem FoundFiles.ListIndex
  62.     End If
  63.     Beep
  64. End If
  65. End Sub
  66. Sub EditBtn_Click ()
  67. Dim dummy As Integer
  68. If FoundFiles.ListIndex <> -1 Then
  69.     If FileLen(FoundFiles.Text) < 64! * 1024 Then
  70.         dummy = Shell("notepad " & FoundFiles.Text, 1)
  71.     Else
  72.         MsgBox "File is too large to edit using Notepad."
  73.     End If
  74.     Beep
  75. End If
  76. End Sub
  77. Sub FoundFiles_DblClick ()
  78. RunBtn_Click
  79. End Sub
  80. Sub RemoveBtn_Click ()
  81. If FoundFiles.ListIndex > -1 Then
  82.     FoundFiles.RemoveItem FoundFiles.ListIndex
  83.     Beep
  84. End If
  85. End Sub
  86. Sub RunBtn_Click ()
  87. Dim dummy As Integer
  88. If FoundFiles.ListIndex > -1 Then
  89.     dummy = Shell(FoundFiles.Text, 1)
  90.     Beep
  91. End If
  92. End Sub
  93.