Scribd
Cargar
35 vistas1 página

Visual Basic

Cargado por

James Brocklet Horn
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd
35 vistas1 página

Visual Basic

Cargado por

James Brocklet Horn
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd

For Each seccion As Seccion In Secciones 'Secciones es una lista de clases de Seccion (List OF(Seccion))...

tu puedes usa r un 'DataTable Dim SeccionItem As New ToolStripMenuItem() ' Se coloca el nombre a la seccion para ser controlada al ingresar los items de detalle [Link] = [Link] [Link] = [Link] 'Le asigno la identidad al encabezado del men o Seccin Dim cMen As New cMenu 'cMen es una clase que me sirve para llenar los listados MenuSeccion = [Link]([Link], [Link]) 'Recorro el resultado For Each mnuItem As SysMenu In MenuSeccion Dim item As New CustomMenuItem([Link], New EventHandler(AddressOf Me nu_Click)) [Link] = [Link] [Link] = [Link] [Link] = [Link] [Link] = [Link] [Link](item) Next [Link](SeccionItem) Next End If End Sub Y este mtodo talvez te sirva: El parmetro nombre Form debe ser as : "[Link]", sino te da error Private Function GetNewInstanceFromString(ByVal NombreForm As String) As System. [Link] Dim Frm As New Object Dim toop As New [Link] Dim valor As New [Link](Frm) valor = [Link]([Link] tExecutingAssembly(). FullName, NombreForm) toop = CType([Link], Form) Return toop End Function

También podría gustarte