Compartilhar via


Exemplo do evento DblClick, da propriedade CanPaste, dos métodos Paste, Copy

O exemplo a seguir usa a propriedade CanPaste e o método Paste para colar um ComboBox da Área de Transferência para uma Página de uma MultiPage.

Este exemplo também usa os métodos SetFocus e Copy para copiar um controle do formulário para a Área de Transferência.

O usuário clica em CommandButton1 para copiar o ComboBox para a Área de Transferência. O usuário clica duas vezes (usando o evento DblClick) CommandButton1 para colar o ComboBox na MultiPage.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:

  • Uma Caixa de Texto chamada TextBox1.
  • Uma ComboBox denominada ComboBox1.
  • A MultiPage named MultiPage1.
  • A CommandButton named CommandButton1.

Observação

Este exemplo também inclui uma sub-rotina para ilustrar a colação de texto em um controle.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.