关于调用剪切板的问题

zlylm zlylm 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我在我的一个小程序中用到了剪切板,具体代码是这样的
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

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

相关推荐

评论 7
收藏 已收藏
分享
返回顶部
zlylm
VB 16,718 成员 110,520 内容