vb中FindWindow函数可以用来返回窗体的句柄。1、VB6.0中的API声明:Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long2、具体使用：dim i as longi=FindWindow（vbNullString，"窗体的标题"）注意：这里的vbNullString是空的，没有任何字符，即不传递。和""空字符串是不一样的！3、例子：有一个标题名字是计算器的窗体或软件，获取这个计算器的句柄Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Command1_Click() Dim i As Long i = FindWindow(vbNullString, "计算器") msgbox& i '显示窗体句柄End sub
