[Shraybicus]

Здравствуйте!

Подскажите пожалуйста, как получить спикок выбранных пользователем пунктов в ListBox с включенным режимом fmMultiselectMulti.

[gomer]

Сообщение от Shraybicus как получить спикок выбранных пользователем пунктов в ListBox с включенным режимом fmMultiselectMulti.

Посмотрите свойство Selected

[Олег (jr.)]

Сообщение от Shraybicus Здравствуйте! Подскажите пожалуйста, как получить спикок выбранных пользователем пунктов в ListBox с включенным режимом fmMultiselectMulti.

Простой пример:

Option Explicit

Private Sub CommandButton1_Click()
Dim i, k, n
Dim msg
Dim arr() As Variant

   For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
        ReDim Preserve arr(k)
            arr(k) = ListBox1.List(i)
            k = k + 1
        End If
    Next i
    
    For Each n In arr
    msg = msg & vbTab & n & vbCr
    Next n
    
MsgBox "Selected:" & vbCr & msg
End Sub

Private Sub UserForm_Activate()
Dim arr As Variant
Dim s
arr = Array("alpha", "bravo", "charlie", "delta", "echo")
For Each s In arr
ListBox1.AddItem s
Next

End Sub

[Shraybicus]

Олег (jr.),

Спасибо большое!

[Олег (jr.)]

Сообщение от Shraybicus Олег (jr.), Спасибо большое!

Не за что
Успехов