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