О ListBox

[Malone32®]

Как написать простой (без апи, если возможно) алгоритм: при нажатии правой кнопкой мыши на листбоксе необходимо, чтобы выделился пункт, который находится под курсором (если, конечно, пункт там есть)

[xolod]

Malone32®
Без API - нельзя.
С ним алгоритм простой
1) Получаем индекс элемента из координат мыши с помощью LBItemFromPt
2) Шлем сообщение listbox'у, чтобы он выбрал соотв. пункт помощью SendMessage c LB_SETSEL

[Demonx]

Код: Выделить всё

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_ITEMFROMPOINT = &H1A9

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim P As Long
Dim XPosition As Long, YPosition As Long
XPosition = CLng(X / Screen.TwipsPerPixelX)
YPosition = CLng(Y / Screen.TwipsPerPixelY)
P = SendMessage(List1.hWnd, LB_ITEMFROMPOINT, 0, ByVal ((YPosition * 65536) + XPosition))
List1.ListIndex = P
End Sub

[SHURUP]

Код: Выделить всё

Dim txtheight%

Private Sub Form_Load()
For i = 1 To 30
    List1.AddItem i
Next
Picture1.Visible = False
Picture1.FontName = List1.FontName
Picture1.FontSize = List1.FontSize
txtheight = Picture1.TextHeight("|")
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim tmp&
If Button = vbRightButton Then
    tmp = Int(Y / txtheight) + List1.TopIndex
    If tmp < List1.ListCount Then
        List1.ListIndex = tmp
    Else: List1.ListIndex = -1
    End If
End If
End Sub


[Malone32®]

Спасибо всем