DblClick イベント、CanPaste プロパティ、Paste メソッド、Copy メソッドの例

次の例では、CanPaste プロパティと Paste メソッドを使用して、クリップボードから MultiPage の Page に ComboBox を貼り付けます。

このサンプルでは 、SetFocus メソッドと Copy メソッドを使用して、フォームからクリップボードにコントロールをコピーします。

ユーザーは CommandButton1 をクリックして、コンボ ボックスをクリップボードにコピーします。 また、ユーザーは (DblClick イベントを使用して) CommandButton1 をダブルクリックし、 コンボ ボックス を マルチ ページ に貼り付けます。

この例を使用するには、このサンプル コードをフォームの宣言セクションにコピーします。 フォームに次が含まれていることを確認してください。

• テキスト ボックス ( TextBox ) コントロール (TextBox1)
• ComboBox1 という名前のコンボ ボックス。
• MultiPage1 という名前のマルチ ページ。
• CommandButton1 と命名された CommandButton

注:

この例には、コントロールへのテキストの貼り付けを説明するためのサブルーチンも含まれています。

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 のサポートおよびフィードバックを参照してください。