Ad:

VB.NET Discussion Thread
Marked Solved
Views: 798

Jun 16th, 2009

-1

moving between forms

Expand Post »

hey,
i am creating a basic game, something a bit like space invaders but only 3 levels long.

I'm haveing trouble moving from Form2 (level 2) to Form3 (level 3), Form3 opens, Form2 closes, and I want the start menu (which is on another form called Start) to show if one of the forms closes, but i don't want it poping up infront of the game when ever i move onto the next level, which is what it does.

I want to show the start form because if the user closes a form they should be led back to the start menu.

i have used this code on Form1 (level 1) to move onto Form2 but i don't know how to get it to work for moving from Form2 to Form3:

section of code from Start form:

VB.NET Syntax (Toggle Plain Text)
 Public Sub goto2()
        frmLevel1.Close()
        Dim frmLevel2 As Form2
        frmLevel2 = New Form2
        frmLevel2.Activate()
        frmLevel2.Show()
        Me.Hide()
    End Sub
 Public Sub goto2()
        frmLevel1.Close()
        Dim frmLevel2 As Form2
        frmLevel2 = New Form2
        frmLevel2.Activate()
        frmLevel2.Show()
        Me.Hide()
    End Sub

Section of code from Form1:

VB.NET Syntax (Toggle Plain Text)
 
            If MessageBox.Show("Play Next Level?", "Yes/No question", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
                MsgBox("Okay, Bye")
                Start.Show()
                'Me.Enabled = False
                Close()
            Else
                MsgBox("Okay! Good Luck")
                Start.goto2()
            End If
            If MessageBox.Show("Play Next Level?", "Yes/No question", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
                MsgBox("Okay, Bye")
                Start.Show()
                'Me.Enabled = False
                Close()
            Else
                MsgBox("Okay! Good Luck")
                Start.goto2()
            End If

i want to use this again in Form2 to move to form 3 but i don't know how.

please advise.

Similar Threads

moving a form with no border in VB.NET
DirectX in Visual C++: Help moving a mesh starting from BasicHLSL Tutorial in C++
What return before moving on? in Promotion and Marketing Plans
Forms in Random access files in Visual Basic 4 / 5 / 6
Snapping Forms together in VB.NET

williamyounger

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

3 posts
since Jun 2009

Permalink

Jun 17th, 2009

Re: moving between forms

If you want to use the same procedure, pass a parameter to proc to tell which form to show

VB.NET Syntax (Toggle Plain Text)
Public Sub GotoForm(ByVal FormIndex As Integer)
  ' Change form
  Select Case FormIndex
    Case 2
      frmLevel1.Close()
      Dim frmLevel2 As Form2
      frmLevel2 = New Form2
      frmLevel2.Activate()
      frmLevel2.Show()
      Me.Hide()
    Case 3
      frmLevel2.Close()
      Dim frmLevel3 As Form3
      frmLevel3 = New Form3
      frmLevel3.Activate()
      frmLevel3.Show()
      Me.Hide()
    Case Else
      ' Wrong index
  End Select
 
End Sub
Public Sub GotoForm(ByVal FormIndex As Integer)
  ' Change form
  Select Case FormIndex
    Case 2
      frmLevel1.Close()
      Dim frmLevel2 As Form2
      frmLevel2 = New Form2
      frmLevel2.Activate()
      frmLevel2.Show()
      Me.Hide()
    Case 3
      frmLevel2.Close()
      Dim frmLevel3 As Form3
      frmLevel3 = New Form3
      frmLevel3.Activate()
      frmLevel3.Show()
      Me.Hide()
    Case Else
      ' Wrong index
  End Select

End Sub

and call it Start.GotoForm(2), Start.GotoForm(3) etc.

Without knowing more about your code I can't guarantee it works "as is", but I hope it gives you an idea how to do it.

HTH

Teme64

Reputation Points: 218

Solved Threads: 201

Veteran Poster

Offline

1,024 posts
since Aug 2008

Permalink

Jun 17th, 2009

Re: moving between forms

i get the idea and the code you replied was almost perfect except for 1 thing, i dosn't like closing form 2 for some reason.

Case (3)
frmLevel2.Close()
Dim frmLevel3 As Form3
frmLevel3 = New Form3
frmLevel3.Activate()
frmLevel3.Show()
Me.Hide()
End Select

it pops up the nullreferance unhandled box:
Object reference not set to an instance of an object.

what does this mean and how can i fix it?

thanks for your help.

williamyounger

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

3 posts
since Jun 2009

Permalink

Jun 17th, 2009

Re: moving between forms

Ok. Try to declare form variables global in your main form (Start form) i.e. where you have GotoForm. If you declare them inside the sub their scope will be only that sub and you "lose" the form reference when you exit the sub

VB.NET Syntax (Toggle Plain Text)
' Globals in Start form
Private frmLevel1 As Form
Private frmLevel2 As Form
Private frmLevel3 As Form
.
.
Public Sub GotoForm(ByVal FormIndex As Integer)
  ' Change form
  Select Case FormIndex
    Case 2
      ' Additional check to avoid null reference error
      If frmLevel1 IsNot Nothing Then
        frmLevel1.Close()
      End If
      frmLevel2 = New Form2
      frmLevel2.Activate()
      frmLevel2.Show()
      Me.Hide()
    Case 3
      ' Additional check to avoid null reference error
      If frmLevel2 IsNot Nothing Then
        frmLevel2.Close()
      End If
      frmLevel3 = New Form3
      frmLevel3.Activate()
      frmLevel3.Show()
      Me.Hide()
    Case Else
      ' Wrong index
  End Select
 
End Sub
' Globals in Start form
Private frmLevel1 As Form
Private frmLevel2 As Form
Private frmLevel3 As Form
.
.
Public Sub GotoForm(ByVal FormIndex As Integer)
  ' Change form
  Select Case FormIndex
    Case 2
      ' Additional check to avoid null reference error
      If frmLevel1 IsNot Nothing Then
        frmLevel1.Close()
      End If
      frmLevel2 = New Form2
      frmLevel2.Activate()
      frmLevel2.Show()
      Me.Hide()
    Case 3
      ' Additional check to avoid null reference error
      If frmLevel2 IsNot Nothing Then
        frmLevel2.Close()
      End If
      frmLevel3 = New Form3
      frmLevel3.Activate()
      frmLevel3.Show()
      Me.Hide()
    Case Else
      ' Wrong index
  End Select

End Sub

I also added If <form> IsNot Nothing Then check just in case

Teme64

Reputation Points: 218

Solved Threads: 201

Veteran Poster

Offline

1,024 posts
since Aug 2008

Permalink

Jun 18th, 2009

Re: moving between forms

Thanks alot that works perfectly!

williamyounger

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

3 posts
since Jun 2009

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

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: listview

Next Thread in VB.NET Forum Timeline: windows Login

DaniWeb Message

Cancel Changes

User Name
Password