LINHA SELECIONADA MSHFLEXGRID

LCSD 15/09/2009 18:15:40
#322977
Pessoal,

Eu já ví isso aquí no FORUM, mas não estou conseguindo me recordar como o tópico foi feito.
Se eu não me engano, até eu mesmo já devo ter perguntado isso aquí uma vez, mas não estou conseguindo localizar a resposta, por isso pesso novamente a ajuda.

Como é que eu faço para saber se eu tenho uma linha selecionada no meu MSHFLEXGRID?
Ele já está com a propriedade SelectionMode = 1 - flexSelectionByRow

Agora preciso saber se ela está realmente selecionada, ou apenas com o FOCO sobre a linha. Me ajudem, PLEASE!???
DANIKULL 15/09/2009 19:20:09
#322981
LCSD, boa noite.

Se eu entendi sua dúvida faça assim:


SeuGrid.Row
[ô]Coloque um msgbox para verificar, ok??
MsgBox SeuGrid.Row


vai mostar que linha esta selecionada.
FGSANTOS 15/09/2009 23:05:21
#322996 Resposta escolhida
Pode testar tambem se tem linhas no gride:

if grid.rows > 1 then [ô]sendo a linha 1 o cabecalho do gride (nome das colunas)
[ô]para pegar o conteudo de uma celula
grid.textmatrix(grid.row,3) [ô]pega a coluna 3, lembrando que é array base 0
endif

Só falei estas coisas pois serve para relembrar...
ROBIU 16/09/2009 08:05:47
#323000
Veja esses códigos:
Para pegar o valor da linha e colocar no textbox, 
Private Sub HGrid_Click()
    Txt1.Text = HGrid.TextMatrix(HGrid.Row, 0) [ô]Coluna Codigo
    Txt2.Text = HGrid.TextMatrix(HGrid.Row, 1)[ô]Coluna Nome
End Sub

Para pintar a linha de Azul quando celecionada e deixar normal quando perder o foco:

Private Sub HGrid_EnterCell()
    HGrid_Click
    Dim A As Integer
    For A = 0 To HGrid.Cols - 1
        HGrid.Col = A
        HGrid.Row = HGrid.Row
        HGrid.CellBackColor = &H8000000D      [ô]Linha na cor Azul
        HGrid.CellForeColor = &H80000005          [ô]Letras Branca
    Next A
        HGrid.Col = 0
End Sub

Private Sub HGrid_LeaveCell()
    Dim A As Integer
    For A = 0 To HGrid.Cols - 1
        HGrid.Col = A
        HGrid.Row = HGrid.Row
        HGrid.CellBackColor = &H80000014     [ô]Linha na cor branca
        HGrid.CellForeColor = &H0&          [ô]Letras Preto
    Next A

End Sub
LCSD 16/09/2009 10:25:34
#323013
Pessoal, muito obrigado.

Conseguí com a ajuda de todos fazer o que estava precisando......
Tópico encerrado , respostas não são mais permitidas
Voltar