veo que tienes este codigo
Código vb.net:
Ver originalNombreSubmenu
= Trim(dt
.Rows(vposi
).Item("MENU").ToString())
agregalo de esta manera :
Código vb.net:
Ver originalNombreSubmenu
= Trim(dt
.Rows(vposi
).Item("MENU").ToString())mnuSubOpcion.name = NombreSubmenu
y luego en tu metodo LevantaFormulario lo harias asi :
Código vb.net:
Ver originalDim 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
!