如何把一个实体放入系统剪贴板

yanghao1

如何把一个实体放入系统剪贴板

齐天大圣3386

' Demonstrates SetData, ContainsData, and GetData
' using a custom format name and a business object.
Public ReadOnly Property TestCustomFormat() As Customer
    Get
        Clipboard.SetData("CustomerFormat", New Customer("Customer Name"))

        If Clipboard.ContainsData("CustomerFormat") Then
            Return CType(Clipboard.GetData("CustomerFormat"), Customer)
        End If

        Return Nothing
    End Get
End Property


...


<Serializable()> Public Class Customer

    Private nameValue As String = String.Empty

    Public Sub New(ByVal name As String)
        nameValue = name
    End Sub

    Public Property Name() As String
        Get
            Return nameValue
        End Get
        Set(ByVal value As String)
            nameValue = value
        End Set
    End Property

End Class

yanghao1

齐天大圣3386 发表于 2011-10-17 18:43
' Demonstrates SetData, ContainsData, and GetData
' using a custom format name and a business objec ...

我一点也看不出您是如何把一个实体放入系统剪贴板的。请您举个例子，例如把一条直线对象放入系统剪贴板，然后到一个打开的dwg文档中去粘贴一下看看，看是否真的把这一直线对象通过编程放入了系统剪贴板。