VB中combox控件赋下拉值 vb中怎样从其他窗体里给combox赋值?
vb中怎样从其他窗体里给combox赋值?在表单中添加一个ComboBox控件,代码如下;option explicit dim D(4)as integerprivate sub Combo1uuu
vb中怎样从其他窗体里给combox赋值?
在表单中添加一个ComboBox控件,代码如下;
option explicit dim D(4)as integerprivate sub Combo1uuuClick()msgbox“you have selected item”&Combo1.listindex 1&“,“&”的对应值为“&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