Marquee image box

Expand Post »

Hello. I am developing a game and for this game 2 of my sprites appear to be flying to the right. i have acomplished this by allowing an image box with the skay on to scroll accross my form from the right to the left. however, once the image has scrolled off the screen i can not get it to reset it self so that it it can scroll continuously.

back_star = my timer
sky = the image of the sky

VB.NET Syntax (Toggle Plain Text)
Private Sub Form_Load()
back_star.Enabled = True
back_star.Interval = 1
End sub
 
Private Sub back_star_Timer()
back_star.Enabled = True
If back_star.Enabled = True Then
    sky.Left = sky.Left - 50
Else
    If sky.Left <=sky.Left -4920 then
 
    sky.Left = sky.Left + 0
End If
End If
 
End Sub
Private Sub Form_Load()
back_star.Enabled = True
back_star.Interval = 1
End sub

Private Sub back_star_Timer()
back_star.Enabled = True
If back_star.Enabled = True Then
    sky.Left = sky.Left - 50
Else
    If sky.Left <=sky.Left -4920 then
    
    sky.Left = sky.Left + 0
End If
End If

End Sub

This is my code.

please could you take a look and show me where i have gone wrong or any alternative coding.

Last edited by Razza92; Mar 14th, 2009 at 11:20 am. Reason: missed some code

Similar Threads

Photoshop: create an interface style content box in Graphics and Multimedia
IPB vs. phpBB in Social Media and Online Communities
Help!! Form Sends Incomplete Data Should Be Required To submit Form in PHP
over-ride inaccessable javascript function? in JavaScript / DHTML / AJAX
Firefox Compatibility help with script in JavaScript / DHTML / AJAX

Razza92

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

6 posts
since Mar 2009

Permalink

Mar 15th, 2009

Re: Marquee image box

You must be using vb6.
Your timer logic is wrong.
1. when you come into the timer you are setting the timer enable and then checking to see if it is enabled. Which will allways be true.
2. The timer will not fire unless it is enabled which causes the above to happen again.
Try this code.

VB.NET Syntax (Toggle Plain Text)
Option Explicit
 
Private Sub Form_Load()
    back_star.Enabled = True
    back_star.Interval = 1
End Sub
 
Private Sub back_star_Timer()
    sky.Left = sky.Left - 50
    If sky.Left < -sky.Width Then
        sky.Left = Me.ScaleWidth
    End If
End Sub
Option Explicit

Private Sub Form_Load()
    back_star.Enabled = True
    back_star.Interval = 1
End Sub

Private Sub back_star_Timer()
    sky.Left = sky.Left - 50
    If sky.Left < -sky.Width Then
        sky.Left = Me.ScaleWidth
    End If
End Sub

waynespangler

Reputation Points: 84

Solved Threads: 58

Posting Pro in Training

Offline

461 posts
since Dec 2002

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Problem while Inserting and Updating data into MS access

Next Thread in VB.NET Forum Timeline: Get Files of Recycle Bin

DaniWeb Message

Cancel Changes

User Name
Password