Visual Basic 6.0 translation

Showing posts with label Marquee Title Bar. Show all posts
Showing posts with label Marquee Title Bar. Show all posts

Monday, February 13, 2012

VB 6.0 Marquee TitleBar Caption

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

الموضوع : عمل عنوان للفورم متحرك من اليمين الى اليسار
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 .


Visual Basic Online Course

vb6 (63) Application Development (45) Visual Basic Online Course (45) Online Visual Basic Course (44) Visual Basic Help (44) Visual Basic Programming (42) IT Jobs (39) VB6 developer (38) Visual Basic Course (38) Visual Basic 6.0 (26) Microsoft Visual Basic 6.0 (25) VB6.0 (24) Visual Basic Programmers (24) vb 6.0 (24) visual basic programming tutorial (19) Third lesson (16) Source code download for Visual Basic 6.0 (14) Source code for Visual Basic 6.0 (10) visual basic tutorial (9) Visual Basic 6 (5) Visual Basic Courses (5) Lesson 3 (4) VB 0.6 - TreeView control (4) VB 0.6 With TreeView Control (4) VB6 Course (3) Create ActiveX (2) How to automate MS-Access from Visual Basic 6.0 (2) Add controls at runtime (1) Back up your Database (1) Change ActiveX icon (1) Change screen resolution (1) Create FTP (1) Crystal Reports 4.6 (1) Crystl32.ocx could not be loaded (1) DataGrid Columns re-size (1) Date Calculation (1) DateAdd Function (1) DateDiff function (1) FTP (1) Marquee Title Bar (1) Marquee VB 6.0 TitleBar (1) Method 'Action' of object 'CrystalCtrl' Failed (1) Microsoft Access with Visual Basic 6.0 (1) OpenSchema method (1) Save File Using CommonDilog (1) Track Database path (1) VB 0.6 - Registry (1) VB 0.6 With Registry Editor (1) VB 6.0 Access (1) VB 6.0 OOP (1) VB6 Access2003 ADO Like % (1) VB6 Add Date (1) VB6 Add Time (1) VB6 Date calculation (1) VB6 Subtract Date (1) Visual Basic Remote (1) Win7 (1) Windows7 (1) ms access networking details (1) remote Visual Basic DB (1) rounded and transparent forms (1) vb 0.6 style (1) vb 6.0 Remote Database (1)