程序运行中的剪切版使用问题.

Question

新建工程.
List1 中写进几行
111
222
333Private Sub List1_Click()
  Clipboard.SetText (List1.Text)
End Sub运行.   
单击任何一行.  再 CTRL+V 正常. 粘贴出单击行文本. 问题.
在另一工程中.........略....
          If aaa = "" Then
            List1.AddItem HTTPstr(J)
          End If
........略....在程序运行的时候. 
我单击 list1 第一次的时候. 成功的复制到了list1的文本内容.
再以后就不行了 - - 想知道原因..  

Answer 1

For J = 1 To UBound(HTTPstr)
    List1.AddItem HTTPstr(J)
Next

Answer 2

hoho
就是没关系.  我就是想表达清楚一点..http://topic.csdn.net/u/20100312/17/0eeed19f-ad8d-400b-8ba0-0b07ba47abca.html
就是这个嘛.. 
取不到值的 写进 list1 .
就在这个程序运行的时候出现的这情况.  

Answer 3

Private Sub List1_Click()
  Clipboard.Clear
  Clipboard.SetText (List1.Text)
End Sub