[VB6] Selezionare tutte le righe di una tabella

[albertomula]

Ciao, ho un problema.

Da una tabella seleziono con un click le righe che mi interessa visualizzare con il seguente codice:

Private Sub Famiglie_grid_Click()
Famiglie_grid.Col = 0
If Famiglie_grid.Text = "X" Then
Famiglie_grid.Text = ""
codcount = codcount - 1
Else
Famiglie_grid.Text = "X"
codcount = codcount + 1
End If
codcount2 = codcount
End Sub

e poi le riporto su una Text con il seguente codice:

Private Sub Seleziona_cmd_Click()
Dim i As Integer, s As Integer
ReDim SchedeTec(codcount)
ReDim Tipo(codcount)
s = -1
For i = 1 To Famiglie_grid.Rows - 1
If Famiglie_grid.TextMatrix(i, 0) = "X" Then
s = s + 1
SchedeTec(s) = Famiglie_grid.TextMatrix(i, 2)
Tipo(s) = Famiglie_grid.TextMatrix(i, 3)
Form1.selm_txt(0).Text = Form1.selm_txt(0).Text & vbCrLf & "Scheda Tecnica: " & Famiglie_grid.TextMatrix(i, 1)
End If
Next i

Unload Me
End Sub

e tutto funziona. Se però volessi creare la possibiltà di selezionare tutte le righe in un colpo solo (con un pulsante, un flag o in qualunque altro modo), come devo fare?

Grazie

[LeleFT]

Manca l'indicazione del linguaggio che usi!
Va indicata anche nel titolo, come da Regolamento.


Ciao.