Products | Support | Email a link to this topic. | Send comments on this topic. | Back to Introduction - All Topics | Help Version 19.0.5.10
|
Leadtools.Windows.Annotations Namespace > AnnAutomation Class : ClipboardObjectFormat Property |
public static string ClipboardObjectFormat {get;}
'Declaration Public Shared ReadOnly Property ClipboardObjectFormat As String
'Usage Dim value As String value = AnnAutomation.ClipboardObjectFormat
This example manually determines whether there are any objects available to paste from the clipboard. Notice that you can use the CanPaste method instead.
Imports Leadtools.Windows.Controls Imports Leadtools.Windows.Annotations Private Sub AnnAutomation_ClipboardObjectFormat(ByVal automation As AnnAutomation) Dim canPaste As Boolean = False Dim data As IDataObject = Clipboard.GetDataObject() If Not data Is Nothing Then If data.GetDataPresent(AnnAutomation.ClipboardObjectFormat) Then canPaste = True End If End If If canPaste Then MessageBox.Show("Annotation information available in the clipboard") Else MessageBox.Show("No Annotation information available in the clipboard") End If End Sub
using Leadtools.Windows.Controls; using Leadtools.Windows.Annotations; using Leadtools.Demos; using Leadtools.Help; private void AnnAutomation_ClipboardObjectFormat(AnnAutomation automation) { bool canPaste = false; IDataObject data = Clipboard.GetDataObject(); if(data != null) { if(data.GetDataPresent(AnnAutomation.ClipboardObjectFormat)) canPaste = true; } if(canPaste) MessageBox.Show("Annotation information available in the clipboard"); else MessageBox.Show("No Annotation information available in the clipboard"); }
using Leadtools.Windows.Controls; using Leadtools.Windows.Annotations; using Leadtools.Examples; using Leadtools.Silverlight.Demos; private void AnnAutomation_ClipboardObjectFormat(AnnAutomation automation) { MessageBox.Show(AnnAutomation.ClipboardObjectFormat); }
Imports Leadtools.Windows.Controls Imports Leadtools.Windows.Annotations Imports Leadtools.Silverlight.Demos Private Sub AnnAutomation_ClipboardObjectFormat(ByVal automation As AnnAutomation) MessageBox.Show(AnnAutomation.ClipboardObjectFormat) End Sub