VB 6.0 Marquee TitleBar Caption

بسم الله الرحمن الرحيم

vb6 Marquee Titlebar

الموضوع : عمل عنوان للفورم متحرك من اليمين الى اليسار

Marquee Title Bar Text From Right To Left

مشروع جديد VB 0.6

اضافة فورم عليها Timer1 + Tetxt1 + Command1 + Command2

الاكواد :

Form_Load :

Command1.Caption = "Start"
Command2.Caption = "Exit"
Text1.Text = "الجملة التى تظهر فى العنوان"

Command2_Click() مفتاح الخروج من البرنامج  Unload Me

Command1_Click()Me.Caption = Text1.Text & Space(15)

اضافة 15 مسافه بعد العنوان لكى نراه يتحرك و يمكن تغيير المسافه

Timer1.Interval = 50

سرعة الحركة = 50 نبضه فى الثانيه مكن تقليلها لتزيد اكثر أو ويادتها لكى تقل السرعه

If Command1.Caption = "Start" Then
Command1.Caption = "Stop"
Timer1.Enabled = True
Else
Command1.Caption = "Start"
Timer1.Enabled = False
End If

Timer1_Timer()    Me.Caption = Right$(Me.Caption, Len(Me.Caption) - 1) & Left$(Me.Caption, 1)

هذا يتكرر مع كل 1 نبضه من الـ Timer حيث أول حرف من الجمله أو الكلمه يصبح اخر حرف و يليه و يليه حتى تجد الجملة أو الكلمه تغير مكانها و ذلك اثناء حركتها لأنها موضوعه فى حدث Timer1 .

الرابط MediaFire

Visual Basic 6.0 Lessons, Tricks, Tutorials and help links :

- Automate MS-Access Database in Visual Basic 6.0 though a network

- Visual Basic 6.0 Analog Clock

- Visual Basic 6.0 Temperature Convertor

- Visual Basic 6.0, MS-Access 2003 and Crystal Reports - Phone book

- Visual Basic 6.0, MS-Access 2003 Database and DataGrid

- Visual Basic 6.0  FTP full application source code

- Visual Basic 6.0 Color Picker tool source code

• vb6 MSDN CD1 CD2 full free download