Beispiele für DblClick-Ereignis, CanPaste-Eigenschaft, Paste-, Copy-Methode

Im folgenden Beispiel werden die CanPaste-Eigenschaft und die Paste-Methode verwendet, um ein ComboBox-Objekt aus der Zwischenablage in ein Page-Element eines MultiPage-Objekts einzufügen.

In diesem Beispiel werden auch die Methoden SetFocus und Copy verwendet, um ein Steuerelement aus dem Formular in die Zwischenablage zu kopieren.

Der Benutzer klickt auf CommandButton1, um das ComboBox -Steuerelement in die Zwischenablage zu kopieren. Der Benutzer klickt auf CommandButton1 doppelt (mit dem DblClick-Ereignis), um das ComboBox -Steuerelement auf das MultiPage -Steuerelement zu kopieren.

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

• Ein Textfeld-Steuerelement ( TextBox ) mit der Bezeichnung "TextBox1".
• Ein Kombinationsfeld-Steuerelement ( ComboBox ) mit der Bezeichnung "ComboBox1".
• Ein Mehrseiten-Steuerelement ( MultiPage ) mit der Bezeichnung "MultiPage1".
• Eine Befehlsschaltfläche ( CommandButton ) mit der Bezeichnung "CommandButton1".

Hinweis

[!HINWEIS] In diesem Beispiel wird mit einer Subroutine auch veranschaulicht, wie Text in ein Steuerelement kopiert wird.

Private Sub UserForm_Initialize() 
 ComboBox1.AddItem "It's a beautiful day!" 
 
 CommandButton1.Caption = "Copy ComboBox to " _ 
 & "Clipboard" 
 CommandButton1.AutoSize = True 
End Sub 
 
Private Sub MultiPage1_DblClick(ByVal Index As Long, _ 
 ByVal Cancel As MSForms.ReturnBoolean) 
 If MultiPage1.Pages(MultiPage1.Value).CanPaste = _ 
 True 
 Then 
 MultiPage1.Pages(MultiPage1.Value).Paste 
 Else 
 TextBox1.Text = "Can't Paste" 
 End If 
End Sub 
 
Private Sub CommandButton1_Click() 
 UserForm1.ComboBox1.SetFocus 
 UserForm1.Copy 
End Sub 
 
'Code for pasting text into a control 
'Private Sub ComboBox1_DblClick(ByVal Cancel As _ 
 MSForms.ReturnBoolean) 
' If ComboBox1.CanPaste = True Then 
' ComboBox1.Paste 
' Else 
' TextBox1.Text = "Can't Paste" 
' End If 
'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.