ListBoxに値を追加していくには。
Private Sub CommandButton31_Click()
ListBox12.ColumnCount = 5
ListBox12.ColumnWidths = "4.0cm;4.0cm;2.0cm;3.0cm;2.0cm"
End Sub
Private Sub TextBox175_Change()
SetList
End Sub
Private Sub TextBox176_Change()
SetList
End Sub
Private Sub TextBox177_Change()
SetList
End Sub
Private Sub TextBox178_Change()
SetList
End Sub
Private Sub TextBox179_Change()
SetList
End Sub
Private Sub SetList()
ListBox12.Clear
ListBox12.AddItem TextBox175.Text
ListBox12.List(0, 1) = TextBox176.Text
ListBox12.List(0, 2) = TextBox177.Text
ListBox12.List(0, 3) = TextBox178.Text
ListBox12.List(0, 4) = TextBox179.Text
End Sub
ここで、TextBox175~179の値をコマンドボタン1を押す度、
ListBox12の最終行の直下に挿入されていくようにしたいです。
列はそのままです。
1行目 (0,1),(0,2),(0,3),(0,4)
2行目 (1,1),(1,2),(1,3),(1,4)
3行目 (2,1),(2,2),(2,3),(2,4)
どのようにやればいいでしょうか。
お礼
ありがとうございます。 調べてみます。