リストボックスにきれいに複数表示するには？ (ID:105485)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ListView をフォーム上に貼り付けて実行してみて下さい。 Private Sub Form_Load() Dim itmX As ListItem With ListView1 .ColumnHeaders.Add , , "名前", 800 .ColumnHeaders.Add , , "住所", 800 .View = lvwReport .LabelEdit = lvwManual End With Set itmX = ListView1.ListItems.Add(, , "田中") itmX.SubItems(1) = "東京都〜" Set itmX = ListView1.ListItems.Add(, , "山田") itmX.SubItems(1) = "北海道〜" Set itmX = ListView1.ListItems.Add(, , "東海林") itmX.SubItems(1) = "高知県〜" Set itmX = Nothing End Sub