
vb程序设计(组合框的使用)
PrivateSubForm_Load()Combo1.Text=Combo1.List(0)Combo2.Text=Combo2.List(0)Combo3.Text=...
Private Sub Form_Load()
Combo1.Text = Combo1.List(0)
Combo2.Text = Combo2.List(0)
Combo3.Text = Combo3.List(0)
Combo4.Text = Combo4.List(0)
End Sub
Private Sub Command1_Click()
Picture1.Cls
Picture1.Print "您选择的配置是:"
Picture1.Print "机型:"; Combo1.Text
Picture1.Print "CPU:"; Combo2.Text
Picture1.Print "硬盘:"; Combo3.Text
Picture1.Print "内存:"; Combo4.Text
End Sub
这个代码运行后,为什么不能在组合框中显示其相关的内容
同时将4个组合框的 Style 分别设置为 1,2,2,0 后,运行居然显示"text"属性为只读。
请问是哪个环节出了问题? 展开
Combo1.Text = Combo1.List(0)
Combo2.Text = Combo2.List(0)
Combo3.Text = Combo3.List(0)
Combo4.Text = Combo4.List(0)
End Sub
Private Sub Command1_Click()
Picture1.Cls
Picture1.Print "您选择的配置是:"
Picture1.Print "机型:"; Combo1.Text
Picture1.Print "CPU:"; Combo2.Text
Picture1.Print "硬盘:"; Combo3.Text
Picture1.Print "内存:"; Combo4.Text
End Sub
这个代码运行后,为什么不能在组合框中显示其相关的内容
同时将4个组合框的 Style 分别设置为 1,2,2,0 后,运行居然显示"text"属性为只读。
请问是哪个环节出了问题? 展开
1个回答
展开全部
Combo的列表部分是待选的,text部分是已选的。
Combo1~Combo4各自的列表添加了项目没有啊?
Combo1.Text =*****只是让****出现在已经选得的地方,并不能吧什么添加到带选得地方。
要让列表有项目得用:
Combo1.additem *****
Combo1~Combo4各自的列表添加了项目没有啊?
Combo1.Text =*****只是让****出现在已经选得的地方,并不能吧什么添加到带选得地方。
要让列表有项目得用:
Combo1.additem *****
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询