Cargar formulartio dinamico por menu

[Giufantasy]

Hola:
Resulta que tengo que cargar un menu dinamico y asu vez al momento de hacer click que se cargue el formulario perteneciente a cada menu

tengo este metodo que va cargando los formularios por cada menu
Dim dt As New DataTable
Dim da As New SqlDataAdapter
'Ejecutando procedimiento para codigos de barra.
Dim cmd As New SqlCommand
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.CommandText = "SP_BUSCA_FORMULARIOS_X_MENU"
cmd.Connection = SQLcnn
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@RUT", RutUsuario)
cmd.Parameters.AddWithValue("@SISTEMA", CodigoSistema)
cmd.Parameters.AddWithValue("@MENU", NombreCabecera)
cmd.ExecuteNonQuery()
da = New SqlDataAdapter(cmd)
da.Fill(dt)
Dim vlim As Short = CShort(dt.Rows.Count - 1)
Dim vposi As Short
For vposi = 0 To vlim
mnuSubOpcion = New ToolStripMenuItem(Trim(dt.Rows(vposi).Item("DESCRI PCION").ToString()))
mnuSubOpcion.Tag = Trim(dt.Rows(vposi).Item("DESCRIPCION").ToString() )
mnuSubOpcion.Image = Imagen.Images(1)
mnuSubOpcion.TextAlign = ContentAlignment.TopCenter
NombreSubmenu = Trim(dt.Rows(vposi).Item("MENU").ToString())
mnuSubOpcion.ForeColor = Color.Blue
'Añadir Opcion
menuOpcion.DropDownItems.Add(mnuSubOpcion)
Next
AddHandler mnuSubOpcion.Click, AddressOf LevantaFormulario


*******

PERO RESULTA QUE AL MOMENTO DE LLAMAR AL EVENTO 'LEVANTA FORMULARIO' SOLO LLAMA AL ULTIMO FORMULARIO, NO SE COMO HACERLO PARA QUE AL MOMENTO DE HACERLE CLICK CARGUE EL FORM ADECUADO, A LO MEJOR AL MOMENTO DE AGREGAR EL FORMULARIO SE AGREGA UN INDICE.

QUIEN ME PUEDE DECIR COMO SOLUCIONAR ESTE PROBLEMA, O COMO USAR LOS INDICES.

GRACIAS

[Aquaventus]

Hola Giufantasy lo que haces esta bien, solo lo que tendrias que hacer es controlar los formularios en cada evento al que seleccionas de esta manera :

Código vb.net:

Dim dt As New DataTable
Dim da As New SqlDataAdapter
'Ejecutando procedimiento para codigos de barra.
Dim cmd As New SqlCommand
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.CommandText = "SP_BUSCA_FORMULARIOS_X_MENU"
cmd.Connection = SQLcnn
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@RUT", RutUsuario)
cmd.Parameters.AddWithValue("@SISTEMA", CodigoSistema)
cmd.Parameters.AddWithValue("@MENU", NombreCabecera)
cmd.ExecuteNonQuery()
da = New SqlDataAdapter(cmd)
da.Fill(dt)
Dim vlim As Short = CShort(dt.Rows.Count - 1)
Dim vposi As Short
For vposi = 0 To vlim
mnuSubOpcion = New ToolStripMenuItem(Trim(dt.Rows(vposi).Item("DESCRI PCION").ToString()))
mnuSubOpcion.Tag = Trim(dt.Rows(vposi).Item("DESCRIPCION").ToString() )
mnuSubOpcion.Image = Imagen.Images(1)
mnuSubOpcion.TextAlign = ContentAlignment.TopCenter
NombreSubmenu = Trim(dt.Rows(vposi).Item("MENU").ToString())
mnuSubOpcion.ForeColor = Color.Blue
'Añadir Opcion
menuOpcion.DropDownItems.Add(mnuSubOpcion)
'Esto va dentro para que se asignen a todos, si lo pones fuera solo agrega al ultimo
AddHandler mnuSubOpcion.Click, AddressOf LevantaFormulario
Next
 

tu evento LevantaFormulario :

Código vb.net:

Public Sub LevantaFormulario()
        'Extraigo el nombre del control seleccionado
        Select Case Me.ActiveControl.Name.ToString
            'Comparo si es igual a :
            Case "form1"
                Dim x as new Form1
                x.Show()
            Case "form2"
                Dim y as new Form2
                y.Show()
        End Select
End Sub
 

Trata de asignar nombres a tus subitems para que hagas la comparacion. Saludos!

[Giufantasy]

Gracias por responder, mira esto tengo en el levantaFormulario

Dim Formulario As String
Dim wSTproyecto As String = System.Reflection.Assembly.GetExecutingAssembly.Ge tName.Name
abrirConexion()
conectaSQL()

