Propongo qualcosa del genere (sempre che io abbia capito):
Private $bLeft As Boolean
Public Sub Form_Open()
With GridView1
.Header = 3
.Columns.Count = 4
.Columns[0].Text = "ID"
.Columns[1].Text = "NOME"
.Columns[2].Text = "COGNOME"
.Columns[3].Text = "DATA"
.Columns.Width = -1
.Rows.Count = 20
End With
End
Public Sub GridView1_MouseDown()
$bLeft = Mouse.Left
End
Public Sub GridView1_Click()
Dim sKey As String
If $bLeft Then
sKey = " sinistro "
Else
sKey = " destro "
Endif
Print "Hai cliccato col tasto"; sKey; "del mouse sulla cella["; GridView1.Row + 1; ", "; GridView1.Column + 1; "]"
End