Differenze tra le versioni di "Colorare il fondo di una cella di una GridView"

Da Gambas-it.org - Wikipedia.
Riga 29: Riga 29:
 
   
 
   
 
  Public Sub GridView1_Click()
 
  Public Sub GridView1_Click()
 +
 +
  GridView1<FONT Color=red>.Current</font>.Background = Color.Red
 +
 +
End
 +
 +
 +
===Spostandosi su una cella tendo premuto il tasto del mouse===
 +
In questo caso si dovrà porre la Proprietà ".Tracking" a "False" (essendo di default posta a "True"), al fine di evitare che l'Evento "_MouseMove()" si sollevi non appena il puntatore del mouse sia entrato all'interno della ''GridView''.
 +
<BR>Si farà inolre uso della Proprietà ".Current" della Classe ''GridView''.
 +
Public Sub Form_Open()
 +
 +
  With GridView1
 +
    .Rows.Count = 3
 +
    .Columns.Count = 4
 +
    <FONT Color=red>.Tracking = False</font>
 +
  End With
 +
 +
End
 +
 +
 +
Public Sub GridView1_MouseMove()
 
   
 
   
 
   GridView1<FONT Color=red>.Current</font>.Background = Color.Red
 
   GridView1<FONT Color=red>.Current</font>.Background = Color.Red
 
   
 
   
 
  End
 
  End

Versione delle 08:11, 10 ago 2024

Possiamo avere diverse circostanze, nelle quali colorare la cella di una GridView.


Individuare la cella e impostare il colore da codice

In questo caso si individuerà direttamente la cella:

Public Sub Form_Open()

 With GridView1
   .Rows.Count = 3
   .Columns.Count = 4
 End With

 GridView1[1, 1].Background = Color.Red

End


Individuare la cella cliccandoci dentro con il puntatore del mouse

In questo caso si userà la Proprietà ".Current" della Classe GridView.

Public Sub Form_Open()

 With GridView1
   .Rows.Count = 3
   .Columns.Count = 4
 End With

End


Public Sub GridView1_Click()

 GridView1.Current.Background = Color.Red

End


Spostandosi su una cella tendo premuto il tasto del mouse

In questo caso si dovrà porre la Proprietà ".Tracking" a "False" (essendo di default posta a "True"), al fine di evitare che l'Evento "_MouseMove()" si sollevi non appena il puntatore del mouse sia entrato all'interno della GridView.
Si farà inolre uso della Proprietà ".Current" della Classe GridView.

Public Sub Form_Open()

 With GridView1
   .Rows.Count = 3
   .Columns.Count = 4
   .Tracking = False
 End With

End


Public Sub GridView1_MouseMove() 

 GridView1.Current.Background = Color.Red

End