| Pregunta: | 13639 - AGREGAR OPCIONES DEL MENU EN TIEMPO DE EJECUCIóN |
| Autor: | Jesus Hernandez Muñoz |
| Como puedo agregar opciones al menu en tiempo de ejecución | |
| Respuesta: | Alberto Garea Vidal |
| Doy por supuesto que en tiempo de diseño has creado una opción de menú, te envio un ejemplo para que lo adaptes, en mi caso debajo de una opción de Lista de comunidades, aparece un submenú con cada una de las comunidades que existen y que logicamente en la ejecución del programa puede ir cambiando, es decir, añadiendo o quitando comunidades, con lo cual el menú debe de ir cambiando.
lstcomunidades es el nombre generico del submenu. el control de errores esta pensado para el primer elemento del submenú, ya que debe de existir por lo menos un elemento. Sub Llenalstcomunidades() On Error GoTo ERRCARGALST Dim registro As Integer Set misql = DB.CreateQueryDef("") misql.SQL = "Select idcomuni, nombre from comunidades" Set RS = misql.OpenRecordset() If RS.RecordCount > 0 Then RS.MoveFirst registro = 0 Do ' añadir elementos al menu dinamicamente registro = registro + 1 Load lstcomunidades(registro) lstcomunidades(registro).Caption = Trim(RS.Fields(0)) & "-" & RS.Fields(1) RS.MoveNext Loop While RS.EOF = False End If SALIR: On Error GoTo 0 Exit Sub ERRCARGALST: If Err.Number = 360 Then Resume Next ' YA SE GENERO EL NUEVO INDICE DEL MENU MsgBox Err.Number & "-" & Err.Description Resume SALIR End Sub | |