DblClick 事件、CanPaste 属性、Paset 和 Copy 方法示例

下例使用 CanPaste 属性和 Past 方法，将组合框从剪贴板粘贴到多页控件的一页中。该示例还使用 SetFocus 和 Copy 方法把控件从窗体复制到剪贴板。

用户单击 CommandButton1 可把组合框复制到剪贴板。用户双击（使用 DblClick 事件）CommandButton1 可把组合框粘贴到多页控件上。

窗体包含：

• 名为 TextBox1 的文本框。
• 名为 ComboBox1 的组合框。
• 名为 MultiPage1 的多页控件。
• 名为 CommandButton1 的命令按钮。

注意 该示例还包括一个子程序，用以说明把文本粘贴到控件。

Sub UserForm_Initialize()
    UserForm_ComboBox1.AddItem "It's a beautiful day!" 
    
    UserForm_CommandButton1.Caption = "Copy ComboBox to Clipboard"
    UserForm_CommandButton1.AutoSize = True
End Sub


Sub UserForm_MultiPage1_DblClick(Index, Cancel)

    If UserForm_MultiPage1.Pages(UserForm_MultiPage1.Value).CanPaste =True Then
        UserForm_MultiPage1.Pages(UserForm_MultiPage1.Value).Paste
    Else
        UserForm_TextBox1.Text = "Can't Paste"
    End If
End Sub

Sub UserForm_CommandButton1_Click()
        UserForm_ComboBox1.SetFocus
        UserForm_ComboBox1.Copy
End Sub