Работа с ListBox

[alex_ustas]

Добавляю элемент в список следующим образом:
"UserForm1.ListBox1.AddItem Worksheets("Лист1").Cells(Х, Y)"
Вобщем, лентяй я. Подскажите пожалуйста, как выделять в списке элементы. Например, если в ячейке прописано положительное число, добавленный элемент в ListBox должен быть красного цвета, если отрицательное - синего. Вот такой у меня вопрос

[corgi]

вобщем в listbox'e элементы цветом выделять нельзя...

[Igor_123]

Ну почему, незнаю, как насчет элементов Microsoft Forms 2.0, а обычный можно и разукрасить. Было - бы желание.

[SUPchik]

Подскажите,как сделать всплывающую подсказку для выбранной строки в listboxe?

[arvitaly]

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

Option Explicit
Private Type POINTAPI
   X As Long
   Y As Long
End Type

Private Const LB_ITEMFROMPOINT As Long = &H1A9
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Private Declare Function LBItemFromPt Lib "comctl32" _
  (ByVal hwnd As Long, _
   ByVal ptx As Long, _
   ByVal pty As Long, _
   ByVal bAutoScroll As Long) As Long

Private Sub Form_Load()
    list1.AddItem "Элемент0"
    list1.AddItem "Элемент1"
    list1.AddItem "Элемент2"
    list1.AddItem "Элемент3"
    list1.AddItem "Элемент4"
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
    Dim n As Long
    n = ItemUnderMouse(list1.hwnd, X, Y)
    If n > -1 Then
        list1.ToolTipText = "Элемент № " & n
    Else
        list1.ToolTipText = "Не выбран элемент"
    End If
End Sub

Public Function ItemUnderMouse(ByVal list_hWnd As Long, _
    ByVal X As Single, ByVal Y As Single)
Dim pt As POINTAPI

    pt.X = X \ Screen.TwipsPerPixelX
    pt.Y = Y \ Screen.TwipsPerPixelY
    ClientToScreen list_hWnd, pt
    ItemUnderMouse = LBItemFromPt(list_hWnd, pt.X, pt.Y, _
        False)
End Function

На форме listbox c именем list1

[arvitaly]

Ааа, это VBA..., ну для Listbox наверное никак у него нет hwnd

Зато можно вот так, так даже лучше, можно вообще картинки вставить или еще что-нибудь типа там кнопочки))

[SUPchik]

arvitaly,спасибо за пример!!!