首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

combobox的CLICK事件有关问题

2012-01-20 
combobox的CLICK事件问题? 我添加了两个COMBOBOX.分别为COMBOBOX1和COMBOBOX2我在COMBOBOX1的CLICK事件中

combobox的CLICK事件问题?

我添加了两个COMBOBOX.分别为COMBOBOX1和COMBOBOX2
我在COMBOBOX1的CLICK事件中写入:COMBOBOX2.LISTINDEX=COMBOBOX1.LISTINDEX
在COMBOBOX2的Click事件中写入:COMBOBOX1。LISTINDEX=COMBOBOX2。LISTINDEX
为什么变成了死循环。就是当combobox2的内容改变时为什么会调用COMBOBOX2的CLICK事件。
如何可以解决上面的问题呢。就是在COMBOBOX中的内容改变而不调用其中的另一个CLICK事件。

[解决办法]
完整的代码贴出来看看吧。
[解决办法]
这是MSDN中的例子,看看吧。


ListIndex 属性示例
这个例子在 ListBox 控件中显示三个演员的名字,在 Label 控件中显示被选中的演员所对应的薪金。要尝试这个例子,请将代码粘贴到包含一个 ComboBox 控件和一个 Label 控件的窗体的声明部分,然后按 F5 键并在 ComboBox 中选择一个名字。

Dim Player(0 To 2) ' 说明两个数组的大小。
Dim Salary(0 To 2)
Private Sub Form_Load ()
Dim I ' 声明变量。
AutoSize = True
Player(0) = "Miggey McMoo " ' 在数组中输入数据。
Player(1) = "Alf Hinshaw "
Player(2) = "Woofer Dean "
Salary(0) = "$234,500 "
Salary(1) = "$158,900 "
Salary(2) = "$1,030,500 "
For I = 0 To 2 ' 在列表中添加名字。
Combo1.AddItem Player(I)
Next I
Combo1.ListIndex = 0 ' 显示列表中的第一项。
End Sub

Private Sub Combo1_Click ()
' 显示名字所对应的薪金。
Label1.Caption = Salary(Combo1.ListIndex)
End Sub


[解决办法]
加全局变量

private sub COMBOBOX1_CLICK
if mblnClick then exit sub
mblnClick =true
COMBOBOX2.LISTINDEX=COMBOBOX1.LISTINDEX
mblnClick =false
end sub

*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

热点排行