Differenze tra le versioni di "Mostrare un Balloon in corrispondenza della cella nella quale si è cliccato"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per far apparire un ''Balloon'' in corrispondenza della cella nella quale si è cliccato, è possibile utilizzare il seguente codice: '''Public''' Sub Form_Open() GridVie...') |
|||
| Riga 1: | Riga 1: | ||
| − | Per far apparire un ''Balloon'' in | + | Per far apparire un ''Balloon'' in un punto stabile, ad esempio al centro della cella nella quale si è cliccato, è possibile utilizzare il seguente codice: |
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
| Riga 8: | Riga 8: | ||
| − | '''Public''' Sub GridView1_Menu() | + | '''Public''' Sub GridView1_Menu() <FONT Color=gray>' ''Cliccando con il tasto destro del mnouse...''</font> |
Balloon.Info("Cell " & 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) | Balloon.Info("Cell " & 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(GridView1[GridView1.Row, GridView1.Column].Text, GridView1, Mouse.X, Mouse.Y) | ||
'''End''' | '''End''' | ||
Versione delle 11:34, 3 gen 2015
Per far apparire un Balloon in un punto stabile, 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("Cell " & 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(GridView1[GridView1.Row, GridView1.Column].Text, GridView1, Mouse.X, Mouse.Y) End
