Is it possible to find the column number in the listbox mouse move event.
Sub MouseMove(X As Integer, Y As Integer) Handles MouseMove
system.DebugLog(str(me.ColumnFromXY(x,y)))
End Sub
Its not working if i am on the header. It always gives -1
Use a custom header (check Daves one).
Hey, you asked for a Column Number, not a Cell Header Number
It needs a little finesse but here’s a quick one:
[code]Sub MouseMove(X As Integer, Y As Integer) Handles MouseMove
Dim borderSize As Integer = 1
Dim mouseOverHeader As Boolean
#If TargetWindows
borderSize = 1 'Should really use a cached GetSystemMetrics(SM_CXBORDER) here
mouseOverHeader = If(Me.HasHeader, If((y >= borderSize) And (y <= (Me.HeaderHeight - borderSize)), True, False), False)
#ElseIf TargetMacOS
mouseOverHeader = If(Me.HasHeader, If(y < Me.HeaderHeight, True, False), False)
#ElseIf TargetLinux
'I’ll let someone else work that out if they are bored
#EndIf
Dim col As Integer = Me.ColumnFromXY(x, If(Me.HasHeader, Me.HeaderHeight, borderSize))
system.DebugLog(“mouseOverHeader=” + str(mouseOverHeader) + " col=" + str(col))
End Sub
[/code]