yanghao1 发表于 2011-10-17 15:07:23

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

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

齐天大圣3386 发表于 2011-10-17 18:43:55

' 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 发表于 2011-10-17 20:41:59

本帖最后由 yanghao1 于 2011-10-17 20:44 编辑

齐天大圣3386 发表于 2011-10-17 18:43 http://bbs.mjtd.com/static/image/common/back.gif
' Demonstrates SetData, ContainsData, and GetData
' using a custom format name and a business objec ...

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