Question

VB中combo的问题

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

Answer 1

建一个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

Answer 2

用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).Text)*3
Next
MsgBox "计算结果:" & sum, 48 + vbOKOnly, "结果"
End Sub
End Sub

Answer 3

假设你的combobox名为Combo1并且它是一个数组(最简单的,你先在窗体上放置一个combobox组件,然后再复制粘贴那个组件,VB就会问你是否要建立combobox控件数组,你选择是就创建了一个控件数组了),建好combobox控件数组后双击任何combobox进入它的Change事件,写以下代码:

dim i as integer
dim sum
sum=0
for i=lbound(Combo1) to ubound(Combo1)
sum=sum+val(Combo1(Index).text)*3
next i
text1.text=cstr(sum)

Answer 4

建议将combobox做成控件数组，我现在没有环境，只能给出伪代码
for i=0 to 9
k=val(combobox(i).text)*3
sum=sum+k
end for
text.text=sum