Carregar PopupMenu


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Carregar PopupMenu

Treze
não registrado

ENUNCIADA !

Postada em 14/12/2007 10:48 hs

Caro colega não sei se você reparou mas onde está movemin deveria estar o seguinte

M.o.v.e.F.i.r.s.t sem os ponto claro, reparei neste forum que ele altera automáticamente certas palavras e esta é uma delas, tente arrumar este comando e creio que dara certo

até

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 14/12/2007 11:04 hs

o código em vermelho é onde tem de ter alteração

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C: empBDTESTE.MDB;Persist Security Info=False"
    cn.Open

    Set rs = New ADODB.Recordset
    rs.CursorType = adOpenStatic
    rs.CursorLocation = adUseClient
    rs.Open "Select * From Estado", cn
End Sub

Private Sub Command1_Click()
    Dim i As Integer
    'Antes de criar os itens no menu é necessário remover os que existem
    mnuColuna(0).Visible = True
    For i = 1 To mnuColuna.Count - 1
        Unload mnuColuna(i)
    Next i

    rs.MoveMin 'Move para o primeiro registro
    i = 0
    Do While Not rs.EOF
        i = i + 1
        Load mnuColuna(i)
        mnuColuna(i).Caption = rs(0).Value
        rs.MoveNext
    Loop
    mnuColuna(0).Visible = False

    PopupMenu mnuTabela
End Sub

TÓPICO EDITADO

ED - Caret
não registrado

ENUNCIADA !

Postada em 14/12/2007 11:24 hs

Não é este o problema..... já o corrigi outrora

Acontece que da erro na linha conforme foi dito, dando erro na linha Unload....

Quando é aberto pela 1º vez o mnu esta como '0'.blz

Quando tento abri de novo o mnu esta carregado, por ex '10'

Se eu simulo a parte o descarregamento tudo bem, sem problemas. Mas se junta tudo num unico evento dá pau. Tentei colocar até mesmo um Timer, mas não deu certo tambem.

'Antes de criar os itens no menu é necessário remover os que existem
    mnuColuna(0).Visible = True
    For i = 1 To mnuColuna.Count - 1
        Unload mnuColuna(i) 'o problema esta aqui quando abre mais de um vez
    Next i

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 14/12/2007 11:54 hs

fiz o código aqui e deu certo, bom quando criei o menu ele aprsentou um erro, que corrigi da seguinte forma , na propriedade INDEX do submenu mnucoluna coloquei 0 e o problema sumiu

tenta isso

ED - Caret
não registrado

ENUNCIADA !

Postada em 14/12/2007 13:47 hs

Isso ja fiz.....

Não existe nenhum problema de funcionanento, exceto quando selecionado o ListBox mais do que uma vez.

O problema esta na evocação do Unload.

Fiz um simulado onde coloquei o seguinte codigo dentro de um botão:

...

For i = 1 To mnuColuna.Count - 1
Unload mnuColuna(i)
Next i
...

Depois cliquei no Lista onde apresenta o restante do codigo:

...

rs.MoveMin
    i = 0
    Do While Not rs.EOF
        i = i + 1
        Load mnuColuna(i)
        mnuColuna(i).Caption = rs(0).Value
        rs.MoveNext
    Loop
    mnuColuna(0).Visible = False
   PopupMenu mnuTabela
.............

CONCLUSÃO:

Clico no ListBox e blz, o mnu esta lá perfeito

Se vou selecionar outro item no ListBox, clico 1º no botão e depois no list, e tudo funciona perfeito, mas tem que descarregar no evento click do botão 1º, senão da o erro.

Percebo que é coisa simples, porem não estou conseguindo resolver a contento.

ED - Caret
não registrado

ENUNCIADA !

Postada em 17/12/2007 15:34 hs

...Como faço então para carregar a PopupMenu a partir de uma ComboBox????

Página(s): 2/2 « ANTERIOR

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR