Scritta scorrevole
Da Gambas-it.org - Wikipedia.
Versione del 9 feb 2012 alle 16:33 di Vuott (Discussione | contributi)
Gli esempi qui riportati sono estratti da interventi di vari iscritti al Forum riguardanti il medesimo argomento.
1° esempio (prevede la presenza dell'oggetto speciale Timer):
Titolo As String Public Sub Button1_Click() Titolo = String(30, " ") & "Questa e' una stringa scorrevole" Timer1.Enabled = True End Public Sub Timer1_Timer() Titolo = Mid(Titolo, 2) & Left(Titolo, 1) TextBox1.Text = Titolo End
2° esempio (da Ceskho. Prevede la presenza dell'oggetto speciale Timer):
da_scorrere As String = "Questa stringa scorre" i As Integer = 0 Public Sub Form_Open() Me.Center Timer1.Start End Public Sub Form_Close() Timer1.Stop End Public Sub Timer1_Timer() Inc i Label1.Text = Mid(da_scorrere, i, 10) End
3° esempio
molto ingegnoso e simpatico questo esempio proposto da Milio, del quale potete scaricare il sorgente qui:
txtscorrevole-0.0.1.tar.gz