VB中combo的问题

来源：百度知道 编辑：UC知道 时间：2024/05/30 07:08:50
大家好，小弟正初学VB编程。现在遇到一个问题。我想实现以下的功能。即在一个工程上建10来个combobox和一个text框,每个combobox下有1，2，3，4等数据。当我在每个combobox下拉列表中选择一些数据时，text框中显示combobox1*3+combobox2*3+...的计算结果。请问该怎么实现？？
万分感谢！！

建一个Combo1,Text1,Command1.然后把Combo1的Index属性设置为0.
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim s As Long
For Each combo In Combo1
s = s + Val(combo.Text) * 3
Next
Text1.Text = s
End Sub

Private Sub Form_Load()
Dim i As Integer, j As Integer
Combo1(0).Visible = False
For i = 1 To 10
Load Combo1(i)
Combo1(i).Move Combo1(i - 1).Left, Combo1(i - 1).Top + Combo1(i - 1).Height
Combo1(i).Visible = True
For j = 1 To 10
Combo1(i).AddItem j
Next
Next
End Sub

用combobox控件数组比较方便，基本上就是楼上兄弟说的，不过他的代码有点问题
在窗体上画一个combobox，然后复制，再粘贴，需要几个就粘贴几个，填充数据也很简单，代码如下：
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9 '这里假设你有10个combo
For j = 0 To 9
Combo1(i).AddItem j '这样就填入了数据，每个combo里面都是0-9，如果不符合要求你自己改
Next
Next

点击按钮开始计算：
Private Sub Command1_Click()
Dim sum, n
For n = 0 To 9
sum = sum + val(Combo1(n).Te