Copy メソッド、GetFromClipboard メソッド、GetText メソッド、DataObject オブジェクトの例

次の例では、TextBox からクリップボード、クリップボードから DataObject、DataObject から別の TextBox へのデータ移動を示します。 GetFromClipboard メソッドは、クリップボードから DataObject にデータを転送します。 Copy メソッドと GetText メソッドも使用されます。

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

• 2 つのテキスト ボックス ( TextBox ) コントロール (TextBox1 と TextBox2)
• CommandButton1 と命名された CommandButton

Dim MyData as DataObject 
 
Private Sub CommandButton1_Click() 
 'Need to select text before copying it to Clipboard 
 TextBox1.SelStart = 0 
 TextBox1.SelLength = TextBox1.TextLength 
 TextBox1.Copy 
 
 MyData.GetFromClipboard 
 TextBox2.Text = MyData.GetText(1) 
End Sub 
 
Private Sub UserForm_Initialize() 
 Set MyData = New DataObject 
 TextBox1.Text = "Move this data to the " _ 
 & "Clipboard, to a DataObject, then to " 
 & "TextBox2!" 
End Sub 

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。