如何把一个实体放入系统剪贴板
如何把一个实体放入系统剪贴板 ' 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
...
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
我一点也看不出您是如何把一个实体放入系统剪贴板的。请您举个例子,例如把一条直线对象放入系统剪贴板,然后到一个打开的dwg文档中去粘贴一下看看,看是否真的把这一直线对象通过编程放入了系统剪贴板。
页:
[1]