１．VB6.0からクリップボードを利用する

１．クリップボードをクリアする ２．選択した範囲のテキストをクリップボードにコピーする ３．クリップボードに PictureBox に表示中の画像をコピーする ４．クリップボード内のテキストデータを取得してテキストボックスに貼り付ける ５．クリップボード内の画像データを取得してピクチャーボックスに貼り付ける ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定： 使用 API： その他　： 　　　　：

１．クリップボードをクリアする

Private Sub Command1_Click() 　　'Clear メソッド : クリップボードの内容をクリアします。 　　Clipboard.Clear End Sub

２．選択した範囲のテキストをクリップボードにコピーする

Private Sub Command2_Click() 　　Clipboard.Clear　　 '一旦、クリップボードの内容をクリアします。 　　'SetText メソッド : Clipboard オブジェクトにテキスト文字列を挿入します 　　Clipboard.SetText Text1.SelText End Sub

３．クリップボードに PictureBox に表示中の画像をコピーする

Private Sub Command3_Click() 　　Clipboard.Clear 　　'クリップボードを初期化 　　'SetData メソッド : Clipboard オブジェクトにピクチャーを挿入します。 　　Clipboard.SetData Picture1.Picture 　　'切り取りの場合はコピーした画像を削除 　　'Picture1.Cls　又は Set Picture1.Picture = LoadPicture() End Sub

４．クリップボード内のテキストデータを取得してテキストボックスに貼り付ける

Private Sub Command4_Click() 'GetFormat メソッド : 指定した形式と一致するアイテムが Clipboard オブジェクトにあるかどうかを示す整数を返します。 'GetText メソッド : Clipboard オブジェクトからテキスト文字列を返します。 　　'クリップボードにテキストデータが入っているかチェック 　　If Clipboard.GetFormat(vbCFText) Then 　　　　'テキストデータならテキストボックスに貼り付け 　　　　Text2.SelText = Clipboard.GetText() 　　End If End Sub

５．クリップボード内の画像データを取得してピクチャーボックスに貼り付ける

Private Sub Command4_Click() 'GetFormat メソッド : 指定した形式と一致するアイテムが Clipboard オブジェクトにあるかどうかを示す整数を返します。 'GetData メソッド : Clipboard オブジェクトにロードされているピクチャーを返します。 　　'クリップボードにビットマップが入っているかチェック 　　If Clipboard.GetFormat(vbCFBitmap) Then 　　　　'ビットマップならピクチャーコントロールに貼り付け 　　　　Set Picture2.Picture = Clipboard.GetData() 　　End If End Sub

６．

検索キーワード及びサンプルコードの別名(機能名)

クリップボードをクリアする　クリップボードの中身をクリアする ショートカット　コピー　貼り付け　切り取り　元に戻す