查看: 7  |  回复: 0
  VB6 代码管家-取父句柄
楼主
发表于 2024年12月8日 22:25
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
	Label1.Caption = FindWindow(vbNullString, "该窗体的标题名")
End Sub
'------------------------------------------根据标题取句柄
'========================方法一========================

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
	Text1 = FindWindow("Notepad", vbNullString) '"Notepad"为记事本的类名
End Sub
'注意如果有两个相同类名的窗体,则返回最靠前窗体的句柄
'-----------------------------------------根据类名取句柄
'========================方法二========================


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