1
Programmazione / Re: Simulare click su cella di un Gridview
« il: 10 Febbraio 2015, 11:22:36 »anche questa è un'ottima soluzione!
muchas gracias por tu tiempo compañer@
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
...ma il file contiene i dati per ogni cella della GridView ?
Public Sub ControllaRiempi_Gridview1()
Dim a, b As Integer
For a = 0 To GridView1.Rows.count - 1
For b = 0 To GridView1.Columns.count - 1
If GridView1[a, b].text = txtDaFile Then
GridView1[a, b].Background = Color.Gray
listView1.Remove(GridView1[a, b].Text)
.
.
.
.
Endif
Next
Next
.
.
.
.
End
Se dunque intendi invocare una sub-procedura o una funzione (ossia una sub-procedura che ritorna un valore alla funzione chiamante), puoi fare una cosa così:
Public Sub Button4_Click()
Dim a, b As Integer
For a = 0 To GridView1.Rows.count - 1
For b = 0 To GridView1.Columns.count - 1
If GridView1[a, b].text = txtDaFile Then
GridView1_Click() ' non funziona perché il CURRENT non è attivato
EndIf
Next
Next
End
Il tuo scopo è sostanzialmente quello di porre un colore all'interno di una cella della GridView.
Public Sub Gridview1_Click()
If GridView1.Current.Background = Color.Gray Then
GridView1.Current.Background = Color.White
listView1.Remove(GridView1.Current.Text)
txtBox1.Text = CInt(txtBox1.Text) - 1
Else
GridView1.Current.Background = Color.Gray
listView1.Add(GridView1.Current.Text, Format(GridView1.Current.Text, "00"))
txtBox1.Text = CInt(txtBox1.Text) + 1
Endif
.
.
.
.
End