|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Rolando textos em PictureBox
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
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
|
|
|
|
|
