Unloading a Form

I'm looking for the equivalent of the unload.form2 command in VB.NET and what event that needs to be placed in.

In VB6:
Click button1 on form 1 event: form2.show:form1.hide
Click button1 on form 2 event: form1.show:form2.hide

and in my form1.unload I would have Unload.Form2:Unload.Me


Now I've got the showing/hiding of the forms OK with VB.NET, I use (in a module):
Public MainForm As New Form1()
Public ProgressForm As New Form2()

I can show/hide with mainform.hide/progressform.show e.t.c. all works fine but I know the progressform (form2) is not unloading when I quite the app from form1.

I've looked at the 'closing' and 'closed' events of form1 and added a progressform.dispose but no good as when I quit the app the VB.NET IDE has not stopped.

Anyone?

No one?

Is this VB.NET going from bad to worse?

All I want is the equivelent of: unload form2

I haven't gotten to reading up on the Windows Forms yet, but maybe try:

Code:

---

    FormName.Dispose()

---

Hi, thanks for the reply.

I've tried both formname.dispose and formname.close, neither worked .... or maybe I'm just putting them in the incorrect event???, I don't know. I'm putting them in the main forms closing, closed and leave, still nothing. :-(

try

Unload FormName

or

MyBase.Dispose

and if the fails use the DestroyWindow API

No good

Use Me.Dispose (True)

It works for me :)


EDIT:

And if you know the name of the form then use Form1.ActiveForm.Dispose()

Assuming the name of the form is Form1

-_-

Code:

---

    frm.Dispose() 'Works

---

i used here in a note pade i am working on

look at:
Private Sub mnuFileOpen_Clicked
Private Sub mnuFileSave_Clicked

Code:

---

Option Explicit On
Option Strict On
Option Compare Binary

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Text
Imports System.Windows.Forms
Imports Microsoft.VisualBasic

Namespace VBNotepad
        Public Class frmPad
                Inherits System.Windows.Forms.Form

                Private frm As New System.Windows.Forms.Form

                Private WithEvents CodePane As System.Windows.Forms.TextBox

                Private FileName as String = "New Source.vb"
                Private FilePath as String = "C:\"
                Private isChanged as Boolean = False
                Private AlreadyExists As Boolean = False
               
                <STAThread()> Shared Sub Main()
                        System.Windows.Forms.Application.Run(New frmPad())
                End Sub

                Public Sub New()
                        '
                        MyBase.New()
                       
                        Call AddMenus()
                        Call AddCodePane()
                       
                        Me.Text = "VB.Net Simple Code Pad"
                        Me.TopMost = True
                End Sub

                Overrides Protected Sub OnResize(ByVal e As EventArgs )
                        CodePane.Size = New Size(Me.ClientSize.Width - 1, Me.ClientSize.Height - 1)
                End Sub


                'Menu Creation and Event Handlers
                '***********************************************************************************************               
                Private Sub AddMenus()
                        Dim mnuMain As New MainMenu
                        Dim mnuFile As MenuItem = mnuMain.MenuItems.Add("&File")
                       
                        'File Menu
                        mnuFile.MenuItems.Add("&New", New EventHandler(AddressOf Me.mnuFileNew_Clicked))
                        mnuFile.MenuItems.Add("&Open", New EventHandler(AddressOf Me.mnuFileOpen_Clicked))
                        mnuFile.MenuItems.Add("&Save", New EventHandler(AddressOf Me.mnuFileSave_Clicked))
                        mnuFile.MenuItems.Add("Save Copy",New EventHandler(AddressOf Me.mnuFileSaveCopy_Clicked))
                        mnuFile.MenuItems.Add("-")        'Seperator
                        mnuFile.MenuItems.Add("Build", New EventHandler(AddressOf Me.mnuFileBuild_Clicked))
                        mnuFile.MenuItems.Add("-")
                        mnuFile.MenuItems.Add("E&xit", New EventHandler(AddressOf Me.mnuFileExit_Clicked))
                       
                        Me.Menu = mnuMain
                End Sub

                Private Sub mnuFileNew_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        If isChanged = True Then
                                Call SaveFile()
                        End If
                        CodePane.Text = ""
                End Sub

                Private Sub mnuFileOpen_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        frm.Show
                End Sub

                Private Sub mnuFileSave_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        frm.Dispose
                End Sub
               
                Private Sub mnuFileSaveCopy_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        '
                End Sub
               
                Private Sub mnuFileBuild_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        '
                End Sub
               
                Private Sub mnuFileExit_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        '
                End Sub
                               
                '***********************************************************************************************
               
                'CodePane Creation and Event Handlers
                '***********************************************************************************************
                Private Sub AddCodePane()
                        '
                        Me.CodePane = New System.Windows.Forms.TextBox
                       
                        CodePane.Location = New Point(1, 1)
                        CodePane.TabIndex = 2
                        CodePane.Size = New Size(Me.ClientSize.Width - 1, Me.ClientSize.Height - 1)
                        CodePane.Multiline = True
                        CodePane.AcceptsReturn = True
                        CodePane.AcceptsTab = True
                        CodePane.WordWrap = False
                        CodePane.Scrollbars = ScrollBars.Both
                       
                        AddHandler CodePane.TextChanged, AddressOf Me.CodePane_TextChanged
                               
                        Me.Controls.Add(CodePane)
                End Sub
               
                Private Sub CodePane_TextChanged(sender As Object, e As EventArgs)
                        '
                        isChanged = True
                End Sub
                '************************************************************************************************

                'General Methods
                '************************************************************************************************
                Private Sub SaveFile()

                End Sub
                '*************************************************************************************************
        End Class
