Ayuda con menus :$

[proteo1]

Hola que tal, aqui de nuevo solicitando su apoyo

Estoy realizando un programa en donde es necesario a un menu agregarles sub menus todos con indices para poderlos modificar en tiempo de diseño.


Control
...Menu(0)
......Dato(0)

y lo que deseo es que en cada menu se genere x numero de veces necesaria
pero que dentro de cada DATo se agregen los datos de cada MENU que son diferentes, y que de un resultado asi.


Control
...Materia 1
......Calificacion a
......Calificacion b
......Calificacion c
...Materia 2
......Calificacion d
......Calificacion e
...Materia 3
......Calificacion f
......Calificacion g
......Calificacion h

Pero desgraciadamente mi resultado es


Control
...Materia 1
......Calificacion f
......Calificacion g
......Calificacion h
...Materia 2
...Materia 3


de antemano gracias por la ayuda que puedan birndar.

[Danilo51]

Buenas proteo1,
En que estás programando el Menú?

Un saludo.

[proteo1]

Buenas proteo1,
En que estás programando el Menú?

Un saludo.

jajajaja muy cierto no especifique, jajaja gracias por preguntar, pero es en VISUAL BASIC 6 :D

[proteo1]

Hola aqui ando de nuevo, esperando alguna solucion, de momento les entrego el codigo del problema en donde necesitaran menus con los siguientes nombres

Menu(Menu)
...SubMenu(Submenu con indice 0)
......sSubMenu(sSubmenu con indice 0)

Bueno eso es todo y agregan lo siguiente en el codigo, este es el que no pude modificar a a mi antojo... :$

Option Explicit

Private Sub Form_Load()
Dim Ciclo1 As Integer: Dim Ciclo2 As Integer
For Ciclo1 = 0 To 3
If Ciclo1 = Submenu.Count Then Load Submenu(Ciclo1)
Submenu(Ciclo1).Caption = "Submenu " + CStr(Ciclo1 + 1)
For Ciclo2 = 0 To 3
If Ciclo2 = sSubmenu.Count Then Load sSubmenu(Ciclo2)
sSubmenu(Ciclo2).Caption = vbTab + "Sub Submenu " + CStr(Ciclo1 + 1) + " " + CStr(Ciclo2 + 1)
Next Ciclo2
Next Ciclo1
End Sub

Pero como no daba el resultado que pedia, llegue a este conclusion, para este ya no es necesario el sSubMenu pero igual lo pueden dejar, y el codigo que usare para ello es este que no es de lo mas bonito pero con que funcione un rato ;)


Option Explicit

Private Sub Form_Load()
Dim Ciclo1 As Integer: Dim Ciclo2 As Integer: Dim Conta As Integer: Conta = 0
For Ciclo1 = 0 To 3
If Conta = Submenu.Count Then Load Submenu(Conta)
Submenu(Conta).Caption = "Submenu " + CStr(Ciclo1 + 1): Submenu(Conta).Enabled = False
Conta = Conta + 1
For Ciclo2 = 0 To 3
If Conta = Submenu.Count Then Load Submenu(Conta)
Submenu(Conta).Caption = vbTab + "Sub Submenu " + CStr(Ciclo1 + 1) + " " + CStr(Ciclo2 + 1)
Submenu(Conta).Enabled = True
Conta = Conta + 1
Next Ciclo2
Next Ciclo1
End Sub


Felices codigos, parecido a "Bob Ross"