home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / spyshow.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  1.8 KB  |  62 lines
  1. VERSION 4.00
  2. Begin VB.Form SpyShow 
  3.    Caption         =   "File Event Spy"
  4.    ClientHeight    =   1005
  5.    ClientLeft      =   1020
  6.    ClientTop       =   1515
  7.    ClientWidth     =   8745
  8.    Height          =   1410
  9.    Left            =   960
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1005
  12.    ScaleWidth      =   8745
  13.    Top             =   1170
  14.    Width           =   8865
  15.    Begin VB.ListBox lstEvents 
  16.       BeginProperty Font 
  17.          name            =   "Courier New"
  18.          charset         =   0
  19.          weight          =   400
  20.          size            =   8.25
  21.          underline       =   0   'False
  22.          italic          =   0   'False
  23.          strikethrough   =   0   'False
  24.       EndProperty
  25.       Height          =   480
  26.       IntegralHeight  =   0   'False
  27.       Left            =   0
  28.       TabIndex        =   0
  29.       Top             =   0
  30.       Width           =   8745
  31.    End
  32.    Begin VB.Menu mnuPopup 
  33.       Caption         =   "Popup"
  34.       Visible         =   0   'False
  35.       Begin VB.Menu mnuClear 
  36.          Caption         =   "&Clear"
  37.       End
  38.       Begin VB.Menu mnuAbout 
  39.          Caption         =   "About Spy..."
  40.       End
  41.    End
  42. Attribute VB_Name = "SpyShow"
  43. Attribute VB_Creatable = False
  44. Attribute VB_Exposed = False
  45. Option Explicit
  46. 'When the containing form is resized, resize the ListBox
  47. 'to fit
  48. Private Sub Form_Resize()
  49.     lstEvents.Move 0, 0, ScaleWidth, ScaleHeight
  50. End Sub
  51. Private Sub lstEvents_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  52.     If Button = vbRightButton Then
  53.         PopupMenu mnuPopup, vbPopupMenuCenterAlign Or vbPopupMenuRightButton
  54.     End If
  55. End Sub
  56. Private Sub mnuAbout_Click()
  57.     About.Show vbModal
  58. End Sub
  59. Private Sub mnuClear_Click()
  60.     lstEvents.Clear
  61. End Sub
  62.