|
■No41991 (yk さん) に返信
> ちなみに使っているリストビューはMicroSoft Windows Common Controls 6.0(SP6)のリストビューです。
×: MicroSoft
○: Microsoft
> 今、DBから取得してきた値をリストビューに表示させています。
詳細モードですか? (View = lvwReport)
> リストビューの項目数は8項目ありますが、リストビューを一行選択して、
> その一行の各項目の内容をそれぞれ変数に代入したいのですが、どのようなソースを書けばいいのでしょうか?
SubItems を使うか ListSubItems を使うかの 2 択になりますが、たとえば後者なら:
Dim LI As ListItem
Set LI = ListView1.SelectedItem
If LI Is Nothing Then
Debug.Print "未選択"
Else
Dim SI As ListSubItem
Debug.Print LI.Text;
For Each SI In LI.ListSubItems
Debug.Print ","; SI.Text;
Next
Debug.Print
End If
Debug.Print
|