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... :$
Código:
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
Código:
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"
Marcadores