Dim da As SqlDataAdapter
Dim dt4 As New DataTable
Dim cmd As New SqlCommand
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.CommandText = "SP_CARGA_FORMULARIO"
cmd.Connection = SQLcnn
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@MENU", NombreSubmenu)
cmd.Parameters.AddWithValue("@DESCRIPCION", mnuSubOpcion.Tag)
cmd.ExecuteNonQuery()
da = New SqlDataAdapter(cmd)
da.Fill(dt4)
If dt4.Rows.Count > 0 Then
Formulario = dt4.Rows(0).Item(0)
Dim ensamblado As [Assembly] = [Assembly].GetExecutingAssembly()
Dim f As Form = ensamblado.CreateInstance(wSTproyecto + "." + Formulario, True)
f.ShowDialog()
End If
cerrarConexion()
Exit Sub

en este evento cargo el formulario por el menu y descripcion
como dices tu que tengo que hacer para que reconozco el formulario que estoy cargando

[Giufantasy]

lo otro amigo Aquaventus al momento de pasar por el Me.ActiveControl.Name.ToString me sale el error "Referencia a objeto no establecida como instancia de un objeto".
No se como sacar ese error o a que se refiere si solo se esta activando el control.
?????

Gracias por tu ayuda

[Aquaventus]

veo que tienes este codigo

Código vb.net:

NombreSubmenu = Trim(dt.Rows(vposi).Item("MENU").ToString())
 

agregalo de esta manera :

Código vb.net:

NombreSubmenu = Trim(dt.Rows(vposi).Item("MENU").ToString())
mnuSubOpcion.name = NombreSubmenu
 

y luego en tu metodo LevantaFormulario lo harias asi :

Código vb.net:

Dim Formulario As String
Dim wSTproyecto As String = System.Reflection.Assembly.GetExecutingAssembly.Ge tName.Name
abrirConexion()
conectaSQL()
 
Dim da As SqlDataAdapter
Dim dt4 As New DataTable
Dim cmd As New SqlCommand
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.CommandText = "SP_CARGA_FORMULARIO"
cmd.Connection = SQLcnn
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@MENU", NombreSubmenu)
cmd.Parameters.AddWithValue("@DESCRIPCION", mnuSubOpcion.Tag)
cmd.ExecuteNonQuery()
da = New SqlDataAdapter(cmd)
da.Fill(dt4)
If dt4.Rows.Count > 0 Then
Formulario = dt4.Rows(0).Item(0)
Dim ensamblado As [Assembly] = [Assembly].GetExecutingAssembly()
'Aqui extraes el nomre del formulario que se guardo en el nombre del control
Dim f As Form = ensamblado.CreateInstance(wSTproyecto + "." + Me.ActiveControl.Name.ToString, True)
f.ShowDialog()
End If
cerrarConexion()
Exit Sub
 

Lo pruebas y me cuentas. Saludos!

[Aquaventus]

"Me.ActiveControl.Name.ToString" extrae el nombre del control al cual se hizo alguna accion como por ejemplo cuando creas botones dinamicos y agregas un metodo com handler como lo hize arriba es averigua segun el handler relacionado a cierto control, una vez obtenido el control extraigo el nombre al cual se referencio, si creé 3 botones a los cuales les agrege el mismo handler (btnAgregar,btnEliminar y btnmodificar) y le hize clic al boton btnAgregar me obtiene su nombre que es "btnAgregar".

[Aquaventus]

mm ahora que veo bien tu codigo creo que no iria con mi codigo, que quedaria algo asi:

Código vb.net:

Dim Formulario As String
Dim wSTproyecto As String = System.Reflection.Assembly.GetExecutingAssembly.Ge tName.Name
Dim ensamblado As [Assembly] = [Assembly].GetExecutingAssembly()
'Aqui extraes el nomre del formulario que se guardo en el nombre del control
Dim f As Form = ensamblado.CreateInstance(wSTproyecto + "." + Me.ActiveControl.Name.ToString, True)
f.ShowDialog()
Exit Sub
 

[Giufantasy]

amigo Aquantus, hice lo que me dijiste, pero sucede que al momento de Levantar el formulario

Dim da As SqlDataAdapter
Dim dt4 As New DataTable
Dim cmd As New SqlCommand
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.CommandText = "SP_CARGA_FORMULARIO"
cmd.Connection = SQLcnn
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@MENU", NombreSubmenu)
cmd.Parameters.AddWithValue("@DESCRIPCION", mnuSubOpcion.Tag)
cmd.ExecuteNonQuery()
da = New SqlDataAdapter(cmd)
da.Fill(dt4)
If dt4.Rows.Count > 0 Then
Formulario = dt4.Rows(0).Item(0)
Dim ensamblado As [Assembly] = [Assembly].GetExecutingAssembly()
'Aqui extraes el nomre del formulario que se guardo en el nombre del control
Dim f As Form = ensamblado.CreateInstance(wSTproyecto + "." + Me.ActiveControl.Name.ToString, True)
f.ShowDialog()
Exit Sub

End If

los parametros NombreSubmenu y mnuSubOpcion.Tag que le paso al Procedimiento almacenado ya van con el ultimo formulario cargado y lo otro que el Active control me sigue dando error "Referencia a objeto no establecida como instancia de un objeto."

