SoloCodigo
CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Soultaker en Domingo 22 de Agosto de 2004, 02:43
-
Ahora me gustaria saber si hay alguna forma de concatenar sentencias lo que quiero decir es que si se puede hacer esto, supongamos que tengo 20 ventanas y en una caja de texto yo quiero escribir el nombre de la ventana y concatenarlo con un .show en otras palabras segun mi logica seria algo asi (text1.text & ".show") bueno asi creo lo he probado pero no funciona haber si alhuien sabe algun metodo para hacer esto. Espero que me ayuden. Thank you so much.
-
Cuando crees las ventanas añadelas a una colección.
f=new Form1
f.text="Titulo de la ventana"
Ventanas.add(f)
y luego cuando quieras mostrarla
For each formulario in ventanas
if formulario.text="Lo que quiero yo que ponga" then
formulario.show
end if
next
No es lo que querías pero sirve para lo mismo
-
Tengo esta funcion que creo es la que necesitas, eso si necesitas que le des
el NameSpace y la Clase de al Ventana.
' Instancia la Ventana
Private Sub LoadForm(ByVal pvc_NameSpace As String, ByVal pvc_Form As String)
Try
Dim vlo_Form As Form
Dim vlo_Type As Type
vlo_Type = Type.GetType(pvc_NameSpace & "." & pvc_Form)
vlo_Form = Activator.CreateInstance(vlo_Type)
vlo_Form.Show()
Catch ex As Exception
MessageBox.Show("*** No pudo cargar ventana ***" & vbNewLine & _
"Namespace: " & pvc_NameSpace & vbNewLine & _
"Form : " & pvc_Form & vbNewLine & " Error: " & ex.Message, _
"Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Exit Sub
End Sub
-
y para que concatenas lo del text con el show, para que quieres eso, porque hasta ahora como que no te entiendo.....