SELECIONAR LINHA INTEIRA BOTAO DIREITO MSFLXGRD

ADILSOO 21/04/2016 00:33:03
#461186
Boa noite pessoa tudo certo?
Bom, venho aqui novamente pedir a ajuda de vocês, estou precisando selecionar uma linha inteira de um MSFLEXGRID com o botão direito do mouse, pois preciso que apareça um popup menu ao clicar e ja selecionar a linha. Encontrei alguma coisa na internet, mas a unica coisa que encontrei é como selecionar a célula em questão e não a linha inteira, será que alguém poderia me ajudar? Desde já agradeço pela atenção.
Obrigado.

 Private Sub gridcadpreparo_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
With gridcadpreparo
           .Col = .MouseCol
           .Row = .MouseRow
    If Button = 2 Then
       PopupMenu mnuopcoes, , .Left + x, .Top + y
    End If
End With
End Sub

JABA 21/04/2016 00:49:20
#461189
Encontrei isso aqui, vê se funciona.

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/331603531/m/3671068731
ADILSOO 21/04/2016 12:19:28
#461194
Então, selecionar a linha inteira eu consigo, mas com o botão esquerdo, o que não consigo é selecionar a linha inteira só que com o botão direito do mouse.
DAMASCENO.CESAR 21/04/2016 12:42:27
#461195
isso não é vb 6?

o msflexgrid não tem a opção selection mode ou algo parecido para full row?
JABA 21/04/2016 14:33:54
#461196 
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    
   If Button = vbRightButton Then
        With MSFlexGrid1
            .Row = .MouseRow
            .Col = .MouseCol
            .RowSel = .MouseRow
            .ColSel = .MouseCol
            .HighLight = flexHighlightAlways
        End With
    End If
    
End Sub

Private Sub MSFlexGrid1_RowColChange()

        MSFlexGrid1.Col = 0
        SendKeys [Ô]{Left}[Ô]

End Sub
ADILSOO 21/04/2016 17:01:08
#461199
Opa, agora parece que vai... , mas , um dos problemas que aconteceram foi que:

  • quando clico com o direito do mouse, ele seleciona inteira a linha, até aí blz, o problema foi que ele renomeia todos os cabeçalhos e deixa sem valor nenhum, mas seleciona.

  • Agora, quando coloco pra aparecer o PopupMenu, ele somente seleciona até a celular que eu cliquei...

      Private Sub gridcadpreparo_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
       If Button = vbRightButton Then
            With gridcadpreparo
                .Row = .MouseRow
                .Col = .MouseCol
                .RowSel = .MouseRow
                .ColSel = .MouseCol
                .HighLight = flexHighlightAlways
                PopupMenu mnuopcoes, , .Left + x, .Top + y
            End With
        End If
    End Sub 


      Private Sub gridcadpreparo_RowColChange()
    gridcadpreparo.Col = 1
    SendKeys
    • [Ô]{Left}[Ô]
    End Sub

    ADILSOO 23/04/2016 22:43:41
    #461308
    Alguém?
    Tópico encerrado , respostas não são mais permitidas
    Voltar