Get classname for some controls using GetClassName API
Get classname for some controls using GetClassName API
Rate Get classname for some controls using GetClassName API
(1(1 Vote))
Dim classlength As Long
Private Sub Check1_Click()
ClassName = Space(128)
classlength = GetClassName(Check1.hWnd, ClassName, 128)
ClassName = Left(ClassName, classlength)
MsgBox "Check1 class is: " & ClassName
End Sub
Private Sub Command1_Click()
ClassName = Space(128)
classlength = GetClassName(Command1.hWnd, ClassName, 128)
ClassName = Left(ClassName, classlength)
MsgBox "Command1 button class is: " & ClassName
End Sub
Private Sub Form_Load()
ClassName = Space(128)
classlength = GetClassName(Form1.hWnd, ClassName, 128)
ClassName = Left(ClassName, classlength)
MsgBox "Form1 window class is: " & ClassName
End Sub
Private Sub Option1_Click()
ClassName = Space(128)
classlength = GetClassName(Option1.hWnd, ClassName, 128)
ClassName = Left(ClassName, classlength)
MsgBox "Option1 class is: " & ClassName
End Sub
Get classname for some controls using GetClassName API Comments
No comments yet — be the first to post one!
Post a Comment