リストボックスの参照設定は？

ｗ作者ｗ  2005-06-07 08:55:05  No: 90265  IP: [192.*.*.*]

初歩的な質問かもしれませんが教えてください。
参照設定の使い方がいまいち分からずエラーになってしまいます。
リストボックスの .ItemsSelectedの項目がでてこないので参照設定が間違っているとかんがえました。
分かる方はご教授お願いします。

編集 削除
むっきー  2005-06-07 10:06:08  No: 90266  IP: [192.*.*.*]

SelectedItems?
VB.NET?

編集 削除
ｗ  2005-06-10 13:15:34  No: 90267  IP: [192.*.*.*]

他のスレであったのですが次の通りです。

Sub RowsSelected()
    Dim ctlList As Control, varItem As Variant

    ' リスト ボックスを示す Control オブジェクトを取得します。
    Set ctlList = Forms!社員!在籍支社
    ' 選択項目を列挙します。
    For Each varItem in ctlList.ItemsSelected
        ' 連結列の値を表示します。
        Debug.Print ctlList.ItemData(varItem)
    Next varItem
End Sub

これで
ctlList.ItemsSelected
と打つときにItemsSelectedがドットを打ったときに出てきません。
また実行するとエラーになります。
環境はVB6.0です。
どうかご教示お願いいたします。

編集 削除
ｗ  2005-06-10 13:15:35  No: 90268  IP: [192.*.*.*]

他のスレであったのですが次の通りです。

Sub RowsSelected()
    Dim ctlList As Control, varItem As Variant

    ' リスト ボックスを示す Control オブジェクトを取得します。
    Set ctlList = Forms!社員!在籍支社
    ' 選択項目を列挙します。
    For Each varItem in ctlList.ItemsSelected
        ' 連結列の値を表示します。
        Debug.Print ctlList.ItemData(varItem)
    Next varItem
End Sub

これで
ctlList.ItemsSelected
と打つときにItemsSelectedがドットを打ったときに出てきません。
また実行するとエラーになります。
環境はVB6.0です。
どうかご教示お願いいたします。

編集 削除
クラゲ  URL  2005-06-10 13:21:30  No: 90269  IP: [192.*.*.*]

VB6では、ItemsSelectedはありません。

編集 削除
クラゲ  URL  2005-06-10 13:23:50  No: 90270  IP: [192.*.*.*]

こんな感じではどうですか?

For i = 0 To ctlList.ListCount -1
    If ctlList.Selected(i) = True Then
        Debug.Print ctlList.ItemData(i)
    End If
Next i

編集 削除