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...")
 
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()
+
  Public Sub Form_Open()
 
   
 
   
 
   GridView1.Columns.Count = 3
 
   GridView1.Columns.Count = 3
 
   GridView1.Rows.Count = 3
 
   GridView1.Rows.Count = 3
 
   
 
   
  '''End'''
+
  End
 
   
 
   
 
   
 
   
  '''Public''' Sub GridView1_Menu()  <FONT Color=gray>' ''Cliccando con il tasto destro del mnouse...''</font>
+
  Public Sub GridView1_Menu()  <FONT Color=gray>' ''Cliccando con il tasto destro del mouse...''</font>
 
   
 
   
   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)
+
   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'''
+
  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()
+
  Public Sub Form_Open()
 
   
 
   
 
   GridView1.Columns.Count = 3
 
   GridView1.Columns.Count = 3
 
   GridView1.Rows.Count = 3
 
   GridView1.Rows.Count = 3
 
   
 
   
  '''End'''
+
  End
 
   
 
   
 
   
 
   
  '''Public''' Sub GridView1_MouseDown()
+
  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'''
+
  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 ''Ballon.Info()'':
 
  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 delle 18:02, 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, ......, ......)