DATAGRID
Eu preciso clicar em qualquer linha do DataGrid no vb6 e mostrar a célula clicada em um Label. eu fiz da seguinte forma:
frmX.txtNumeroOp.Text = Trim$(grdAbrir.Columns.Item(1).Text)
Porém ele só mostra a célula da primeira linha, alguém por favor sabe como resolver isso?
frmX.txtNumeroOp.Text = Trim$(grdAbrir.Columns.Item(1).Text)
Porém ele só mostra a célula da primeira linha, alguém por favor sabe como resolver isso?
Private Sub grdAbrir_Click()
Text1.Text = grdAbrir.Columns.Item(0).Text
Text2.Text = grdAbrir.Columns.Item(2).Text
[ô]Text3.Text = DataGrid1.Columns.Item(3).Text
Form9.Text3.Text = Trim$(grdAbrir.Columns.Item(1).Text)
End Sub
Este foi o teste que fiz aqui no meu projeto de teste.
Normal em qualquer linha do Datagrid clicada.
Text1.Text = grdAbrir.Columns.Item(0).Text
Text2.Text = grdAbrir.Columns.Item(2).Text
[ô]Text3.Text = DataGrid1.Columns.Item(3).Text
Form9.Text3.Text = Trim$(grdAbrir.Columns.Item(1).Text)
End Sub
Este foi o teste que fiz aqui no meu projeto de teste.
Normal em qualquer linha do Datagrid clicada.
Ele funciona, mas só se eu der 2 cliques, ele teria que funcionar apenas com um clique.
Mudei para o MSHFlexGrid alguém pode me ajudar selecionar uma célula dele e aparecer num label o resultado?
Olhe este.O listview é melhor.
Private Sub MSHFlexGrid1_Click()
MSHFlexGrid1.Col = 1
Text1 = MSHFlexGrid1.Text
MSHFlexGrid1.Col = 2
Text2 = MSHFlexGrid1.Text
MSHFlexGrid1.Col = 3
Text3 = MSHFlexGrid1.Text
Label1.Caption = MSHFlexGrid1.Text
End Sub
Private Sub MSHFlexGrid1_Click()
MSHFlexGrid1.Col = 1
Text1 = MSHFlexGrid1.Text
MSHFlexGrid1.Col = 2
Text2 = MSHFlexGrid1.Text
MSHFlexGrid1.Col = 3
Text3 = MSHFlexGrid1.Text
Label1.Caption = MSHFlexGrid1.Text
End Sub
assim colega no evento click do flexgrid
Label.Caption = MSFlexgrid1.TextMatrix(MSFlexgrid1.RowSel, MSFlexgrid1.ColSel)
Tópico encerrado , respostas não são mais permitidas