Buongiorno a tutto il team!
E' risaputo che con un controllo Vbox si possono inserire alcuni pulsanti in modo dinamico con un codice tipo questo:
dati = cn.Exec("Select * From tabella_sqlite") 'RESULT
For conta = 0 To dati.fields.count - 1 'CICLA NEI CAMPI
bott = New Button(VBox1) As "grp_bott" 'CREA IL BOTTONE NEL CONTENITORE VBOX (grp_bott)
bott.text = dati.Fields[conta].name 'RINOMINA IL BOTTONE COL NOME DEL CAMPO CORRENTE
bott.height = 20
Next
e poi con una routine evento sul gruppo bottoni ottenere il nome del pulsante premuto:
Public Sub grp_bott_Click()
Label1.caption = "Hai agito sul pulsante: " & Last.Text
end
Se però provo farlo con delle caselle di testo anzichè pulsanti, e provo ad attivare evento mousedown sul gruppo, non riesco a distinguere la casella a cui ho puntato. Vi risulta sia possibile questa cosa?