vb6の複数選択リストボックスで選択されたすべての値を取得する方法は？

Question

私は自分のvb6プロジェクトでListBoxを持っており、そのプロパティを複数選択するように設定しました。 これで、選択したアイテムをすべてマルチリストボックスのListBoxに入れて、たとえば変数に、または複数行のテキストボックスに入力したいとします。私は、複数選択された値を取得したかっただけです。

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