![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
vb中的combo控件
我要在vb中设置2个combo,比如combo1中是班级,combo2中是学号,选了combo1中的一班,combo2中相应的出现一班的学号,选了二班,出现二班的学号代码...
我要在vb中设置2个combo,比如combo1中是班级,combo2中是学号,选了combo1中的一班,combo2中相应的出现一班的学号,选了二班,出现二班的学号 代码怎么写 求大神指导
展开
2个回答
展开全部
Private Sub Combo1_Click()
Dim i As Integer
Combo2.Clear
For i = 1 To 50 '假定有50个同学
Combo2.AddItem Combo1.Text & i & "号"
Next
End Sub
Private Sub Form_Load()
Dim i As Integer
Combo1.Clear
For i = 1 To 6 '假定有6个班
Combo1.AddItem i & "班"
Next
Combo2.Clear
End Sub
展开全部
Private student_count(1 To 3) As Integer
Private Sub Combo1_Click()
Dim i As Integer
If Combo1.ListIndex = 0 Then
Combo2.Clear
Combo2.AddItem "请选择学号……"
Else
Combo2.Clear
For i = 1 To student_count(Combo1.ListIndex)
Combo2.AddItem i
Next
End If
Combo2.ListIndex = 0
End Sub
Private Sub Form_Load()
student_count(1) = 22
student_count(2) = 17
student_count(3) = 25
Dim i As Integer
Combo1.AddItem "请选择班级……"
For i = 1 To 3
Combo1.AddItem i & "班"
Next
Combo1.ListIndex = 0
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询