1、コンボボックスにアイテムを纏めて追加。
1 2 3 4 5 6 7 8 |
Dim strItems(2) As String strItems(0) = "(未定義)" strItems(1) = "主訴" strItems(2) = "既往歴" ComboBox1.Items.AddRange(strItems) |
1、コンボボックスにアイテムを纏めて追加。
1 2 3 4 5 6 7 8 |
Dim strItems(2) As String strItems(0) = "(未定義)" strItems(1) = "主訴" strItems(2) = "既往歴" ComboBox1.Items.AddRange(strItems) |
コメント