VB6.0如何SET已打开窗口的控件?
时间: 2024-02-25 10:54:22 浏览: 21
在 VB6.0 中,如果你想 SET 已打开窗口的控件,你可以使用 FindWindow 函数和 FindWindowEx 函数来获取窗口的句柄,然后使用 SendMessage 函数或 PostMessage 函数向窗口发送消息来 SET 控件的属性。
以下是一个示例代码,它使用 FindWindow 函数和 FindWindowEx 函数来获取窗口的句柄,然后使用 SendMessage 函数来 SET 控件的文本属性:
```
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Dim hWnd As Long
Dim hWndEdit As Long
Dim sText As String
' 获取窗口句柄
hWnd = FindWindow(vbNullString, "窗口标题")
' 获取编辑框句柄
hWndEdit = FindWindowEx(hWnd, 0, "Edit", vbNullString)
' 设置编辑框的文本
sText = "要设置的文本"
SendMessage hWndEdit, WM_SETTEXT, 0, ByVal sText
```
注意,这只是一个示例代码,并不能保证适用于所有情况。在实际应用中,你需要根据具体情况进行调整。