Using Visual Basic 5 (Platinum Edition)/vb5.iso/Code/ch07/EventForm.frm

Visual Basic Form | 1997-06-21 | 5.3 KB | 177 lines

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Event Sequence Demonstration"
   ClientHeight    =   5175
   ClientLeft      =   1140
   ClientTop       =   1245
   ClientWidth     =   6930
   LinkTopic       =   "Form1"
   ScaleHeight     =   5175
   ScaleWidth      =   6930
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdExit
      Caption         =   "Exit"
      Height          =   495
      Left            =   4500
      TabIndex        =   6
      Top             =   4560
      Width           =   1575
   End
   Begin VB.CommandButton Command1
      Caption         =   "Click here"
      Height          =   495
      Left            =   4200
      TabIndex        =   5
      Top             =   1680
      Width           =   2175
   End
   Begin VB.TextBox Text1
      Height          =   375
      Left            =   5040
      TabIndex        =   2
      Top             =   1200
      Width           =   1575
   End
   Begin VB.CommandButton cmdClear
      Caption         =   "Clear and reset"
      Height          =   495
      Left            =   4500
      TabIndex        =   1
      Top             =   3960
      Width           =   1575
   End
   Begin VB.ListBox List1
      Height          =   4935
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3375
   End
   Begin VB.Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Type or click here:"
      Height          =   255
      Left            =   3600
      TabIndex        =   4
      Top             =   1260
      Width           =   1335
   End
   Begin VB.Label Label1
      BorderStyle     =   1  'Fixed Single
      Caption         =   "The list box reports some of the events that occur to the text box and command button below, as well as the form itself."
      Height          =   735
      Left            =   3720
      TabIndex        =   3
      Top             =   240
      Width           =   2895
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim inThisEvent As Integer
Private Sub cmdClear_Click()
    List1.Clear
    inThisEvent = 0
    Text1.Text = ""
End Sub
Private Sub cmdExit_Click()
    End
End Sub
Private Sub Command1_Click()
    ShowEvent "Command1_Click"
End Sub
Private Sub Command1_GotFocus()
    ShowEvent "Command1_GotFocus"
End Sub
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
    ShowEvent "Command1_KeyDown"
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
    ShowEvent "Command1_Click"
    KeyPress
End Sub
Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)
    ShowEvent "Command1_KeyUp"
End Sub
Private Sub Command1_LostFocus()
    ShowEvent "Command1_LostFocus"
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowEvent "Command1_MouseDown"
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowEvent "Command1_MouseUp"
End Sub
Private Sub Form_Activate()
    ShowEvent "Form_Activate"
End Sub
Private Sub Form_Click()
    ShowEvent "Form_Click"
End Sub
Private Sub Form_DblClick()
    ShowEvent "Form_DblClick"
End Sub
Private Sub Form_Deactivate()
    ShowEvent "Form_Deactivate"
End Sub
Private Sub Form_GotFocus()
    ShowEvent "Form_GotFocus"
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    ShowEvent "Form_KeyDown"
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
    ShowEvent "Form_KeyPress"
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    ShowEvent "Form_KeyUp"
End Sub
Private Sub Form_Load()
    ShowEvent "Form_Load"
End Sub
Private Sub Form_LostFocus()
    ShowEvent "Form_LostFocus"
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowEvent "Form_MouseDown"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowEvent "Form_MouseUp"
End Sub
Private Sub Text1_Change()
    ShowEvent "Text1_Change"
End Sub
Sub ShowEvent(s As String)
    inThisEvent = inThisEvent + 1
    List1.AddItem inThisEvent & ": " & s
End Sub
Private Sub Text1_Click()
    ShowEvent "Text1_Click"
End Sub
Private Sub Text1_DblClick()
    ShowEvent "Text1_DblClick"
End Sub
Private Sub Text1_GotFocus()
    ShowEvent "Text1_GotFocus"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    ShowEvent "Text1_KeyDown"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    ShowEvent "Text1_KeyPress"
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    ShowEvent "Text1_KeyUp"
End Sub
Private Sub Text1_LostFocus()
    ShowEvent "Text1_LostFocus"
End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowEvent "Text1_MouseDown"
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowEvent "Text1_MouseUp"
End Sub