VB6 更改指定視窗的名稱

'宣告API

'此API是要查找窗口句柄
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'此API 是要 設定視窗名稱
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

'程式碼
Private Sub Command1_Click()
    Dim hwnd As Long
    hwnd = FindWindow(vbNullString, Text1.Text) 'Text1 = 要改的窗口名稱
    If hwnd = 0 Then '偵測是否窗口有開啟
        MsgBox "未找到窗口", 0 + 48, "錯誤"   '如果沒有就顯示MsgBox
    End If
    SetWindowText hwnd, Text2.Text '設定Text2為名稱
End Sub

開源專案: 點此下載