home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form FSWindow
- Caption = "Form1"
- ClientHeight = 3195
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 4680
- Icon = "FSWindow.frx":0000
- LinkTopic = "Form1"
- ScaleHeight = 3195
- ScaleWidth = 4680
- StartUpPosition = 3 'Windows Default
- Attribute VB_Name = "FSWindow"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Public Event KeyDown(keyCode As Integer, Shift As Integer)
- Public Event KeyPress(KeyAscii As Integer)
- Public Event KeyUp(keyCode As Integer, Shift As Integer)
- Public Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- Public Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- Public Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- Public Event Click()
- Public Event DblClick()
- Public Event Paint()
- 'Events
- Private Sub Form_KeyDown(keyCode As Integer, Shift As Integer)
- RaiseEvent KeyDown(keyCode, Shift)
- End Sub
- Private Sub Form_KeyPress(KeyAscii As Integer)
- RaiseEvent KeyPress(KeyAscii)
- End Sub
- Private Sub Form_KeyUp(keyCode As Integer, Shift As Integer)
- RaiseEvent KeyUp(keyCode, Shift)
- End Sub
- Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- RaiseEvent MouseDown(Button, Shift, X, Y)
- End Sub
- Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
- RaiseEvent MouseMove(Button, Shift, X, Y)
- End Sub
- Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- RaiseEvent MouseUp(Button, Shift, X, Y)
- End Sub
- Private Sub Form_Click()
- RaiseEvent Click
- End Sub
- Private Sub Form_DblClick()
- RaiseEvent DblClick
- End Sub
- Private Sub Form_Paint()
- RaiseEvent Paint
-
- End Sub
- Private Sub Form_Resize()
- RaiseEvent Paint
- End Sub
-