早速のご回答ありがとうございます。
戴いたアドバイスを参考に以下のように作成したところ
望んだ通りの挙動になりました。
Private Sub dgvMain_ColumnHeaderMouseClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvMain.ColumnHeaderMouseClick
Dim i As Integer = 0
dgvMain.ClearSelection()
For i = 0 To dt.Rows.Count - 1
dgvMain.Item(e.ColumnIndex, i).Selected = True
Next
End Sub
Private Sub dgvMain_RowHeaderMouseClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvMain.RowHeaderMouseClick
Dim i As Integer = 0
dgvMain.ClearSelection()
For i = 0 To dt.Columns.Count - 1
dgvMain.Item(i, e.RowIndex).Selected = True
Next
dgvMain.Rows(e.RowIndex).Selected = True
End Sub
行ヘッダーの三角が移動しなかったので、
CurrentCellにクリックした行の情報を突っ込むことで
なんとかそれっぽく動きました。
ありがとうございました。
お礼
早速のご回答ありがとうございます。 戴いたアドバイスを参考に以下のように作成したところ 望んだ通りの挙動になりました。 Private Sub dgvMain_ColumnHeaderMouseClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvMain.ColumnHeaderMouseClick Dim i As Integer = 0 dgvMain.ClearSelection() For i = 0 To dt.Rows.Count - 1 dgvMain.Item(e.ColumnIndex, i).Selected = True Next End Sub Private Sub dgvMain_RowHeaderMouseClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvMain.RowHeaderMouseClick Dim i As Integer = 0 dgvMain.ClearSelection() For i = 0 To dt.Columns.Count - 1 dgvMain.Item(i, e.RowIndex).Selected = True Next dgvMain.Rows(e.RowIndex).Selected = True End Sub 行ヘッダーの三角が移動しなかったので、 CurrentCellにクリックした行の情報を突っ込むことで なんとかそれっぽく動きました。 ありがとうございました。