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

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

    我们来看一下Macro中直接使用Clipboard有什么问题呢？我们随便创建一个Sub，比如：Test。在Test中我们执行Clipboard.SetDataObject(new Object)，会怎么样呢？得到一个错误提示：

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的线程来访问剪贴板就行了，实现访问剪贴板的代码如下：

Dim  ClipboardData  As  IDataObject

Sub GetClipboardContent() Sub GetClipboardContent()
    Dim staThread As New Threading.Thread(AddressOf GetClipboard)
    staThread.ApartmentState = Threading.ApartmentState.STA
    staThread.Start()
    staThread.Join()
End Sub

Private   Sub GetClipboard() Sub GetClipboard()
    ClipboardData = Nothing
    ClipboardData = Clipboard.GetDataObject()
End Sub

Sub SetClipboardContent() Sub SetClipboardContent(ByVal format As String, ByRef data As Object)
    If ClipboardData Is Nothing Then
        ClipboardData = New DataObject
    End If
    ClipboardData.SetData(format, data)
    Dim staThread As New Threading.Thread(AddressOf SetClipboard)
    staThread.ApartmentState = Threading.ApartmentState.STA
    staThread.Start()
    staThread.Join()
End Sub

Private   Sub SetClipboard() Sub SetClipboard()
    If Not ClipboardData Is Nothing Then
        Clipboard.SetDataObject(ClipboardData, True)
    End If
End Sub

    上次我说到VS 2005的有个 小bug，不能Copy出在线文档的Full Path，其实我们可以使用Macro来完成这个工作的。代码如下，正好也演示了Clipboard的操作：

Sub CopyWindowCaption() Sub CopyWindowCaption()
    Dim strWindowCaption As String
    strWindowCaption = Nothing
    Try
        strWindowCaption = DTE.ActiveWindow.ProjectItem.Name
    Catch
        strWindowCaption = DTE.ActiveWindow.Caption
    End Try
    SetClipboardContent(DataFormats.Text, strWindowCaption)
End Sub