Make your own free website on Tripod.com

AllApi.net

[an error occurred while processing this directive]
 
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


 
Copyright © 1998-2000, The KPD-Team.
Send mail to KPDTeam@Allapi.net with comments about this web site.
This site is located at
http://www.Allapi.net/