USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página