VB中combox控件賦下拉值 vb中怎樣從其他窗體里給combox賦值?
vb中怎樣從其他窗體里給combox賦值?在表單中添加一個(gè)ComboBox控件,代碼如下;option explicit dim D(4)as integerprivate sub Combo1uuu
vb中怎樣從其他窗體里給combox賦值?
在表單中添加一個(gè)ComboBox控件,代碼如下;
option explicit dim D(4)as integerprivate sub Combo1uuuClick()msgbox“you have selected item”&Combo1.listindex 1&“,“&”的對(duì)應(yīng)值為“&D(combo1.listindex)end subprivate sub formuLoad()D(0)=20d(1)=30d(2)=40d(3)=80Combo1.AddItem 1Combo1.AddItem 2Combo1.AddItem 3Combo1.AddItem 4End sub