ITENS SELECIONADOS NA LISTBOX

DANLEONHART 03/07/2011 10:51:22
#378347
Preciso mostrar em uma caixa de mensagem apenas os ítens selecionados na ListBox...a ListBox está configurada com [Ô]MultiSelect = 2 - Extended[Ô]
para selecionar diversos arquivos...

Imagem:
ROBIU 03/07/2011 16:44:17
#378362 Resposta escolhida 
Private Sub Command1_Click()
Dim i As Integer, x As Integer
Dim Lista() As String, Msg As String
    
    x = 0
    If List1.ListIndex = -1 Then Exit Sub
    ReDim Lista(List1.SelCount)
    For i = O To List1.ListCount - 1
        If List1.Selected(i) = True Then
            Lista(x) = List1.List(i)
            x = x + 1
        End If
        
    Next i
    
    Msg = [Ô][Ô]
    For i = 0 To x - 1
        Msg = Msg & Lista(i) & Chr(13)
    Next i
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar