怎样在IDE的Macro中使用剪贴板功能

  在VS.NET 2003以及VS 2005的Macro中,虽然说我们可以非常方便的引用使用.NET Framework,不过Framework中一些和线程模式相关的类库却并不能直接被使用。其中非常有用的Clipboard类就因为Macro执行环境的线程模式原因不能执行,真是一大遗憾的说。那么有没有办法解决呢?

    我们来看一下Macro中直接使用Clipboard有什么问题呢?我们随便创建一个Sub,比如:Test。在Test中我们执行Clipboard.SetDataObject(new Object),会怎么样呢?得到一个错误提示:
怎样在IDE的Macro中使用剪贴板功能The current thread must set to Single Thread Apartment (STA) mode before OLE calls can be made.  Ensure that your Main function has STAThreadAttribute marked on it.

    说得也还明白,需要STA模式的进程/线程才能使用Clipboard类操作剪贴板。有人曾尝试使用C#编写了一个使用Clipboard类的dll,然后在Macro中调用这个assembly,结果还是得到上面的这个错误;还有人使用EditPoint.Paste()和EditPost.Copy()方法来使用剪贴板,但是这个方法只能让EditPoint的内容和剪贴板交互,而不能为剪贴板设置任意的值,显然不是通用的剪贴板操作方式。

    正因为Macro可以调用.NET Framework,所以我们就创建一个STA的线程来访问剪贴板就行了,实现访问剪贴板的代码如下:
怎样在IDE的Macro中使用剪贴板功能Dim ClipboardData As IDataObject
怎样在IDE的Macro中使用剪贴板功能
怎样在IDE的Macro中使用剪贴板功能怎样在IDE的Macro中使用剪贴板功能Sub GetClipboardContent()Sub GetClipboardContent()
怎样在IDE的Macro中使用剪贴板功能    Dim staThread As New Threading.Thread(AddressOf GetClipboard)
怎样在IDE的Macro中使用剪贴板功能    staThread.ApartmentState = Threading.ApartmentState.STA
怎样在IDE的Macro中使用剪贴板功能    staThread.Start()
怎样在IDE的Macro中使用剪贴板功能    staThread.Join()
怎样在IDE的Macro中使用剪贴板功能End Sub
怎样在IDE的Macro中使用剪贴板功能
怎样在IDE的Macro中使用剪贴板功能怎样在IDE的Macro中使用剪贴板功能Private Sub GetClipboard()Sub GetClipboard()
怎样在IDE的Macro中使用剪贴板功能    ClipboardData = Nothing
怎样在IDE的Macro中使用剪贴板功能    ClipboardData = Clipboard.GetDataObject()
怎样在IDE的Macro中使用剪贴板功能End Sub
怎样在IDE的Macro中使用剪贴板功能
怎样在IDE的Macro中使用剪贴板功能怎样在IDE的Macro中使用剪贴板功能Sub SetClipboardContent()Sub SetClipboardContent(ByVal format As StringByRef data As Object)
怎样在IDE的Macro中使用剪贴板功能    If ClipboardData Is Nothing Then
怎样在IDE的Macro中使用剪贴板功能        ClipboardData = New DataObject
怎样在IDE的Macro中使用剪贴板功能    End If
怎样在IDE的Macro中使用剪贴板功能    ClipboardData.SetData(format, data)
怎样在IDE的Macro中使用剪贴板功能    Dim staThread As New Threading.Thread(AddressOf SetClipboard)
怎样在IDE的Macro中使用剪贴板功能    staThread.ApartmentState = Threading.ApartmentState.STA
怎样在IDE的Macro中使用剪贴板功能    staThread.Start()
怎样在IDE的Macro中使用剪贴板功能    staThread.Join()
怎样在IDE的Macro中使用剪贴板功能End Sub
怎样在IDE的Macro中使用剪贴板功能
怎样在IDE的Macro中使用剪贴板功能怎样在IDE的Macro中使用剪贴板功能Private Sub SetClipboard()Sub SetClipboard()
怎样在IDE的Macro中使用剪贴板功能    If Not ClipboardData Is Nothing Then
怎样在IDE的Macro中使用剪贴板功能        Clipboard.SetDataObject(ClipboardData, True)
怎样在IDE的Macro中使用剪贴板功能    End If
怎样在IDE的Macro中使用剪贴板功能End Sub

    上次我说到VS 2005的有个小bug,不能Copy出在线文档的Full Path,其实我们可以使用Macro来完成这个工作的。代码如下,正好也演示了Clipboard的操作:
怎样在IDE的Macro中使用剪贴板功能怎样在IDE的Macro中使用剪贴板功能Sub CopyWindowCaption()Sub CopyWindowCaption()
怎样在IDE的Macro中使用剪贴板功能    Dim strWindowCaption As String
怎样在IDE的Macro中使用剪贴板功能    strWindowCaption = Nothing
怎样在IDE的Macro中使用剪贴板功能    Try
怎样在IDE的Macro中使用剪贴板功能        strWindowCaption = DTE.ActiveWindow.ProjectItem.Name
怎样在IDE的Macro中使用剪贴板功能    Catch
怎样在IDE的Macro中使用剪贴板功能        strWindowCaption = DTE.ActiveWindow.Caption
怎样在IDE的Macro中使用剪贴板功能    End Try
怎样在IDE的Macro中使用剪贴板功能    SetClipboardContent(DataFormats.Text, strWindowCaption)
怎样在IDE的Macro中使用剪贴板功能End Sub

本文转自博客园鸟食轩的博客,原文链接:http://www.cnblogs.com/birdshome/,如需转载请自行联系原博主。

上一篇:使用OpenFileDialog对话框打开文本文件


下一篇:极速理解设计模式系列:8.策略模式(Strategy Pattern)