VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

ぷよ さんへ。
> ピクチャーボックスに、line メソッド や Circle メソッドで描画して、
> それを、クリップボード経由で、他のアプリに貼り付けて使用するプログラムを
> 作りたいのですが  SetDataなどを使ってもうまく受け渡しできません。
> どうすればいいのでしょうか？

　ImageプロパティとAutoRedrawプロパティの使い方次第ですね。

　Private Sub Command1_Click()
    Picture1.AutoRedraw = True
    Picture1.Circle (1000, 1000), 500, &HFF&, , , 1
    Picture1.Print "教えて下さい"
    Picture1.AutoRedraw = False
　End Sub

　Private Sub Command2_Click()
    Clipboard.SetData Picture1.Image
　End Sub

くりちゃんさんへ

> 　ImageプロパティとAutoRedrawプロパティの使い方次第ですね。
>      (略)

早速のお答えありがとうございます。
すぐにやってみました。
おバカな私で申し訳ありませんが、うまくいきません。
新しく、Formを作って
１．Picture1とCommand1，2を配置
２．くりちゃんさんが書いて下さったコードをコピーしてコードウインドゥへペースト
３．実行 → Command1クリック(描画) → Command2クリック
４．ＭＳ−Ｗｏｒｄ を起動して右クリック貼り付け
をしましたが、貼り付けられたのは?２でコピーした、コードです。

何か基本的なことが間違っているのでしょうか？（ちなみにＶＢ６,WIN98です）
お手数をおかけして申し訳ありませんがよろしくお願いします。

> おバカな私で申し訳ありませんが、うまくいきません。
(^_^;)

> ４．ＭＳ−Ｗｏｒｄ を起動して右クリック貼り付け
> をしましたが、貼り付けられたのは?２でコピーした、コードです。
Wordではなく、ペイントではどうでしょう？
また、アクセサリの、「クリップボードビューワ」などで確認してみましたか？
（「標準インストール」なWindowsだと、インストールされてないかも）
[表示]メニューを見ると、[テキスト]とは別に、[ビットマップ]も貼り付いているはずです。


> 何か基本的なことが間違っているのでしょうか？（ちなみにＶＢ６,WIN98です）
知らない方や忘れている方も多いようですが、それはクリップボードの性質です。
実はクリップボードは、「複数のフォーマットを同時に保持できる」という性質があります。

例えば、Wordで書いた文書をコピーして、それを別のWord文書にペーストすると、
書式付きで貼り付くのに、メモ帳にペーストした場合は、単なるテキストになりますよね。
あれは、「書式付きテキスト」の形式と、「プレーンテキスト」の両方の形式を、クリップボードに
転送しているからなのです。そして各アプリは、自分が利用できる形式がクリップボードにあった場合に
その情報を取得するように作られています。
＃ 利用できない形式しかなければ、当然ペーストされません。
＃ ビットマップをコピーしても、メモ帳には貼り付けられませんよね？

これを回避するには、SetDataする前にクリップボード内の情報をClearして、
「ビットマップ情報のみ」が、クリップボードに残るようにすればＯＫです。