Làm thế nào để có được tất cả các giá trị được chọn trong một ListBox nhiều lựa chọn trong vb6?

Question

Tôi có một ListBox trên dự án vb6 của mình và tôi đã đặt thuộc tính của nó thành đa lựa chọn. Bây giờ, tôi muốn có được tất cả các mục đã chọn trên ListBox nhiều lựa chọn của tôi và đặt nó trong một biến ví dụ, hoặc có thể trên một hộp văn bản nhiều dòng. Tôi chỉ muốn có được các giá trị đa lựa chọn.

Answer 1

Thật không may bạn phải lặp qua tất cả các yếu tố. Dưới đây là một số mã mẫu:

Dim k As Long 
Dim s As String 

For k = 0 To List1.ListCount - 1 
    If List1.Selected(k) Then 
     s = List1.List(k) 
     ' ... do something 
    End If 
Next