注意,我希望得到的是form的本身,不是它的caption属性。
比如:
知道form1的句柄为12345,怎样才能通过这个句柄对form1或它上面的控件的相关属性进行设置。
网上资料显示FindControl函数可以返回控件,但查找下来,发现它所需的参数可能是ID(索引号),而不是hwnd,如果您知道它在VB中的用法,烦请您介绍一下,列出该函数的定义及参数意义。
比如:
知道form1的句柄为12345,怎样才能通过这个句柄对form1或它上面的控件的相关属性进行设置。
网上资料显示FindControl函数可以返回控件,但查找下来,发现它所需的参数可能是ID(索引号),而不是hwnd,如果您知道它在VB中的用法,烦请您介绍一下,列出该函数的定义及参数意义。
Dim xx As Control
For Each xx In Form1
Debug.Print xx.Name
Next
上面那段代码可以遍历Form1里的所有控件并输出控件的Name属性。
Dim frm As Form
Set frm = FindForm(hWnd)
If Not frm Is Nothing Then
MsgBox frm.Caption
End If
End SubPrivate Function FindForm(ByVal hWnd As Long) As Form
Dim frm As Form
For Each frm In VB.Forms
If frm.hWnd = hWnd Then
Set FindForm = frm
Exit Function
End If
Next
End Function