by Karthikeyan (187 Submissions)
Category: Windows API Call/Explanation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 18th January 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Get classname for some controls using GetClassName API
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