MENUS EM RUN-TIME

USUARIO.EXCLUIDOS 22/03/2004 16:34:52
#16484
Galera, preciso saber como criar menus dinamicamente (baseados em consultas ao banco de dados), em run-time. Alguém pode me ajudar?
USUARIO.EXCLUIDOS 22/03/2004 17:04:48
#16491 Resposta escolhida
esse procedimento foi criado por mim para um programa que eu desenvolvi



Public Sub LoadClientesMenu()
Dim RsMenuClientes As Recordset
Dim RsTmp As Recordset
Dim i As Integer
Set RsMenuClientes = oCon.Execute("Select Nome From Clientes")
Set RsTmp = oCon.Execute("Select Count(*) as Total From Clientes")
If RsMenuClientes.EOF = True Then
    MDI.mnuRelatorios_AssistenciasCliente_x(0).Caption = "[Nenhum cliente encontrado]"
    MDI.mnuRelatorios_AssistenciasCliente_x(0).Enabled = False
Else
    If RsTmp!Total  MDI.mnuRelatorios_AssistenciasCliente_x.Count Then
        Do While Not RsMenuClientes.EOF
            If i = 0 Then
                MDI.mnuRelatorios_AssistenciasCliente_x(i).Visible = True
                MDI.mnuRelatorios_AssistenciasCliente_x(i).Caption = RsMenuClientes!Nome
                MDI.mnuRelatorios_AssistenciasCliente_x(i).Enabled = True
                i = i + 1
            Else
                Load MDI.mnuRelatorios_AssistenciasCliente_x(i)
                MDI.mnuRelatorios_AssistenciasCliente_x(i).Visible = True
                MDI.mnuRelatorios_AssistenciasCliente_x(i).Caption = RsMenuClientes!Nome
                MDI.mnuRelatorios_AssistenciasCliente_x(i).Enabled = True
                i = i + 1
            End If
            RsMenuClientes.MoveNext
        Loop
    End If
End If
End Sub



deverá criar um menu e depois um submenu no qual defina o INdex para 0

se precisar de mais alguma coisa avisa ...
Tópico encerrado , respostas não são mais permitidas
Voltar