Question

一个VB下拉框的问题

我用E-mail发送下拉框当前消息，看代码：
Email.Textbody = "QQ帐号:" + Text3.Text + " ①" + Combo1.List + x1.Text + " ②" + Combo2.List + x2.Text + " ③" + Combo3.List + x3.Text
希望在邮箱里的邮件这么显示：QQ帐号：123456 ①你妈妈叫什么？ 我妈妈叫什么 ②你爸爸叫什么 我爸爸叫什么 ③你媳妇叫什么 我媳妇叫什么 这样，但是问题都是我事先弄好的，都添加盗了list里面。就跟QQ密保问题一样，而且三个下拉框怎么办能让他们不会重复显示问题？

Answer 1

Private Sub Combo1_Click(Index As Integer)

Item = Combo1(Index).ListIndex

Debug.Print Item
For i = 0 To 2
If i <> Index Then

Combo1(i).RemoveItem Item

End If
Next

End Sub

Private Sub Form_Load()
For Index = 0 To 2
For q = 0 To 5
Combo1(Index).AddItem "question" & q
Next
Combo1(Index).Text = "Please Select"
Next
End Sub

Answer 2

如果你愿意将分提高到200分，我愿意提供原代码。这需要很多API
函数，没有那么简单的....愿意出分的话就百度HI我吧.

Answer 3

想到了一个思路，看看行不行？
1：采用联动刷新。第一个listbox的索引改变的时候，对第二个listbox进行item添加，遇到第一个listbox的索引值的时候跳过。同理第二个listbox索引改变的时候，进行第三个listbox的item添加。遇到第二个listbox 的索引的时候跳过。
2：可以采用JS和AJAX实现。
不知道能否实现。

Answer 4

按顺序来 第一个选择项后 ，触发下拉change事件 第二个下拉框的值remove掉 第一个选择项 同样下面..