DataGrid et MoveMouse

Bonjour,

Philippe HALET wrote:

Bonjour,

Quelqu'un pourrait-il m'aider en me donnant une méthode permettant de
déterminer le numéro (ou le nom) de la colonne survolée par la souris dans
une DataGrid en VB6?

D'avance merci...

Philippe

Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Dim i As Integer

With Me.DataGrid1
For i = 0 To .Columns.Count - 1
If X >= .Columns(i).Left And X <= .Columns(i).Left + _
.Columns(i).Width Then
Debug.Print "Colonne : " & i, ; .Columns(i).Caption
Exit For
End If
Next i
End With
End Sub


--
Cordialement,

Jacques.

Les solutions les plus simples sont bien souvent les meilleures...

Merci!

Philippe

"Jacques" <jacques.le-goc_ENLEVER@wanadoo.fr> wrote in message
news:OVQFTMTOFHA.2532@TK2MSFTNGP09.phx.gbl...

Bonjour,

Philippe HALET wrote:
> Bonjour,
>
> Quelqu'un pourrait-il m'aider en me donnant une méthode permettant de
> déterminer le numéro (ou le nom) de la colonne survolée par la souris

dans

> une DataGrid en VB6?
>
> D'avance merci...
>
> Philippe
>

Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Dim i As Integer

With Me.DataGrid1
For i = 0 To .Columns.Count - 1
If X >= .Columns(i).Left And X <= .Columns(i).Left + _
.Columns(i).Width Then
Debug.Print "Colonne : " & i, ; .Columns(i).Caption
Exit For
End If
Next i
End With
End Sub


--
Cordialement,

Jacques.