查看: 115  |  回复: 0
  VB6
楼主
发表于 2024年10月22日 20:52

新建From1(窗体),新建Command1(按钮CommandButton),Label1(Label),Option1(OptionButton),代码:

Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal ClassName As String, ByVal classlength As Long) As Long

Dim ClassName As String
Dim classlength As Long

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 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 Check1_Click()
    ClassName = Space(128)
    classlength = GetClassName(Check1.hWnd, ClassName, 128)
    ClassName = Left(ClassName, classlength)
    MsgBox "Check1 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

运行结果:

Form1 window class is: ThunderFormDC
Command1 button class is: ThunderCommandButton
Check1 class is: ThunderCheckBox
Option1 class is: ThunderOptionButton

小知识:Thunder是微软收购的以前软件公司的名字。

您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com