查看: 6  |  回复: 0
  VB6 代码管家-取窗体类名
楼主
发表于 2024年12月8日 22:26
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpclassname As String, ByVal nMaxCount As Long) As Long
Private Sub Command1_Click()
	Dim leiming As String
	leiming = Space(255)
	GetClassName 句柄, leiming, 255
	Text1.Text = leiming
End Sub
'------------------------------------根据句柄来取得类名


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