关于调用剪切板的问题

[zlylm]

我在我的一个小程序中用到了剪切板，具体代码是这样的

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim iData As IDataObject = Clipboard.GetDataObject()
        Clipboard.SetDataObject(DBNull.Value)
        Clipboard.SetDataObject(ListBox1.SelectedItem)
        Dim iData1 As IDataObject = Clipboard.GetDataObject()
        TextBox1.SelectedText = CType(iData1.GetData(DataFormats.Text), String)
        TextBox1.Focus()
    End Sub

但是我运行的时候每次复制到文本框的都是上次剪切板的东西，那位高手告诉我这是为什么？我的代码那里错了啊！
请指正

[Whislly]

public static void SetText(string text)
SetText是System.Windows.Forms.Clipboard的成员阿，莫非你的用的是VS2003?

[Whislly]

Clipboard.SetDataObject(ListBox1.SelectedItem)
----------------------------------------------
这句代码拷到剪切板的数据格式是int类型而不是Text,所以下面这句：
TextBox1.SelectedText = CType(iData1.GetData(DataFormats.Text), String)
只能得到上次剪切板的Text文本。
你可以把上面那句改为：
Clipboard.SetText(ListBox1.SelectedItem)
应该就可以了。
不知道楼主要干什么，能说说目的吗？

[zlylm]

我要做到的是：单击列表框，实现选中的词条显示在他旁边的文本框中。
你说的方法我试了，可是有错误："SetText"不是“System.Windows.Forms.Clipboard”的成员。

[zlylm]

上面代码错了，我的代码是这样的。不过问题还在

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim iData As IDataObject = Clipboard.GetDataObject()
        Clipboard.SetDataObject(DBNull.Value)
        Clipboard.SetDataObject(ListBox1.SelectedItem)
        TextBox1.SelectedText = CType(iData.GetData(DataFormats.Text), String)
        TextBox1.Focus()
    End Sub

[Tiger_Zhao]

仔细想想你取到的是什么时候的数据！
将第一句移到原第三句下面。

[zlylm]

将第一行移到第三行的话，报错。

[zlylm]

我知道了是我系统有毛病。