home *** CD-ROM | disk | FTP | other *** search
/ distrib.akp.su/Programming/Vb-6+Rus/ / distrib.akp.su.tar / distrib.akp.su / Programming / Vb-6+Rus / VB98 / TEMPLATE / USERCTLS / EVENTS.CTL < prev    next >
Text File  |  1998-06-18  |  4KB  |  140 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Events 
  3.    BackColor       =   &H80000001&
  4.    ClientHeight    =   3180
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   3855
  8.    FillColor       =   &H80000005&
  9.    ScaleHeight     =   3180
  10.    ScaleWidth      =   3855
  11. End
  12. Attribute VB_Name = "Events"
  13. Attribute VB_GlobalNameSpace = False
  14. Attribute VB_Creatable = True
  15. Attribute VB_PredeclaredId = False
  16. Attribute VB_Exposed = True
  17. Private Sub UserControl_AccessKeyPress(KeyAscii As Integer)
  18.     Debug.Print "AccessKeyPress: " & KeyAscii
  19. End Sub
  20.  
  21. Private Sub UserControl_AmbientChanged(PropertyName As String)
  22.     If PropertyName = Null Or PropertyName = "" Then
  23.         Debug.Print "AmbientChanged: all"
  24.     Else
  25.         Debug.Print "AmbientChanged: " & PropertyName
  26.     End If
  27. End Sub
  28.  
  29. Private Sub UserControl_AsyncReadComplete(PropertyValue As AsyncProperty)
  30.     Debug.Print "AsyncReadComplete: " & PropertyValue.AsyncType & ", " & PropertyValue.PropertyName
  31. End Sub
  32.  
  33. Private Sub UserControl_Click()
  34.     Debug.Print "Click"
  35. End Sub
  36.  
  37. Private Sub UserControl_DblClick()
  38.     Debug.Print "DblClick"
  39. End Sub
  40.  
  41. Private Sub UserControl_DragDrop(Source As Control, x As Single, y As Single)
  42.     Debug.Print "DragDrop: " & Source.Name & ", " & x & ", " & y
  43. End Sub
  44.  
  45. Private Sub UserControl_DragOver(Source As Control, x As Single, y As Single, State As Integer)
  46.     Debug.Print "DragOver: " & Source.Name & ", " & x & ", " & y & ", " & State
  47. End Sub
  48.  
  49. Private Sub UserControl_EnterFocus()
  50.     Debug.Print "EnterFocus"
  51. End Sub
  52.  
  53. Private Sub UserControl_ExitFocus()
  54.     Debug.Print "ExitFocus"
  55. End Sub
  56.  
  57. Private Sub UserControl_GotFocus()
  58.     Debug.Print "GotFocus"
  59. End Sub
  60.  
  61. Private Sub UserControl_Initialize()
  62.     Debug.Print "Initialize"
  63. End Sub
  64.  
  65. Private Sub UserControl_InitProperties()
  66.     Debug.Print "InitProperties"
  67. End Sub
  68.  
  69. Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
  70.     Debug.Print "KeyDown: " & KeyCode & ", " & Shift
  71. End Sub
  72.  
  73. Private Sub UserControl_KeyPress(KeyAscii As Integer)
  74.     Debug.Print "KeyPress: " & KeyAscii
  75. End Sub
  76.  
  77. Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
  78.     Debug.Print "KeyUp: " & KeyCode & ", " & Shift
  79. End Sub
  80.  
  81. Private Sub UserControl_LostFocus()
  82.     Debug.Print "LostFocus"
  83. End Sub
  84.  
  85. Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  86.     Debug.Print "MouseDown: " & Button & ", " & Shift & ", " & x & ", " & y
  87. End Sub
  88.  
  89. Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  90.     Debug.Print "MouseMove: " & Button & ", " & Shift & ", " & x & ", " & y
  91. End Sub
  92.  
  93. Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  94.     Debug.Print "MouseUp: " & Button & ", " & Shift & ", " & x & ", " & y
  95. End Sub
  96.  
  97. Private Sub UserControl_OLECompleteDrag(Effect As Long)
  98.     Debug.Print "OLECompleteDrag: " & Effect
  99. End Sub
  100.  
  101. Private Sub UserControl_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
  102.     Debug.Print "OLEDragDrop: " & Effect & ", " & Button & ", " & x & ", " & y
  103. End Sub
  104.  
  105. Private Sub UserControl_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
  106.     Debug.Print "OLEDragOver: " & Effect & ", " & Button & ", " & x & ", " & y
  107. End Sub
  108.  
  109. Private Sub UserControl_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
  110.     Debug.Print "OLEGiveFeedback: " & Effect & ", " & DefaultCursors
  111. End Sub
  112.  
  113. Private Sub UserControl_OLESetData(Data As DataObject, DataFormat As Integer)
  114.     Debug.Print "OLESetData: " & DataFormat
  115. End Sub
  116.  
  117. Private Sub UserControl_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
  118.     Debug.Print "OLEStartDrag: " & AllowedEffects
  119. End Sub
  120.  
  121. Private Sub UserControl_Paint()
  122.     Debug.Print "Paint"
  123. End Sub
  124.  
  125. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  126.     Debug.Print "ReadProperties"
  127. End Sub
  128.  
  129. Private Sub UserControl_Resize()
  130.     Debug.Print "Resize: " & Width & ", " & Height
  131. End Sub
  132.  
  133. Private Sub UserControl_Terminate()
  134.     Debug.Print "Terminate"
  135. End Sub
  136.  
  137. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  138.     Debug.Print "WriteProperties"
  139. End Sub
  140.