Visual Basic FAQ

Как измененить заголовок любого окна?

'Напишите внутри 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

Запись опубликована on 11.02.2009 at 9:00 и размещена в рубрике: Формы. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.