如何把一个实体放入系统剪贴板
如何把一个实体放入系统剪贴板 ' 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: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]