Freigeben über

GetFormat-, GetText-, SetText-Methode (Beispiel)

  • Artikel

Im folgenden Beispiel werden die Methoden GetFormat, GetText und SetText verwendet, um Text zwischen einem DataObject und der Zwischenablage zu übertragen.

Der Benutzer gibt Text in ein TextBox-Objekt ein und kann ihn dann in einem Standardtextformat in ein DataObject übertragen, indem er auf CommandButton1 klickt.

Beim Klicken auf "CommandButton2" wird der Text vom DataObject abgerufen.

Beim Klicken auf "CommandButton3" wird der Text aus TextBox1 in einem benutzerdefinierten Format in das DataObject kopiert.

Durch Klicken auf "CommandButton4" wird der Text in einem benutzerdefinierten Format aus dem DataObject abgerufen.

Wenn Sie dieses Beispiel verwenden möchten, kopieren Sie den Beispielcode in den Deklarationsteil eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • A TextBox named TextBox1.
  • Vier CommandButton-Steuerelemente mit dem Namen CommandButton1 bis CommandButton4.
  • Ein Bezeichnungsfeld-Steuerelement ( Label ) mit der Bezeichnung "Label1".
Dim MyDataObject As DataObject 
 
Private Sub CommandButton1_Click() 
'Put standard format on Clipboard 
 If TextBox1.TextLength > 0 Then 
 Set MyDataObject = New DataObject 
 MyDataObject.SetText TextBox1.Text 
 Label1.Caption = "Put on D.O." 
 CommandButton2.Enabled = True 
 CommandButton4.Enabled = False 
 End If 
End Sub 
 
Private Sub CommandButton2_Click() 
'Get standard format from Clipboard 
 If MyDataObject.GetFormat(1) = True Then 
 Label1.Caption = "Std format - " _ 
 & MyDataObject.GetText(1) 
 End If 
End Sub 
 
Private Sub CommandButton3_Click() 
'Put custom format on Clipboard 
 If TextBox1.TextLength > 0 Then 
 Set MyDataObject = New DataObject 
 MyDataObject.SetText TextBox1.Text, 233 
 Label1.Caption = "Custom on D.O." 
 CommandButton4.Enabled = True 
 CommandButton2.Enabled = False 
 End If 
End Sub 
 
Private Sub CommandButton4_Click() 
'Get custom format from Clipboard 
 If MyDataObject.GetFormat(233) = True Then 
 Label1.Caption = "Cust format - " _ 
 & MyDataObject.GetText(233) 
End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton2.Enabled = False 
 CommandButton4.Enabled = False 
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.