
那我给您解释下,
首先将combo1的rowsourcetype设置为1-值,然后将combo1的rowsource设置为:1,2,3,4
然后将combo1的style属性的值设置为下拉列表框
然后在命令按钮下面写代码
x=thisform.combo1.listcount
thisform.combo1.list(x+1)=thisform.text1.value
然后执行表单你会看到结果如您所想的实现了。
如需详细演示或解释,加Q:675079855
加Q时声明(百度知道)
使用AddItem 方法为添加选项。
AddItem 方法,用于将项目添加到 ListBox 或 ComboBox 控件,或者将行添加到 MS Flex Grid
控件。不支持命名参数。
AddItem 方法示例代码,选OK增加100个项目到ComboBox控件
Private Sub Form_Click()Dim Entry, I, Msg ' 声明变量。
Msg = "选OK增加100个项目到ComboBox控件"
MsgBox Msg ' 显示信息。
For I = 1 To 100 ' 计数值从 1 到 100。
Entry = "Entry " & I ' 创建输入项。
Combo1.AddItem Entry ' 添加该输入项。
Next I
' Msg = "选OK删除任一个Entry."
' MsgBox Msg ' 显示信息。
' For I = 1 To 50 ' 确定如何
' Combo1.RemoveItem I ' 每隔一项
' Next I ' 删除。
' Msg = "选OK删除全部"
' MsgBox Msg ' 显示信息。
' Combo1.Clear ' 清除列表框。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)