Mostrare un Balloon in una GridView in corrispondenza della cella nella quale si è cliccato
Da Gambas-it.org - Wikipedia.
Versione del 29 ago 2020 alle 08:32 di Vuott (Discussione | contributi) (Creata pagina con "Per far apparire un ''Balloon'' in un punto stabile di una ''GridView'', ad esempio al centro della cella nella quale si è cliccato, è possibile utilizzare il seguente codic...")
Per far apparire un Balloon in un punto stabile di una GridView, ad esempio al centro della cella nella quale si è cliccato, è possibile utilizzare il seguente codice:
Public Sub Form_Open() GridView1.Columns.Count = 3 GridView1.Rows.Count = 3 End Public Sub GridView1_Menu() ' Cliccando con il tasto destro del mnouse... Balloon.Info("Cella: " & GridView1.Row & "," & GridView1.Column, GridView1, (GridView1.Columns[GridView1.Column].X + GridView1.Columns[GridView1.Column].W) / 2, GridView1.Rows[GridView1.Row].Y + GridView1.Rows[GridView1.Row].H) End
In quest'altro caso, più semplice, il Balloon apparirà nel punto ove si è cliccato con il mouse all'interno di una cella della GridView:
Public Sub Form_Open() GridView1.Columns.Count = 3 GridView1.Rows.Count = 3 End Public Sub GridView1_MouseDown() Balloon.Info("Cella: " & GridView1.Row & "," & GridView1.Column, GridView1, Mouse.X, Mouse.Y) End
Ovviamente, in entrambi gli esempi si potrà riportare nel Balloon l'eventuale testo presente nella cella, in cui si è cliccato, modificando il primo argomento dell'istruzione Ballon.Info():
Balloon.Info(GridView1[GridView1.Row, GridView1.Column].Text, GridView1, ......, ......)
o anche più brevemente così:
Balloon.Info(GridView1.Current.Text, GridView1, ......, ......)