home *** CD-ROM | disk | FTP | other *** search
/ Microsoft DirectX SDK 7.0 / Dx7.bin / DXF / samples / multimedia / vbsamples / d3drm / src / rmcontrol / fswindow.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-03  |  2.0 KB  |  59 lines

  1. VERSION 5.00
  2. Begin VB.Form FSWindow 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    Icon            =   "FSWindow.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3195
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  'Windows Default
  13. Attribute VB_Name = "FSWindow"
  14. Attribute VB_GlobalNameSpace = False
  15. Attribute VB_Creatable = False
  16. Attribute VB_PredeclaredId = True
  17. Attribute VB_Exposed = False
  18. Public Event KeyDown(keyCode As Integer, Shift As Integer)
  19. Public Event KeyPress(KeyAscii As Integer)
  20. Public Event KeyUp(keyCode As Integer, Shift As Integer)
  21. Public Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  22. Public Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  23. Public Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  24. Public Event Click()
  25. Public Event DblClick()
  26. Public Event Paint()
  27. 'Events
  28. Private Sub Form_KeyDown(keyCode As Integer, Shift As Integer)
  29.     RaiseEvent KeyDown(keyCode, Shift)
  30. End Sub
  31. Private Sub Form_KeyPress(KeyAscii As Integer)
  32.     RaiseEvent KeyPress(KeyAscii)
  33. End Sub
  34. Private Sub Form_KeyUp(keyCode As Integer, Shift As Integer)
  35.     RaiseEvent KeyUp(keyCode, Shift)
  36. End Sub
  37. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  38.     RaiseEvent MouseDown(Button, Shift, X, Y)
  39. End Sub
  40. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  41.     RaiseEvent MouseMove(Button, Shift, X, Y)
  42. End Sub
  43. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  44.     RaiseEvent MouseUp(Button, Shift, X, Y)
  45. End Sub
  46. Private Sub Form_Click()
  47.     RaiseEvent Click
  48. End Sub
  49. Private Sub Form_DblClick()
  50.     RaiseEvent DblClick
  51. End Sub
  52. Private Sub Form_Paint()
  53.     RaiseEvent Paint
  54.             
  55. End Sub
  56. Private Sub Form_Resize()
  57.     RaiseEvent Paint
  58. End Sub
  59.