Testo scorrevole

[bepi]

salve ragazzi
mi sapete dire in modo dettagliato la procedura per inserire testo
scorrevole in una form di vb???

Grazie

[hal1961]

Post by bepi
mi sapete dire in modo dettagliato la procedura per inserire testo
scorrevole in una form di vb???

E' archived content, sbrigati a leggerlo prima che lo cancellino:

Tip 155: Scrolling Text Horizontally in a Picture Box Control
http://msdn.microsoft.com/archive/en-us/dnarvbtips/html/msdn_msdn155.asp

[Andrea]

On Wed, 04 Feb 2004 18:14:42 GMT, "bepi" <***@libero.it> wrote:

Una LABEL, un TIMER:

----------------
Private Sub Form_Load()
Striscia = " Copyright Andrea Agresti, Inc. 4 maggio 2003."
Posizione = 1
Timer1.Interval=200
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Right(Striscia, Len(Striscia) - Posizione) +
Left(Striscia, Posizione)
Posizione = Posizione + 1
If Posizione > Len(Striscia) Then Posizione = 1
End Sub
-------------

[GiuseppeD]

Post by bepi
salve ragazzi
mi sapete dire in modo dettagliato la procedura per inserire testo
scorrevole in una form di vb???

Ho trovato del vecchio codice per testo scorrevole( delle label) in Access,
presumo che in vb potrebbero andare
Considera che l'evento timer in VB6 non è presente.

Private Sub Form_Timer()

Dim i As Integer, x As Integer
For i = 1 To 250
For x = 1 To 1
DoEvents
Next x
lblBy.Left = IIf(lblBy.Left > 2 * 100, lblBy.Left - 0.3 * 100, 0.3 * 500)
'movimento OLE da destra verso sinistra
lblBy2.Left = IIf(lblBy2.Left < 100 * 100, lblBy2.Left + 0.3 * 100, 0.3 *
500) 'movimento OLE da sinistra verso destra
lblBy3.Top = IIf(lblBy3.Top < 100 * 100, lblBy3.Top + 0.15 * 100, 0.3 * 500)
'movimento OLE dal Top verso il basso
lblBy4.Top = IIf(lblBy2.Top > 2 * 100, lblBy4.Top - 0.15 * 100, 0.3 * 500)
'movimento OLE dal basso verso il Top
Next i

'Esegui codice
End Sub

Ave
giuseppeD

[bepi]

grazie a tutti

[Gick]

io avevo fatto un comodo ocx mi pare che ci sia sul mio sito ciao se non c'è
dimmelo che te lo sendo per email

picture + label + timer

non va a scatti e a i colori personalizzabili :-)

Post by bepi
grazie a tutti

--
___________________
Gick
***@gick.cjb.net
http://www.gick.cjb.net