Click here to Skip to main content
15,919,358 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Text Not Showing Fine Pin
Anubhava Dimri20-May-10 19:53
Anubhava Dimri20-May-10 19:53 
GeneralRe: Text Not Showing Fine Pin
Johnny J.21-May-10 1:39
professionalJohnny J.21-May-10 1:39 
GeneralRe: Text Not Showing Fine Pin
Anubhava Dimri27-May-10 20:18
Anubhava Dimri27-May-10 20:18 
QuestionScanner - image scanning! Pin
FeRtoll20-May-10 13:10
FeRtoll20-May-10 13:10 
AnswerRe: Scanner - image scanning! Pin
FeRtoll20-May-10 14:36
FeRtoll20-May-10 14:36 
GeneralRe: Scanner - image scanning! Pin
Wayne Gaylard20-May-10 20:16
professionalWayne Gaylard20-May-10 20:16 
GeneralRe: Scanner - image scanning! Pin
FeRtoll21-May-10 3:53
FeRtoll21-May-10 3:53 
Questionanimation? Pin
Adam Wike20-May-10 4:53
Adam Wike20-May-10 4:53 
Please tell me there is a better way to make a pacman like shape move across my form...

Public Class Form1
    Dim formSurface As Graphics = Me.CreateGraphics
    Dim intLoop As Integer = 0


    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        tmrMove.Enabled = True
    End Sub

    Private Sub tmrMove_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrMove.Tick


        formSurface.Clear(Color.Black)
        Select Case intLoop
            Case 0
                formSurface.DrawImage(My.Resources.pacmanopen, 10, 75)

            Case 1
                formSurface.DrawImage(My.Resources.pacmanopen, 11, 75)

            Case 2
                formSurface.DrawImage(My.Resources.pacmanopen, 12, 75)

            Case 3
                formSurface.DrawImage(My.Resources.pacmanopen, 13, 75)

            Case 4
                formSurface.DrawImage(My.Resources.pacmanopen, 14, 75)

            Case 5
                formSurface.DrawImage(My.Resources.pacmanopen, 15, 75)

        End Select
        intLoop += 1
    End Sub
End Class


Could I possibly do something like...
Case 0 to 100
    formSurface.DrawImage(My.Resources.pacmanopen, intX, 75)
and then add 1 to intX each time? I'm open to any ideas...
AnswerRe: animation? Pin
Luc Pattyn20-May-10 5:27
sitebuilderLuc Pattyn20-May-10 5:27 
GeneralRe: animation? Pin
Adam Wike20-May-10 8:29
Adam Wike20-May-10 8:29 
AnswerRe: animation? Pin
Christian Graus20-May-10 5:46
protectorChristian Graus20-May-10 5:46 
GeneralRe: animation? Pin
Adam Wike20-May-10 8:28
Adam Wike20-May-10 8:28 
GeneralRe: animation? Pin
FeRtoll20-May-10 13:11
FeRtoll20-May-10 13:11 
Questioncontext menu for CD drive Pin
phowarso20-May-10 0:19
phowarso20-May-10 0:19 
AnswerRe: context menu for CD drive Pin
Johnny J.20-May-10 0:28
professionalJohnny J.20-May-10 0:28 
AnswerRe: context menu for CD drive Pin
Johan Hakkesteegt20-May-10 0:46
Johan Hakkesteegt20-May-10 0:46 
AnswerRe: context menu for CD drive Pin
JR21220-May-10 1:41
JR21220-May-10 1:41 
QuestionDate string conversion problem Pin
TheComputerMan19-May-10 15:55
TheComputerMan19-May-10 15:55 
AnswerRe: Date string conversion problem Pin
Luc Pattyn19-May-10 16:20
sitebuilderLuc Pattyn19-May-10 16:20 
GeneralRe: Date string conversion problem Pin
Dalek Dave19-May-10 21:54
professionalDalek Dave19-May-10 21:54 
GeneralRe: Date string conversion problem Pin
TheComputerMan19-May-10 22:39
TheComputerMan19-May-10 22:39 
GeneralRe: Date string conversion problem Pin
Dalek Dave19-May-10 22:53
professionalDalek Dave19-May-10 22:53 
GeneralRe: Date string conversion problem Pin
TheComputerMan19-May-10 22:56
TheComputerMan19-May-10 22:56 
GeneralRe: Date string conversion problem Pin
Luc Pattyn20-May-10 2:04
sitebuilderLuc Pattyn20-May-10 2:04 
GeneralRe: Date string conversion problem Pin
TheComputerMan19-May-10 22:30
TheComputerMan19-May-10 22:30 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.