End Namespace

---

to compile save as vbNote.vb and put

Code:

---

vbc.exe vbNote.vb /r:System.dll /r:System.Drawing.dll  /r:System.Windows.Forms.dll /target:winexe /out:vbNote /bugreport:vbNoteError.log

---

in a batch file @ the same path then dblClick

There you go again with the complex chit again
Hey Zan I'm telling you all these folks are Newbies

Hey WideAwake if you want to tried and true easy method:

Code:

---

Option Explicit On
Option Strict On
Option Compare Binary

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms
Imports Microsoft.VisualBasic

Namespace TestDispose

#Region
        Public Class frmDispose
                Inherits System.Windows.Forms.Form

                Private frm As New System.Windows.Forms.Form
                Private isLoaded As Boolean = False
               
                <STAThread()> Shared Sub Main()
                        System.Windows.Forms.Application.Run(New frmDispose())
                End Sub

                Public Sub New()
                        MyBase.New()
                        Call AddMenus()
                        Me.Text = "VB.Net Dispose Test"
                        Me.TopMost = True
                End Sub
End Region

                'Menu Creation and Event Handlers
                '***********************************************************************************************               
                Private Sub AddMenus()
                        Dim mnuMain As New MainMenu
                        Dim mnuFile As MenuItem = mnuMain.MenuItems.Add("&File")

                        mnuFile.MenuItems.Add("&Exit",New EventHandler(AddressOf Me.FormDispoer))       
       
                        Me.Menu = mnuMain
                End Sub

                Private Sub FormDispoer(sender As Object, e As System.EventArgs)
                        Me.Dispose
                End Sub
       
                '***********************************************************************************************
        End Class

---

End Namespace

This one works to

Copy this into your batch file

Code:

---

vbc.exe frmDipose.vb /r:System.dll /r:System.Drawing.dll  /r:System.Windows.Forms.dll /target:winexe /out:"Unload Form.exe" /bugreport:err.log

---

But when you try to show the form for the 2nd time you get an error saying 'Cannot access disposed form'.

I fixed that problem for you
but your gonna have to weed it out yourself
that way you'll learn from it

by the way you said dispose didn't work
not that Zan's program didn't have a bug in

I recommend downloading the .NET SDK
and if you have then USE IT!!!!

Code:

---

Option Explicit On
Option Strict On
Option Compare Binary

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Text
Imports System.Windows.Forms
Imports Microsoft.VisualBasic

