怎样在运行时改变combox文本框中的值为下拉列表中的另一项？（style=2只读）

Question

怎样在运行时改变combox文本框中的值为下拉列表中的另一项？（style=2只读）
只让用户从下拉列表中选择，并且combox的text值又会随着另一控件的值的变化改变为combox列表中的某一项，怎么做？此时text已经为只读了，不能赋值！

Answer 1

先添加列表项，然后设置text 属性

Answer 2

key=combol1.list(combol1.listindex)
select case key
   case 1,3,5,,7,8,11
       for i=1 to 31
               combol2.additem i
          next
     case 2
         for i=1 to 29
                combol2.additem i
            next
      case else
           for i=1 to 30
                   combol2.additem i
  end select 

Answer 3

combobox.text=combobox.list(combobo.listindex)

Answer 4

各位弄错了，combo控件为DropdownList时，不是不能改变值，而是不能改为列表项中没有的值，所以，应该先执行combo1.additem "xxxx",然后执行combo1.text="xxxx"
这里，"xxxx"就是另外控件的值！