LYHZM 发表于 2010-2-17 11:31:00

请问，在把AutoCAD VBA中的数据、文本放置到剪贴板中后，如何从VB程序中正确读取剪

请问，在把AutoCAD VBA中的数据、文本放置到剪贴板中后，如何从VB程序中正确读取剪贴板中的内容？<p>各位老师：</p><p>我在AutoCAD VBA中使用了下面的语句把变量InfoV中的内容放入剪贴板：</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim CbV As New DataObject<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CbV.SetText ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CbV.SetText InfoV<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CbV.PutInClipboard</p><p>然后使用语句：</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Shell ThisDrawing.Path &amp; "\工程1.exe", vbNormalFocus</p><p>调用VB程序“工程1.exe”，VB程序“工程1.exe”包含一个窗体和一个文本框，其中的语句仅为：</p><p>Private Sub Form_Load()<br/>&nbsp;&nbsp;&nbsp; Text1.Text = Clipboard.GetData<br/>End Sub</p><p>但运行后，“工程1.exe”中的文本框中的文本为“0”，若换成“Text1.Text = Clipboard.GetText”，则文本为空。</p><p>但在记事本中粘贴则文本显示正常。</p><p>请问，在把AutoCAD VBA中的数据、文本放置到剪贴板中后，如何从VB程序中正确读取剪贴板中的内容？</p><p><br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </p>

LYHZM 发表于 2010-2-20 11:32:00

请各位老师不吝赐教。

LYHZM 发表于 2010-2-21 13:56:00

后通过文本框间接实现。

fang: 发表于 2012-5-19 19:47:46

我也正在求教，不知道你的问题解决了没有！？
页: [1]
查看完整版本: 请问，在把AutoCAD VBA中的数据、文本放置到剪贴板中后，如何从VB程序中正确读取剪