Ayuda en Menus de VB6
Publicado por Sahid Ra Gutierrez Cruz (191 intervenciones) el 28/01/2021 09:44:19
Saludos tengo rato queriendo solucionar lo siguiente
En VB6 con el editor de menús cree lo siguiente
y mi intencion es hacer lo siguiente en tiempo de ejecucion
y el codigo que e utilizado es el siguiente:
y el resultado es el siguiente.
Estaré al pendiente, a sus consejos.
En VB6 con el editor de menús cree lo siguiente
1
2
3
[mProgramas]Programas
...[mPrograma(0)]Programa
......[mCiclo(0)]Ciclo
y mi intencion es hacer lo siguiente en tiempo de ejecucion
1
2
3
4
5
6
[mProgramas]Programas
...[mPrograma(0)]Programa0
......[mCiclo(0)]Ciclo0
...[mPrograma(1)]Programa1
......[mCiclo(1)]Ciclo1
......[mCiclo(2)]Ciclo2
y el codigo que e utilizado es el siguiente:
1
2
3
4
5
6
7
8
9
10
Option Explicit
Private Sub Form_Load()
Load mPrograma(1)
mPrograma(1).Caption ="Programa1"
Load mCiclo(1)
mCiclo(1).Caption = "Ciclo1"
Load mCiclo(2)
mCiclo(2).Caption = "Ciclo2"
End Sub
y el resultado es el siguiente.
1
2
3
4
5
6
[mProgramas]Programas
...[mPrograma(0)]Programa0
......[mCiclo(0)]Ciclo0
......[mCiclo(1)]Ciclo1
......[mCiclo(2)]Ciclo2
...[mPrograma(1)]Programa1
Estaré al pendiente, a sus consejos.
Valora esta pregunta
0