|
|
Private Type WNDCLASSEX
cbSize As Long
style As Long
lpfnWndProc As Long
cbClsExtra As Long
cbWndExtra As Long
hInstance As Long
hIcon As Long
hCursor As Long
hbrBackground As Long
lpszMenuName As String
lpszClassName As String
hIconSm As Long
End Type
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetClassInfoEx Lib "user32" Alias "GetClassInfoExA" (ByVal hInstance As Long, ByVal lpClassName As String, lpWndClass As WNDCLASSEX) As Long
Private Sub Form_Paint()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim WCX As WNDCLASSEX
'Set the structure size
WCX.cbSize = Len(WCX)
'Get the class info
GetClassInfoEx ByVal 0&, "EDIT", WCX
'Clear the screen
Me.Cls
Me.Print "This is the default cursor for a textbox:"
'Draw the default cursor on the form
DrawIcon Me.hdc, 0, 15, WCX.hCursor
End Sub
|
|
