https://foro.gambas-es.org/viewtopic.php?f=1&t=8118&p=48926#p48926
-----------------------------------
gambafeliz
Miercoles, 24 Junio 2020, 14:47

Re: Ver Texto Al Posicionarse Con El Ratón Encima De Celda
-----------------------------------
Este es el código sin pulir sin invertigar las columnas a fondo pero que funciona perfecto:

Explico el ejemplo, se trata de un GridView1 con 6 filas y 2 columnas en un formulario.

[code]
Public Sub GridView1_MouseMove()

   Dim iCW0, iCW1 As Integer

   ' Ejemplo para dos columnas, 0 y 1
   iCW0 = GridView1[0, 0].W ' variable integer para recuperar el ancho de la columna (C=Columan, W=Ancho) en fila 0
   iCW1 = GridView1[0, 1].W ' variable integer para recuperar el ancho de la columna (C=Columan, W=Ancho) en fila 1

   ' Los Bordes númericos y del header = 20px, para este ejemplo.
   Label1.Text = Int((Mouse.ScreenY - GridView1.ScreenY) / 20) - 1 ' [-1] es para obtener Row

   ' Comparo la coordenada del mouse con:
   ' 1.Posición donde esta el GridView1 + 20px del borde donde esta numerada la fila
   ' 2.Posición donde esta el GridView1 + 20px del borde donde esta numerada la fila + Ancho de la columna 0 
   If Mouse.ScreenX > (GridView1.ScreenX + 20) And Mouse.ScreenX < (GridView1.ScreenX + 20 + iCW0) Then
      Label2.Text = 0
   Else
      Label2.Text = 1
   Endif

   ' Ya tenemos la fila y la columna mapeada ahora solo queda poner la información
   If CInt(Label1.Text) > -1 And CInt(Label1.Text) < 6 Then
      Label3.Text = GridView1[CInt(Label1.Text), CInt(Label2.Text)].Text
   Endif
   
End
[/code]

Espero que lo entendáis bien, sino por favor pregunten sin ningún problema, cuando lo mejore lo añadiré.

Saludos


