|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Código para animar a barra de título de um formulario
|
 |
|
|
|
Postada em 19/6/2004 por Lucas
lucasroot@hotmail.com
'Vc vai precisar de um timer com 100 ms
Dim iAnim As Integer
Dim TamStr As Integer
Const Msg As String = "Mensagem de Teste"
Private Sub Form_Load()
iAnim = 1
TamStr = Len(Msg)
Call Timer1_Timer
End Sub
Private Sub Timer1_Timer()
'Img1 é a ImageBox e ImgLst1 é a ImageList.
Form1.Caption = "Teste - " & Mid(Msg, 1, iAnim)
iAnim = iAnim + 1
If iAnim > TamStr Then
iAnim = 1
End If
End Sub
|
|
|
|
|
