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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Rolando textos em PictureBox
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
Rolando textos em PictureBox

'No módulo:
Public Function MostrarTexto()
  Static Count As Integer
  Static Texto As String

  If Len(Texto) = 0 Then
    Count = 1
    Texto = "Rolando texto numa Picture Box!"
  End If

  Picture1.Cls
  Picture1.Print Mid$(Texto, Count); Texto;
  Count = Count + 1

  If Count > Len(Texto) Then
    Count = 1
  End If
End Function


'No Form:
'Coloque uma PictureBox e um Timer com interval=1000.
Private Sub Timer1_Timer()
  MostrarTexto
End Sub
 


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