有关LISTBOX的一个问题

[4567013]

一个简单的代码如下
Private Sub List1_Click()
Text1.Text = List1.Text
End Sub

但为什么执行后，当点LISTBOX的时候，TEXTBOX会显示出选择的那条，但光标只要一离开LISTBOX，TEXTBOX就又会变成原来的样子了，怎么解决啊？

[liuyann]

check other event in your program.

[chyvlcy123]

你的List上是不是有鼠标移开时间啊

[4567013]

就这些代码，我是试试看的效果的

我其实是想点LISTBOX里面的内容，自动放到剪贴板里去的

Private Sub List1_Click()
clipboard.settext = List1.Text
End Sub

没有效果，所以就换成TEXTBOX试试看的，也同样没效果

[4567013]

哦，找到原因了，我这个LISTBOX绑定到一个ADODC控件的，把绑定删除就好了！