BOTAO DIREITO DO MOUSE EM FLEXGRID
Olá a todos...
Estou precisando configurar o meu FlexGrid para apresentar opções com o botão direito do Mouse...não tenho noção de como iniciar um script para isso...
Tipo assim:
Ao clicar com o botão Direito do Mouse, apresentar duas opções: Alterar, Excluir...e ao selecionar a opção executar o script (esses eu já tenho).
Acho que só vai com API...
Se alguém puder me dá uma ajuda aê eu agradeço
Estou precisando configurar o meu FlexGrid para apresentar opções com o botão direito do Mouse...não tenho noção de como iniciar um script para isso...
Tipo assim:
Ao clicar com o botão Direito do Mouse, apresentar duas opções: Alterar, Excluir...e ao selecionar a opção executar o script (esses eu já tenho).
Acho que só vai com API...
Se alguém puder me dá uma ajuda aê eu agradeço
Cara, agora não tenho o VB aqui, mas se não me engano vc precisa criar um menu de acordo com o que vc precisa e deixe-o invisÃvel. Depois no evento MouseDown do Flexgrid faça algo assim:
If Button = 2 Then <--- é chute, não lembro do número nem da constante. :S
PopupMenu NomeDoSeuMenuInvisÃvel
End If
na realidade LLAIA eu nem postei esta maneira pelo seguinte:
eu acredito que o problelma é que em qualevento, vc clicando com o botão direito ele realmente abre o menu, pore[ô]m ele não seleciona a cécula, ele teria de selecionar a célula com o botão direito e depois clicar com o botão esquerdo, e ter as funções naquela céllula que foi selecionada, e acho que o problema dele é este, ele queria que isto acontece-se somente clicando com o botão direito.
eu acredito que o problelma é que em qualevento, vc clicando com o botão direito ele realmente abre o menu, pore[ô]m ele não seleciona a cécula, ele teria de selecionar a célula com o botão direito e depois clicar com o botão esquerdo, e ter as funções naquela céllula que foi selecionada, e acho que o problema dele é este, ele queria que isto acontece-se somente clicando com o botão direito.
Ok Pessoal...
Achei a resposta... segue abaixo:
Meu Menú está oculto...
Achei a resposta... segue abaixo:
Private Sub FGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
With FGrid1
.Col = .MouseCol
.Row = .MouseRow
If Button = 2 Then
PopupMenu M2_Op, , .Left + x, .Top + y
End If
End With
End Sub
Meu Menú está oculto...

Tópico encerrado , respostas não são mais permitidas