更正:
为了使两个COMBOBOX中的TEXT属性同步,(条件是两个COMBOBOX的LISTCOUNT相等)
试过两种方法:
1、单击任意一个COMBOBOX时两COMBOBOX的 LISTINDEX 属性相同来实现,很方便。
2、单击任意 一个COMBOBOX时,COMBO1.TEXT=COMBO1.LIST(COMBO2.LISTINDEX) 会出现死循环(不知是不是递归调用?)导致内存溢出。
哪位朋友能帮忙解释一下为什么用第二种方法会内存溢出 ?
为了使两个COMBOBOX中的TEXT属性同步,(条件是两个COMBOBOX的LISTCOUNT相等)
试过两种方法:
1、单击任意一个COMBOBOX时两COMBOBOX的 LISTINDEX 属性相同来实现,很方便。
2、单击任意 一个COMBOBOX时,COMBO1.TEXT=COMBO1.LIST(COMBO2.LISTINDEX) 会出现死循环(不知是不是递归调用?)导致内存溢出。
哪位朋友能帮忙解释一下为什么用第二种方法会内存溢出 ?
解决方案 »
- vb串口接收不断发过来的数据
- vb程序中: Set itmX = List1.ListItems.Add(, , rs1.Fields(0)) 提示类型不配,为什么?急急急 代码如下
- 如何捕获另一窗体的按钮事件?请教高手
- 我第一次照着书打VB6 的 IIS Application 做ASP页面,怎么出现这个问题
- 关于mdi的问题
- 如何将listview的背景图片设置为拉伸?
- calendar 控件 在每次改变 月份的事件的时候,都有个“咚”的声音,如果去掉
- 子窗体平铺、并列等等.........要代码
- 谁用过DHTMLEdit控件?
- 《哪里有下载程序方面的电子书?》
- 从数据库中调用图片
- 还是VB的问题!!!如何在原来的数据上累计!!????((非常急))
Option ExplicitPrivate Sub Combo1_Click()
Combo2.Text = Combo2.List(Combo1.ListIndex)
End SubPrivate Sub Combo2_Click()
Combo1.Text = Combo1.List(Combo2.ListIndex)
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Combo1.AddItem Text1.Text
Combo2.AddItem Text1.Text
Text1.Text = ""
End If
End Sub一点问题都没呀……
Private Sub Combo1_Click()
msgbox "Test!",vbokonly,"test"
Combo2.Text = Combo2.List(Combo1.ListIndex)
End SubPrivate Sub Combo2_Click()
msgbox "Test!",vbokonly,"test"
Combo1.Text = Combo1.List(Combo2.ListIndex)
End Sub
会总弹出提示窗口,直到内存溢出(两个COMBOBOX TYPE=2)
但我把程序改成:
Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End SubPrivate Sub Combo2_Click()
Combo1.ListIndex = Combo2.ListIndex
End Sub
一切OK!
请问楼上的“如果是Change事件的话就好解释”WHY?谢谢!
补充:
运行环境: Winxp +Vb6+Vs6sp5,系统中还装有.net