VB.NET Forms access via Form Name at Runtime

  • Thread starter Thread starter Ian
  • Start date Start date
I

Ian

Hi,

If I have created several forms in my VB.NET app called Form1, Form2, Form3
etc can I instantiate a form via its name.

So if I enter the form's name in a textbox can I have that form appear?

Thanks
Ian
 
* "Ian said:
If I have created several forms in my VB.NET app called Form1, Form2, Form3
etc can I instantiate a form via its name.

So if I enter the form's name in a textbox can I have that form appear?
Click to expand...

\\\
Dim objNewForm As Object = _
Activator.CreateInstance( _
Type.GetType("MyApplication.SampleForm") _
)
Dim frm As Form = DirectCast(objNewForm, Form)
frm.Show()
///
 
You could do this sort of thing...

\\\
Private Sub textbox_Leave(ByVal sender As Object, ByVal e
As System.EventArgs) _
Handles txtTextbox.LostFocus

If txtTextbox.text = "form1" Then
Dim objForm1 As New frmForm1
Me.frm1.showdialog()

ElseIf txtTextbox.text = "form2" Then
Dim objForm2 As New frmForm2
Me.frm2.showdialog()
End If
///

obviously you don't have to use LostFocus but can instead
use an other of the textboxes methods to trigger the event
 
Ian said:
If I have created several forms in my VB.NET app called Form1, Form2,
Form3 etc can I instantiate a form via its name.

So if I enter the form's name in a textbox can I have that form
appear?
Click to expand...

It is possible but I think the user is not interested in the names the
developer has chosen as the class name of a form.

If you really need it, have a look at Activator.Createinstance.
 
Hi Steven,

* "Steven Smith said:
\\\
Private Sub textbox_Leave(ByVal sender As Object, ByVal e
As System.EventArgs) _
Handles txtTextbox.LostFocus

If txtTextbox.text = "form1" Then
Dim objForm1 As New frmForm1
Me.frm1.showdialog()
Click to expand...
^^^^^^^

.... should read 'objForm1'.
ElseIf txtTextbox.text = "form2" Then
Dim objForm2 As New frmForm2
Me.frm2.showdialog()
End If
///
Click to expand...

Little note:

You can 'save' a variable:

\\\
Dim f As Form
Select Case txtTextBox.Text
Case "Form1"
f = New Form1()
Case "Form2"
f = New Form2()
Case ...
...
...
End Select
f.ShowDialog()
///
 
Back
Top