[分享]修改标题名称最简单的修改方法

阿杰

<p><font face="Verdana">Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long<br/>Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long</font></p>
<p><font face="Verdana">Private Sub Command1_Click()<br/>&nbsp;&nbsp;&nbsp; Dim hw As Long<br/>&nbsp;&nbsp;&nbsp; hw = FindWindow(vbNullString, Text1.Text) '找到标题为Text1.text的窗口并返回句柄<br/>&nbsp;&nbsp;&nbsp; If hw = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; message = MsgBox("未找到指定窗口,检查输入是否正确", 0, "出错")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; SetWindowText hw, Text2.Text '把找到的窗口标题更改为Text2.Textr<br/>End Sub</font></p>
<p><font face="Verdana"></font>&nbsp;</p>

马大哈

<p>这个好处是只要知道句柄就可以改,跨进程都可以用.</p>
<p>&nbsp;</p>
<p>SetWindowText的本质貌似就是SendMessage+WM_SETTEXT~~~</p>