如何编写,当combo1中选Acombo2中只显示A-1,A-2,选B则出现B-1,B-2

发布网友发布时间：2024-10-04 16:20

共2个回答

热心网友时间：2024-10-21 10:17

Private Sub Combo1_Click()
Combo2.Clear 'Combo2清除已有选项
Combo2.AddItem Combo1.Text & "-1" 'combo2新增选项，第一个字母与Combo1所选择保持一致
Combo2.AddItem Combo1.Text & "-2"
Combo2.ListIndex = 0 '令combo2缺省选择第一项
End Sub
Private Sub Form_Load()
Combo1.Clear 'Combo1清除已有选项
Combo1.AddItem "A" 'combo1新增选项
Combo1.AddItem "B"
Combo1.ListIndex = 0 '令combo1缺省选择第一项
End Sub

热心网友时间：2024-10-21 10:18

你复制下面代码，试验一下，体会以下！
Option Explicit
Private Sub Combo1_Click()
Combo2.Clear
Combo2.AddItem Combo1.Text & "-1"
Combo2.AddItem Combo1.Text & "-2"
Combo2.Text = Combo2.List(0)
End Sub
Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.Text = Combo1.List(0)
Combo2.AddItem Combo1.Text & "-1"
Combo2.AddItem Combo1.Text & "-2"
Combo2.Text = Combo2.List(0)
End Sub追问大大能不能再每条的后面加上注解！谢谢

追答Option Explicit
Private Sub Combo1_Click()
Combo2.Clear '清除组合框Combo2里原来已经添加的项目
Combo2.AddItem Combo1.Text & "-1" '添加一个项目，项目内容为：Combo1.Text & "-1"
Combo2.AddItem Combo1.Text & "-2" '添加一个项目，项目内容为：Combo1.Text & "-2"
Combo2.Text = Combo2.List(0) '设置组合框Combo2里的文本框里显示的内容为第0项
End Sub
Private Sub Form_Load()
Combo1.AddItem "A" '添加一个项目，项目内容为："A"
Combo1.AddItem "B" '添加一个项目，项目内容为："B"
Combo1.Text = Combo1.List(0)
Combo2.AddItem Combo1.Text & "-1"
Combo2.AddItem Combo1.Text & "-2"
Combo2.Text = Combo2.List(0)
End Sub