Tools/WinSN5.0Ver.iso/PVb5.0/VB/TEMPLATE/USERCTLS/EVENTS.CTL

Text File | 1997-01-24 | 4.2 KB | 140 lines

VERSION 5.00
Begin VB.UserControl Events
   BackColor       =   &H80000001&
   ClientHeight    =   3180
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3855
   FillColor       =   &H80000005&
   ScaleHeight     =   3180
   ScaleWidth      =   3855
End
Attribute VB_Name = "Events"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub UserControl_AccessKeyPress(KeyAscii As Integer)
    Debug.Print "░┤╧┬╖├╬╩╝ⁿú║" & KeyAscii
End Sub

Private Sub UserControl_AmbientChanged(PropertyName As String)
    If PropertyName = Null Or PropertyName = "" Then
        Debug.Print "╕─▒Σ╡─╗╖╛│ú║╦∙╙╨"
    Else
        Debug.Print "╕─▒Σ╡─╗╖╛│ú║" & PropertyName
    End If
End Sub

Private Sub UserControl_AsyncReadComplete(PropertyValue As AsyncProperty)
    Debug.Print "╥∞▓╜╢┴═Ω│╔ú║" & PropertyValue.AsyncType & ", " & PropertyValue.PropertyName
End Sub

Private Sub UserControl_Click()
    Debug.Print "╡Ñ╗≈"
End Sub

Private Sub UserControl_DblClick()
    Debug.Print "╦½╗≈"
End Sub

Private Sub UserControl_DragDrop(Source As Control, x As Single, y As Single)
    Debug.Print "═╧╖┼ú║" & Source.Name & ", " & x & ", " & y
End Sub

Private Sub UserControl_DragOver(Source As Control, x As Single, y As Single, State As Integer)
    Debug.Print "═╧╣²ú║" & Source.Name & ", " & x & ", " & y & ", " & State
End Sub

Private Sub UserControl_EnterFocus()
    Debug.Print "╜°╚δ╜╣╡π"
End Sub

Private Sub UserControl_ExitFocus()
    Debug.Print "═╦│÷╜╣╡π"
End Sub

Private Sub UserControl_GotFocus()
    Debug.Print "╡├╡╜╜╣╡π"
End Sub

Private Sub UserControl_Initialize()
    Debug.Print "│⌡╩╝╗»"
End Sub

Private Sub UserControl_InitProperties()
    Debug.Print "│⌡╩╝╗»╩⌠╨╘"
End Sub

Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
    Debug.Print "╝ⁿ░┤╧┬ú║" & KeyCode & ", " & Shift
End Sub

Private Sub UserControl_KeyPress(KeyAscii As Integer)
    Debug.Print "░┤╝ⁿú║" & KeyAscii
End Sub

Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
    Debug.Print "╝ⁿ╠º╞≡ú║" & KeyCode & ", " & Shift
End Sub

Private Sub UserControl_LostFocus()
    Debug.Print "╩º╚Ñ╜╣╡π"
End Sub

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Debug.Print "╩≤▒Ω░┤╧┬ú║" & Button & ", " & Shift & ", " & x & ", " & y
End Sub

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Debug.Print "╩≤▒Ω╥╞╢»ú║" & Button & ", " & Shift & ", " & x & ", " & y
End Sub

Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Debug.Print "╩≤▒Ω╠º╞≡ú║" & Button & ", " & Shift & ", " & x & ", " & y
End Sub

Private Sub UserControl_OLECompleteDrag(Effect As Long)
    Debug.Print "OLE ═Ω│╔═╧╢»ú║" & Effect
End Sub

Private Sub UserControl_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Debug.Print "OLE ═╧╖┼ú║" & Effect & ", " & Button & ", " & x & ", " & y
End Sub

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)
    Debug.Print "OLE ═╧╣²ú║" & Effect & ", " & Button & ", " & x & ", " & y
End Sub

Private Sub UserControl_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
    Debug.Print "OLE ╖┤└íú║" & Effect & ", " & DefaultCursors
End Sub

Private Sub UserControl_OLESetData(Data As DataObject, DataFormat As Integer)
    Debug.Print "OLE ╔Φ╓├╩²╛▌ú║" & DataFormat
End Sub

Private Sub UserControl_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    Debug.Print "OLE ┐¬╩╝═╧╢»ú║" & AllowedEffects
End Sub

Private Sub UserControl_Paint()
    Debug.Print "╗µ╓╞"
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Debug.Print "╢┴╩⌠╨╘"
End Sub

Private Sub UserControl_Resize()
    Debug.Print "╕─▒Σ┤≤╨íú║" & Width & ", " & Height
End Sub

Private Sub UserControl_Terminate()
    Debug.Print "╜ß╩°"
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Debug.Print "╨┤╩⌠╨╘"
End Sub