Criar uma instância a partir de um parametro

Question

Olá Pessoal, podem me ajudar?

Quero instanciar uma classe de um form cujo nome será passado como parâmetro através de uma variável string. Por exemplo:

dim frmFormulario as new varFormulário

frmFormulario.Show

* Onde varFormulario é uma variável string cujo conteúdo é o nome do formulário. O formulário já foi criado e existe, porém neste caso o formulário a ser aberto pode ser qualquer um dos cem formulários existentes no projeto, basta que eu passe o nome dele dentro da variável varFormulário.

Tem como fazer isso?

Grato pela ajuda,

Altair.

Answer 1

Tem !!!

Assim

C#

object frm = Activator.CreateInstance(Type.GetType("WindowsFormsApp.Form2"));
if (frm != null && frm is Form)
{
	((Form)frm).ShowDialog();
}

VB.Net

Dim frm As Object = Activator.CreateInstance(Type.GetType("WindowsFormsApp.Form2"))
If Not IsNothing(frm) AndAlso TypeOf frm Is Form Then
	DirectCast(frm, Form).ShowDialog()
End If

Explicando dentro Type.GetType o WindowsFormsApp é o nome do projeto e o Form2 o nome do Form, então adeque ao seu projeto isso ai para funcionar !!!

---

Fulvio Cezar Canducci Dias

Answer 2

Tem !!!

Assim

C#

object frm = Activator.CreateInstance(Type.GetType("WindowsFormsApp.Form2"));
if (frm != null && frm is Form)
{
	((Form)frm).ShowDialog();
}

VB.Net

Dim frm As Object = Activator.CreateInstance(Type.GetType("WindowsFormsApp.Form2"))
If Not IsNothing(frm) AndAlso TypeOf frm Is Form Then
	DirectCast(frm, Form).ShowDialog()
End If

Explicando dentro Type.GetType o WindowsFormsApp é o nome do projeto e o Form2 o nome do Form, então adeque ao seu projeto isso ai para funcionar !!!

---

Fulvio Cezar Canducci Dias

Dim frm As Object = Activator.CreateInstance(Type.GetType("WindowsFormsApp." & "Nome_Do_Form"))
If (frm IsNot Nothing) AndAlso (TypeOf frm Is Formulario) Then
	DirectCast(frm, Form).ShowDialog()
End If

---

Herbert Lausmann

Answer 3

Muito obrigado. Vou Testar.

Answer 4

Caro Flávio não funcionou está dando o seguinte erro:

"Valor não pode ser nulo. Nome do parâmetro: type"

veja o meu código

Dim frm As Object = Activator.CreateInstance(Type.GetType("APISDev" & vFormularioHelp))
        If Not IsNothing(frm) AndAlso TypeOf frm Is Form Then
            DirectCast(frm, Form).ShowDialog()
        End If

onde APISDev é o nome do projeto e vFormularioHelp é a variável string que contem o nome do formulário que será aberto.

Grato.

Answer 5

Oi Flávio. Funcionou. Era um erro de sintaxe. Muito obrigado.

Answer 6

Caro Flávio não funcionou está dando o seguinte erro:

"Valor não pode ser nulo. Nome do parâmetro: type"

veja o meu código

Dim frm As Object = Activator.CreateInstance(Type.GetType("APISDev" & vFormularioHelp))
        If Not IsNothing(frm) AndAlso TypeOf frm Is Form Then
            DirectCast(frm, Form).ShowDialog()
        End If

onde APISDev é o nome do projeto e vFormularioHelp é a variável string que contem o nome do formulário que será aberto.

Grato.

faltou ponto neh !!! kkkk

---

Fulvio Cezar Canducci Dias

Answer 7

Oi Flávio. Funcionou. Era um erro de sintaxe. Muito obrigado.

é Fúlvio ...

Legal parabéns ...

---

Fulvio Cezar Canducci Dias