Пример использования события DblClick, свойства CanPaste и методов Paste и Copy

В следующем примере свойство CanPaste и метод Paste используются для вставки comboBox из буфера обмена в страницуMultiPage.

В этом примере также используются методы SetFocus и Copy для копирования элемента управления из формы в буфер обмена.

Пользователь выбирает элемент CommandButton1 для копирования объекта ComboBox в буфер обмена. Пользователь дважды щелкает (используя событие DblClick) элемент CommandButton1 для вставки объектаComboBox в коллекцию MultiPage.

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит:

• Объект TextBox с именем TextBox1.
• Элемент ComboBox с именем ComboBox1.
• Элемент MultiPage с именем MultiPage1.
• Объект CommandButton с именем CommandButton1.

Примечание.

В этом примере также рассматривается подпрограмма, демонстрирующая вставку текста в элемент управления.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.