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

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Como fazer um texto rolar
Postada em 29/3/2002 por MAX Softs      Clique aqui para enviar email para o autor  dave.mlg@ig.com.br
Em um form, insira uma figura e um timer, simplesmente, copie-e-cole esse código:

Public Function ShowMessage()
Static MsgPtr As Integer
Static Mytext As String
If Len(Mytext) = 0 Then
MsgPtr = 1
Mytext = "http://www.maxsofts.hpg.com.br - " 'Seu texto
End If
Picture1.Cls
Picture1.Print Mid$(Mytext, MsgPtr); Mytext;
' Isso pode ser usado com outros objetos que aceitem
'CLS e PRINT
MsgPtr = MsgPtr + 1
If MsgPtr > Len(Mytext) Then
MsgPtr = 1
End If
End Function

Private Sub Timer1_Timer()
    ShowMessage
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