VB中combo的问题
大家好,小弟正初学VB编程。现在遇到一个问题。我想实现以下的功能。即在一个工程上建10来个combobox和一个text框,每个combobox下有1,2,3,4等数据。...
大家好,小弟正初学VB编程。现在遇到一个问题。我想实现以下的功能。即在一个工程上建10来个combobox和一个text框,每个combobox下有1,2,3,4等数据。当我在每个combobox下拉列表中选择一些数据时,text框中显示combobox1*3+combobox2*3+...的计算结果。请问该怎么实现??
万分感谢!! 展开
万分感谢!! 展开
4个回答
展开全部
建一个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
代码如下。
=================
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).Text)*3
Next
MsgBox "计算结果:" & sum, 48 + vbOKOnly, "结果"
End Sub
End Sub
在窗体上画一个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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
假设你的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)
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)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
建议将combobox做成控件数组,我现在没有环境,只能给出伪代码
for i=0 to 9
k=val(combobox(i).text)*3
sum=sum+k
end for
text.text=sum
for i=0 to 9
k=val(combobox(i).text)*3
sum=sum+k
end for
text.text=sum
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询