Beispiel für Copy-, GetFromClipboard-, GetText-Methode, DataObject-Objekt

Das folgende Beispiel zeigt eine Datenverschiebung von einer TextBox in die Zwischenablage, von der Zwischenablage in ein DataObject und von einem DataObject in eine andere TextBox. Die GetFromClipboard-Methode überträgt die Daten aus der Zwischenablage zu einem DataObject. Die Copy- und GetText-Methoden werden ebenfalls verwendet.

Um dieses Beispiel zu verwenden, kopieren Sie diesen Beispielcode in den Deklarationsteil eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

• Two TextBox controls named TextBox1 and TextBox2.
• Eine Befehlsschaltfläche ( CommandButton ) mit der Bezeichnung "CommandButton1".

Dim MyData as DataObject 
 
Private Sub CommandButton1_Click() 
 'Need to select text before copying it to Clipboard 
 TextBox1.SelStart = 0 
 TextBox1.SelLength = TextBox1.TextLength 
 TextBox1.Copy 
 
 MyData.GetFromClipboard 
 TextBox2.Text = MyData.GetText(1) 
End Sub 
 
Private Sub UserForm_Initialize() 
 Set MyData = New DataObject 
 TextBox1.Text = "Move this data to the " _ 
 & "Clipboard, to a DataObject, then to " 
 & "TextBox2!" 
End Sub 

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.