Differenze tra le versioni di "Mostrare un Balloon in una GridView in corrispondenza della cella nella quale si è cliccato"
Da Gambas-it.org - Wikipedia.
(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...") |
|||
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 1: | Riga 1: | ||
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: | 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.Columns.Count = 3 | ||
GridView1.Rows.Count = 3 | GridView1.Rows.Count = 3 | ||
− | + | End | |
− | + | Public Sub GridView1_Menu() <FONT Color=gray>' ''Cliccando con il tasto destro del mouse...''</font> | |
− | Balloon.Info("Cella: " & | + | With GridView1 |
+ | Balloon.Info("Cella: " & .Row & "," & .Column, GridView1, .Columns[.Column].X + (.Columns[.Column].W / 2), .Rows[.Row].Y + (.Rows[.Row].H / 2)) | ||
+ | End With | ||
− | + | 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'': | 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.Columns.Count = 3 | ||
GridView1.Rows.Count = 3 | GridView1.Rows.Count = 3 | ||
− | + | End | |
− | + | Public Sub GridView1_MouseUp() | |
Balloon.Info("Cella: " & GridView1.Row & "," & GridView1.Column, GridView1, Mouse.X, Mouse.Y) | 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()": | |
− | |||
− | |||
− | 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 | ||
Balloon.Info(GridView1[GridView1.Row, GridView1.Column].Text, GridView1, ......, ......) | Balloon.Info(GridView1[GridView1.Row, GridView1.Column].Text, GridView1, ......, ......) | ||
− | |||
o anche più brevemente così: | o anche più brevemente così: | ||
− | |||
Balloon.Info(GridView1.Current.Text, GridView1, ......, ......) | Balloon.Info(GridView1.Current.Text, GridView1, ......, ......) |
Versione attuale delle 18:03, 10 dic 2023
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 mouse... With GridView1 Balloon.Info("Cella: " & .Row & "," & .Column, GridView1, .Columns[.Column].X + (.Columns[.Column].W / 2), .Rows[.Row].Y + (.Rows[.Row].H / 2)) End With 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_MouseUp() 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, ......, ......)