您的位置：程序门 -> vb -> 非技术类

combobox的click事件问题？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

combobox的click事件问题？

发表于：2007-01-23 11:24:10 楼主

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

发表于：2007-01-23 11:26:101楼得分:0

完整的代码贴出来看看吧。

发表于：2007-01-23 11:31:092楼得分:0

这是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

发表于：2007-01-23 11:39:113楼得分:0

加全局变量

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