11
Февраль
2009
Как измененить заголовок любого окна?
Как измененить заголовок любого окна?
'Напишите внутри TextBox1 наименование окна, которое вы хотите изменить. 'Напишите внутри TextBox2 новый заголовок окна Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (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, lParam As Any) As Long Private Const WM_SETTEXT = &HC Dim target_hwnd As Long Dim target_name As String Dim new_caption As String Private Sub Command1_Click() target_name = Text1.Text target_hwnd = FindWindow(vbNullString, target_name) If target_hwnd = 0 Then MsgBox "Окно не найдено" Exit Sub End If new_caption = Text2.Text SendMessage target_hwnd, WM_SETTEXT, 0, ByVal new_caption End Sub Private Sub Form_Load() Text1.Text = "Form1" Text2.Text = "Новый заголовок" End Sub