Welcome, Guest: Register On Nairaland / LOGIN! / Trending / Recent / NewStats: 3,191,553 members, 7,944,652 topics. Date: Monday, 09 September 2024 at 08:58 PM |
Nairaland Forum / Science/Technology / Programming / Help Me With Marque In Vb (1683 Views)
Fingerprint Authentication In Vb.net Application / How To Deploy Application With Access Database In Vb.net 2008 / Post Ur Vb 6.0 Questions Here (2) (3) (4)
Help Me With Marque In Vb by eedu247: 9:31am On Oct 17, 2009 |
Please help me with vb code to make label to scroll on a form. |
Re: Help Me With Marque In Vb by sweetpawn2: 7:36am On Oct 19, 2009 |
Place a label,a timer and command button on the form. In the timer event procedure write this: label1.left=label1.left - 10 if label1.left< -label1.width then label1.left= form.width end if Write this in button click event: timer1.interval=100 timer1.enabled=true label1.left= form.width When you run, click the button & label will scroll from right to left! |
Re: Help Me With Marque In Vb by eedu247: 7:14am On Oct 20, 2009 |
Thanks sweet pawn ,but it moves 4rm left2right i change lefts 2 rights yet it refuse 2wrk. Could u pls giv me steps2 put date and time on my form.GOD blessing |
Re: Help Me With Marque In Vb by sweetpawn2: 11:29am On Oct 20, 2009 |
Hello Edu! Seems you want your marquee to move from right to left. I will modify the code I posted above to suit your need. To add date and time to your form , add another label to the form and write this code in the timer event: label2.caption= Now |
Re: Help Me With Marque In Vb by sweetpawn2: 11:29am On Oct 20, 2009 |
Hello Edu! Seems you want your marquee to move from right to left. I will modify the code I posted above to suit your need. To add date and time to your form , add another label to the form and write this code in the timer event: label2.caption= Now |
Re: Help Me With Marque In Vb by s4: 11:04am On Oct 22, 2009 |
Add the follow code to a form, then add a timer on the form and run 'This code move your form caption from left to 'right. Dim str As String Dim leng As Integer Private Sub form_load() str = "Anil Iyengar" + Space(150) leng = Len(str) - 1 End Sub Private Sub Timer1_Timer() str = Left(Right(str, 1), leng) + Left(str, leng) 'To move caption from right to left 'just change 'str = Left(Right(str, leng), leng) + Left(str, 1) Form1.Caption = str End Sub |
(1) (Reply)
Microsoft Access / How To Prepare For A Job At Google / Can I Dump My Low-cash Work For Freelancing Job As A Programmer?
(Go Up)
Sections: politics (1) business autos (1) jobs (1) career education (1) romance computers phones travel sports fashion health religion celebs tv-movies music-radio literature webmasters programming techmarket Links: (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) Nairaland - Copyright © 2005 - 2024 Oluwaseun Osewa. All rights reserved. See How To Advertise. 9 |