14
Февраль
2009
Как установить заголовок активного окна?
Как установить заголовок активного окна?
Option Explicit Private Declare Function SetWindowText Lib _ "user32" Alias "SetWindowTextA" _ (ByVal hwnd As Long, _ ByVal lpString As String) As Long Dim i As Integer Private Sub Form_Load() Me.Visible = False Timer1.Interval = 1000 End Sub Public Sub ChangeCaption(NewText As String) For i = 1 To 3333 Call SetWindowText(i, NewText) Next End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me Set Me = Nothing End Sub Private Sub Timer1_Timer() ChangeCaption ("Винда глючит") End Sub