vb6 में मल्टीइलेक्स्ट ListBox में चुने गए सभी मान कैसे प्राप्त करें?

Question

मेरे पास मेरे vb6 प्रोजेक्ट पर एक सूची बॉक्स है और मैंने अपनी संपत्ति को बहुविकल्पीय में सेट कर दिया है। अब, मैं अपने चुने हुए आइटमों को अपने मल्टीइलेक्स्ट लिस्टबॉक्स पर प्राप्त करना चाहता हूं और इसे उदाहरण के लिए एक चर में डाल सकता हूं, या शायद एक मल्टीलाइन टेक्स्टबॉक्स पर। मैं सिर्फ बहुविकल्पीय मूल्य प्राप्त करना चाहता था।

Answer 1

दुर्भाग्यवश आपको सभी तत्वों के माध्यम से लूप करना होगा। यहां कुछ नमूना कोड दिया गया है:

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