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) هذا يتكرر م...