Ecco come far scorrere il titolo del form, può essere usato anche per texbox e label…

Richiamato con:

1
Call TitleScroll(Form1)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub TitleScroll(frm As Form)
Dim X As Integer
Dim current As Variant
Dim Y As String
Y = frm.Caption
frm.Caption = ""
frm.Show
For X = 0 To Len(Y)
If X = 0 Then
frm.Caption = ""
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo done
Else:
End If
frm.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
done:
Next X

End Sub

Tags: , , , , ,

Articoli vicini: Prissimo articolo Riprodurre suoni midi, wave, mp3, avi, mpeg
Articolo precedente [VB6] Split leggere le righe