UC知道VB findwindow 和setwindowtext的用法（拜求，谢谢了，十万火急）
来源：百度知道 编辑：UC知道 时间：2024/06/29 23:32:02
单击FORM1命令按钮“执行”，实现：调用findwindow,查找到指定标题名称的应用程序窗口的句柄；调用setwindowtext，改变窗体的标题。
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim a As String
a = FindWindow(vbNullString, Text1)
SetWindowText a, Text2
Text1.Text = ""
Text2.Text = ""
End Sub