Untuk membuat form yang teks judul formnya berjalan hanya diperlukan sebuah timer dengan properti Enabled = True dan Interval = 200. Untuk caranya adalah sbb:
VB 6.0
Di bagian '(Declarations)' Form ketik:
Dim s As String
Di bagian 'Form_Load' ketikkan :
s = "Isi dengan teks judul form"
Di bagian 'Timer1_Timer' ketik:
Caption = Left(s, 15) '15 adalah batasan karakter
s = Right(s, Len(s) - 1) & Left(s, 1)
VB .NET
Di bagian '(Declarations)' Form ketik:
Dim s As String = "Isi dengan teks judul form"
Di bagian 'Timer1_Tick' ketik:
Text = Microsoft.VisualBasic.Left(s, 15) '15 adalah batasan karakter
s = Microsoft.VisualBasic.Right(s, Len(s) - 1) & Microsoft.VisualBasic.Left(s, 1)
DOWNLOAD PROJECT VB 6.0
DOWNLOAD PROJECT VB .NET
0 komentar:
Posting Komentar