how can i use getclassinfo registerwindowex...............
Printable View
how can i use getclassinfo registerwindowex...............
GetClassInfo example :
VB Code:
Private Type WNDCLASS style As Long lpfnwndproc As Long cbClsextra As Long cbWndExtra2 As Long hInstance As Long hIcon As Long hCursor As Long hbrBackground As Long lpszMenuName As String lpszClassName As String End Type Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Private Declare Function GetClassInfo Lib "user32" Alias "GetClassInfoA" (ByVal hInstance As Long, ByVal lpClassName As String, lpWndClass As WNDCLASS) As Long Private Sub Form_Paint() 'KPD-Team 1999 'URL: [url]http://www.allapi.net/[/url] 'E-Mail: [email][email protected][/email] Dim WC As WNDCLASS 'Get class info GetClassInfo ByVal 0&, "BUTTON", WC 'Clear the form Me.Cls 'Print the retrieved information to the form Me.Print "The button's default background is set to color-number:" + Str$(GetSysColor(WC.hbrBackground)) End Sub
thank for the code ... but what i need is get all the classinfo of scicalc "calculator" info buttons and the text box ..... how can i use getclassinfo or registerclass
thanks