Mausla listbox.ControlTipText'e değer almak

[omeryılmaz]

Arkadaşlar

Listbox üzerinde Maus hangi satır üzerindeyse o satırdaki ilk sütundaki yazı veya değeri listbox.ControlTipText' e almak istiyorum..

Açıklama yerine:

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Listbox1.ControlTipText = Format(ListBox1.Column(0), "") 'gibi ...

End Sub

Bu kod çalışmadı................

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With ListBox1
    .ControlTipText = .List(.ListIndex, 0)
    End With
End Sub