Differenze tra le versioni di "Individuare con quale tasto del mouse si è cliccato in una cella della GridView"
Da Gambas-it.org - Wikipedia.
| (2 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
Per individuare con quale tasto del mouse si è cliccato in una cella di una ''GridView'', è possibile utilizzare questo semplice codice: | Per individuare con quale tasto del mouse si è cliccato in una cella di una ''GridView'', è possibile utilizzare questo semplice codice: | ||
| − | + | Public Sub Form_Open() | |
| − | + | ||
With GridView1 | With GridView1 | ||
.Columns.Count = 10 | .Columns.Count = 10 | ||
.Rows.Count = 25 | .Rows.Count = 25 | ||
End With | End With | ||
| − | |||
| − | |||
| + | End | ||
| + | |||
| + | |||
| + | Public Sub GridView1_MouseUp() | ||
| − | |||
| − | |||
Select Case Mouse.Button | Select Case Mouse.Button | ||
Case '''1''' | Case '''1''' | ||
| − | GridView1[GridView1.Row, GridView1.Column].Text = "Tasto Sinistro" | + | GridView1.Current.Text = "Tasto Sinistro" |
| + | <FONT Color=gray>' ''oppure anche così:'' GridView1[GridView1.Row, GridView1.Column].Text = "Tasto Sinistro"</font> | ||
Case '''2''' | Case '''2''' | ||
| − | GridView1[GridView1.Row, GridView1.Column].Text = "Tasto Destro" | + | GridView1.Current.Text = "Tasto Destro" |
| + | <FONT Color=gray>' ''oppure anche così:'' GridView1[GridView1.Row, GridView1.Column].Text = "Tasto Destro"</font> | ||
End Select | End Select | ||
| − | + | ||
| − | GridView1.Columns[GridView1.Column].Width = -1 <FONT Color=gray>' <SUP>[[[#Note| | + | GridView1.Columns[GridView1.Column].Width = -1 <FONT Color=gray>'</font> <SUP>[[[#Note|nota 1]]]</sup> |
| − | + | ||
| − | + | End | |
=Note= | =Note= | ||
| − | [1] Vedere questa pagina: [[ | + | [1] Vedere questa pagina: [[Adattare automaticamente l'altezza e la larghezza di una cella di una GridView al testo contenuto]] |
Versione attuale delle 05:03, 23 lug 2023
Per individuare con quale tasto del mouse si è cliccato in una cella di una GridView, è possibile utilizzare questo semplice codice:
Public Sub Form_Open()
With GridView1
.Columns.Count = 10
.Rows.Count = 25
End With
End
Public Sub GridView1_MouseUp()
Select Case Mouse.Button
Case 1
GridView1.Current.Text = "Tasto Sinistro"
' oppure anche così: GridView1[GridView1.Row, GridView1.Column].Text = "Tasto Sinistro"
Case 2
GridView1.Current.Text = "Tasto Destro"
' oppure anche così: GridView1[GridView1.Row, GridView1.Column].Text = "Tasto Destro"
End Select
GridView1.Columns[GridView1.Column].Width = -1 ' [nota 1]
End
Note
[1] Vedere questa pagina: Adattare automaticamente l'altezza e la larghezza di una cella di una GridView al testo contenuto