que puedo hacer?

Gracias nuevamente por tu ayuda...

[Aquaventus]

mmm se me hace raro que te bote esa linea de codigo un error... yo lo ando probando y no tengo problemas... crea un boton y en su evento click colocale MessageBox.Show(Me.ActiveControl.Name.ToString) para que veas...

[Giufantasy]

puede set porque el Private Sub LevantaFormulario(ByVal sender As System.Object, ByVal e As System.EventArgs) es un metodo que cree yo, porque en el diseñador lo unicoq eu tengo es el MenuStrip y nada mas, cargo el menu, y luego por cada menu cargo los formularios...
Pero aun me da el error y no he podido sacarlo

como lo puedo hacer amigo Aquaventus

Gracias

[Aquaventus]

Giufantasy Ya analizando mejor tu codigo creo que ya comprendi toda tu logica, por tanto me parece que debe quedar asi :

Código vb.net:

Dim dt As New DataTable
Dim da As New SqlDataAdapter
'Ejecutando procedimiento para codigos de barra.
Dim cmd As New SqlCommand
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.CommandText = "SP_BUSCA_FORMULARIOS_X_MENU"
cmd.Connection = SQLcnn
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@RUT", RutUsuario)
cmd.Parameters.AddWithValue("@SISTEMA", CodigoSistema)
cmd.Parameters.AddWithValue("@MENU", NombreCabecera)
cmd.ExecuteNonQuery()
da = New SqlDataAdapter(cmd)
da.Fill(dt)
Dim vlim As Short = CShort(dt.Rows.Count - 1)
Dim vposi As Short
For vposi = 0 To vlim
mnuSubOpcion = New ToolStripMenuItem()
mnuSubOpcion.Text = Trim(dt.Rows(vposi).Item("DESCRI PCION").ToString())
mnuSubOpcion.Tag = Trim(dt.Rows(vposi).Item("DESCRIPCION").ToString() )
mnuSubOpcion.Image = Imagen.Images(1)
mnuSubOpcion.TextAlign = ContentAlignment.TopCenter
NombreSubmenu = Trim(dt.Rows(vposi).Item("MENU").ToString())
mnuSubOpcion.Name = TNombreSubMenu
mnuSubOpcion.ForeColor = Color.Blue
'Añadir Opcion
menuOpcion.DropDownItems.Add(mnuSubOpcion)
AddHandler mnuSubOpcion.Click, AddressOf LevantaFormulario
Next
 

Código vb.net:

Dim Formulario As String
Dim wSTproyecto As String = System.Reflection.Assembly.GetExecutingAssembly.Ge tName.Name
abrirConexion()
conectaSQL()
 
Dim da As SqlDataAdapter
Dim dt4 As New DataTable
Dim cmd As New SqlCommand
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.CommandText = "SP_CARGA_FORMULARIO"
cmd.Connection = SQLcnn
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@MENU", Me.ActiveControl.Name.ToString)
cmd.Parameters.AddWithValue("@DESCRIPCION", Me.ActiveControl.Text)
cmd.ExecuteNonQuery()
da = New SqlDataAdapter(cmd)
da.Fill(dt4)
If dt4.Rows.Count > 0 Then
Formulario = dt4.Rows(0).Item(0)
Dim ensamblado As [Assembly] = [Assembly].GetExecutingAssembly()
Dim f As Form = ensamblado.CreateInstance(wSTproyecto + "." + Formulario, True)
f.ShowDialog()
End If
cerrarConexion()
Exit Sub
 

Sino te funciona el "Me.ActiveControl..." es muy raro... debe faltar algo..... xq yo lo uso normal sin ningun problema...

[Aquaventus]

no hagas caso a este mensaje escribí algo de mas....XD y tuve que editarlo :).

PDT: Regreso en 1 hora, me voy a mi hora de almuerzo... ya regresoo..

[Giufantasy]

Para el Me.ActiveControl habra que hacer alguna referencia o algo parecido, instanciarlo??

atento a tu respuesta

[Aquaventus]

pues veo que no ninguna referencia... en todo sino tienes teamviewer 6 lo descargas aqui y una vez que lo inicias me dices tu id y tu password a mi correo para verlo remotamente y solucionar tu problema.

PDT: mi correo es [email protected]

[Giufantasy]

Listo el correo... lo envie

[Aquaventus]

Si hay alguien que sepa de "Me.ActiveControl.Name.ToString" porque en VS2003 bota "Referencia a objeto no establecida como instancia de un objeto" y en VS2008 no hay problemas, por favor nos comenta de manera que ayuda a Giufantasy y libera dudas. Saludos!
Giufantasy trabaja con el VS 2003.
PDT: Giufantasy si logras solucionarlo nunca olvides postear la solucion. Saludos !

[Giufantasy]

Gracias por tu ayuda Aquaventus, Tratare de realizarlo en visual studio 2005
si logro hacerlo, publico la solucion