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
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