Namespace VBNotepad
        Public Class frmPad
                Inherits System.Windows.Forms.Form

                Private frm As System.Windows.Forms.Form

                Private WithEvents CodePane As System.Windows.Forms.TextBox

                Private FileName as String = "New Source.vb"
                Private FilePath as String = "C:\"
                Private isChanged as Boolean = False
                Private AlreadyExists As Boolean = False
               
                <STAThread()> Shared Sub Main()
                        System.Windows.Forms.Application.Run(New frmPad())
                End Sub

                Public Sub New()
                        '
                        MyBase.New()
                       
                        Call AddMenus()
                        Call AddCodePane()
                       
                        Me.Text = "VB.Net Simple Code Pad"
                        Me.TopMost = True
                End Sub

                Overrides Protected Sub OnResize(ByVal e As EventArgs )
                        CodePane.Size = New Size(Me.ClientSize.Width - 1, Me.ClientSize.Height - 1)
                End Sub


                'Menu Creation and Event Handlers
                '***********************************************************************************************               
                Private Sub AddMenus()
                        Dim mnuMain As New MainMenu
                        Dim mnuFile As MenuItem = mnuMain.MenuItems.Add("&File")
                       
                        'File Menu
                        mnuFile.MenuItems.Add("&New", New EventHandler(AddressOf Me.mnuFileNew_Clicked))
                        mnuFile.MenuItems.Add("&Open", New EventHandler(AddressOf Me.mnuFileOpen_Clicked))
                        mnuFile.MenuItems.Add("&Save", New EventHandler(AddressOf Me.mnuFileSave_Clicked))
                        mnuFile.MenuItems.Add("Save Copy",New EventHandler(AddressOf Me.mnuFileSaveCopy_Clicked))
                        mnuFile.MenuItems.Add("-")        'Seperator
                        mnuFile.MenuItems.Add("Build", New EventHandler(AddressOf Me.mnuFileBuild_Clicked))
                        mnuFile.MenuItems.Add("-")
                        mnuFile.MenuItems.Add("E&xit", New EventHandler(AddressOf Me.mnuFileExit_Clicked))
                       
                        Me.Menu = mnuMain
                End Sub

                Private Sub mnuFileNew_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        If isChanged = True Then
                                Call SaveFile()
                        End If
                        CodePane.Text = ""
                End Sub

                Private Sub mnuFileOpen_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        Set frm = New System.Windows.Forms.Form
                        frm.Show
                End Sub

                Private Sub mnuFileSave_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        frm.Dispose
                End Sub
               
                Private Sub mnuFileSaveCopy_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        '
                End Sub
               
                Private Sub mnuFileBuild_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        '
                End Sub
               
                Private Sub mnuFileExit_Clicked(ByVal sender as Object, ByVal e As System.EventArgs)
                        '
                End Sub
                               
                '***********************************************************************************************
               
                'CodePane Creation and Event Handlers
                '***********************************************************************************************
                Private Sub AddCodePane()
                        '
                        Me.CodePane = New System.Windows.Forms.TextBox
                       
                        CodePane.Location = New Point(1, 1)
                        CodePane.TabIndex = 2
                        CodePane.Size = New Size(Me.ClientSize.Width - 1, Me.ClientSize.Height - 1)
                        CodePane.Multiline = True
                        CodePane.AcceptsReturn = True
                        CodePane.AcceptsTab = True
                        CodePane.WordWrap = False
                        CodePane.Scrollbars = ScrollBars.Both
                       
                        AddHandler CodePane.TextChanged, AddressOf Me.CodePane_TextChanged
                               
                        Me.Controls.Add(CodePane)
                End Sub
               
                Private Sub CodePane_TextChanged(sender As Object, e As EventArgs)
                        '
                        isChanged = True
                End Sub
                '************************************************************************************************

                'General Methods
                '************************************************************************************************
                Private Sub SaveFile()

                End Sub
                '*************************************************************************************************
        End Class
End Namespace

---

would you try to use a form in vb6 after you unloaded it? i mean you caould load a new one and use it but isn't that what you have to do in .net too..? MS is just hiding less of the C backbone from us now personally i like it the power of VB has trippled or more 0_0

You bet your arse Zan
The whole .NET framework has finally revealed Microsoft has an intelligent person working on thier staff.

Why is everyone making controls at runtime ?

i happen to be useing notepad and the framework to code in no IDE just me my brain and the compiler

I am?

Quote:

---

Originally posted by WideAwake
Why is everyone making controls at runtime ?

---

Better question is why there's so much unrelated coding to such a [seemingly] simple question.

Only way newbies learn anything is by DOING IT!!!
all the extra code is to help him learn


3 ways of doing thing

right way

wrong way

easy way

I always prefer #1

I didn't feel like making a new app in notepad when i had the one i was working on and tested the dispose in already coded. I mean I did tell WideAwake axactly where to look in the cade and incase you can't tell MedevH used my code to make a simpler example. I got to say this thing is pretty sad it's been viewed over 100 times and any newbie should know how to do it. it's simple.

Code:

---

Dim frm as System.Windows.Forms.Form

Sub LoadForm()
      Set frm = New System.Windows.Forms.Form
      frm.Text = "New Form"
      frm.Show
End Sub

Sub DisposeForm()
      frm.Dispose()
End Sub

---

now let's just suppose you have a file called frmMp3Played.vb with the class frmMP3 that is compiled into you exe just change System.Windows.Forms.Form to be frmMP3 now you have a form that can be loaded and disposed of more than one time now if you want to keep the forms state just hide the form instead of disposeing of it.

is that better for you guys shessh i think maybe you need to try to make an app in notepad WideAwake then go on to vs.net because my code looks just like the designer makes if you look close or open the .vb file in notepad i just don't have vs.net

'MedevH' - "Only way newbies learn anything is by DOING IT!!!"
What a stupid statement, I'm new to VB.NET not VB in general. You seem more interested in showing people how to right vb.net code via notepad using the .NET SDK, which has nothing to do with the initial question. The amount of people I see ask questions to have a completely different question answered is quite remarkable.