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