VB中combo的问题

发布网友 发布时间：2022-05-21 11:49

我来回答

共4个回答

热心网友 时间：2023-10-24 06:26

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

热心网友 时间：2023-10-24 06:27

用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

热心网友 时间：2023-10-24 06:27

假设你的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)

热心网友 时间：2023-10-24 06:28

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