Welcome, Guest: Register On Nairaland / LOGIN! / Trending / Recent / New
Stats: 3,143,337 members, 7,780,888 topics. Date: Friday, 29 March 2024 at 02:50 AM

Marquee Code In Vb - Programming - Nairaland

Nairaland Forum / Science/Technology / Programming / Marquee Code In Vb (6104 Views)

Login Code In Vb6.0 / How To Deploy Application With Access Database In Vb.net 2008 / Post Ur Vb 6.0 Questions Here (2) (3) (4)

(1) (Reply)

Marquee Code In Vb by moore20: 8:58pm On Oct 09, 2008
hi everyone,
please can anybody help me with a code to marqee a label leftwards in vb 6
i'll really appreciate it
Re: Marquee Code In Vb by luckyCO(m): 11:37am On Oct 10, 2008
I would love you to have posted this on the forum which I called Post ur VB6.0 question here. This will enable me to answer it as soon as I enter into the thread. U can also post any other one in a fresh thread and will be appreciated if you post it there for me to answer.

Now I will give you code for Left,Right,down and Button marque

You have four timers and four labels,put then on a form ,choose whichever that serves your purpose.

Private Sub Timer1_Timer()
Call MoveRight(Label1, Me)
End Sub

' the one you asked for
Private Sub Timer2_Timer()
Call MoveLeft(Label2, Me)
End Sub

Private Sub Timer3_Timer()
Call MoveUP(Label3, Me)
End Sub


Private Sub Timer4_Timer()
Call MoveDown(Label4, Me)
End Sub

'Function calls

Public Sub MoveLeft(Obj As Control, frm As Form)
Obj.Move Obj.Left + 30
If Obj.Left > frm.Width Then
Obj.Left = -1 * (frm.ScaleWidth)
End If
End Sub

Public Sub MoveRight(Obj As Control, frm As Form)
Obj.Move Obj.Left - 30
If (Obj.Left + Obj.Width) < 0 Then
Obj.Left = frm.Width
End If
End Sub

Public Sub MoveUp(Obj As Control, frm As Form)
Obj.Move Obj.Left, Obj.Top + 30
If Obj.Top > frm.Height Then
Obj.Top = -1 * (frm.ScaleHeight)

End If
End Sub

Public Sub MoveDown(Obj As Control, frm As Form)
Obj.Move Obj.Left, Obj.Top - 30

If (Obj.Top + Obj.Height) < 0 Then
Obj.Top = frm.Height
End If
End Sub

If you have problem you can call 08036025235
Thanks
Re: Marquee Code In Vb by aremu2000: 5:50am On Oct 11, 2008
pls i want to install java 6.1 but it is not install on my pc how can i install it

(1) (Reply)

Ekiti Government To Train Youths In Programming / LAGOS Professional Training On Web Design&development With Certification.. / Let Learn Java Together

(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. 14
Disclaimer: Every Nairaland member is solely responsible for anything that he/she posts or uploads on Nairaland.