VB初心者友の会 - Q&A掲示板過去ログ

> としてみたのですが　コピーしておいた画像とは　全然　違う
> 見たことのない　アイコンが出たりします

GetDataする時に引数を指定してもダメですか？

Dentalさん　お手数かけて　すみません
 
> > としてみたのですが　コピーしておいた画像とは　全然　違う
> > 見たことのない　アイコンが出たりします
> 
> GetDataする時に引数を指定してもダメですか？

もう一度　本を見ながら

Private Sub Command1_Click()
If Clipboard.GetFormat(vbCFBitmap)=True Then
Picture1.Picture=Clipboard.GetData
End if
End sub

にしたのですがダメでした
参照設定とかいうもので何か参照させるのでしょうか
もし　そうだとしても何を参照させれば良いのか分かりません
もし　ヒントだけでもあれば　皆さん　どうか　よろしくお願いします

> Private Sub Command1_Click()
> If Clipboard.GetFormat(vbCFBitmap)=True Then
> Picture1.Picture=Clipboard.GetData
> End if
> End sub

別に、コードに問題があるわけではないようです。

VB を開こうとすると、その処理の中で、
アイコンを内部的にクリップボードにコピーしているらしく、
そのアイコンが表示されているようです。

そのタメ、 VB をあらかじめ起動しておいて、
その後で bmp の画像をコピーし、コードを実行すると
正しく表示されると思います。

>> If Clipboard.GetFormat(vbCFBitmap)=True Then
>> Picture1.Picture=Clipboard.GetData
>> End if

クリップボードには、同時に複数のデータ形式の情報が
格納されている事もありますから、GetFormatでの存在確認だけでなく、
GetData時にも、vbCFBitmapの指定が必要になるでしょう。

> VB を開こうとすると、その処理の中で、
> アイコンを内部的にクリップボードにコピーしているらしく、
これは、VB自身の問題ではなく、VBの「アドイン」の問題です。

いくつかのアドインは、ツールバー(CommandBar)に指定する画像を
設定するために、クリップボードを使います。
その為、不要な画像データが格納されてしまうことがあります。

煩わしい場合は、VBのメニューで[アドイン]を選び、アドインマネージャで、
不要なアドインの「起動時にロード」のチェックを外してしまいましょう。

とろさん　魔界の仮面弁士さん　ありがとうございます
早速　今日　御二人から言われた事を　やってみました
とろさんに言われた通り　VBを起動してから　クリップボードにコピーして
からやってみたり
魔界の仮面弁士さんの言われた通りに　アドインマネージャーというものから
とりあえず　全部　起動時にロードのチェックを外してみました
ソースは　引数を付けて

Private Sub Command1_Click()

If Clipboard.GetFormat(vbCFBitmap) = True Then
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End If

End Sub
に変えてからやってみました
でも　結果は同じで　VBの何かしらの　アイコンが出てきます
（アドインマネージャーで　起動時にロードのチェックを外したら　アイコンが変わりました）
VB起動後にやると今度は　何も起きません
試しに　ディストリビューションウィザードで　一回　コンパイルして
自分でインストールしてからやってみましたが
やはり　同じでした
これは　再インストールした方が良いのでしょうか
皆さんは出来てるようなので　私のVBが　おかしいのでしょうか
何回も　すみません
どうも　ビットマップを認識してない気がして仕方ないのですが
でも　VBのアイコンを読み込んだ時だけは表示するのは何故なんでしょう
とりあえず　自分でも色々　試してみますので
また　何かヒントか何かあったら　よろしくお願いします

えっと、一番最初から皆さんが答えている通り、プログラムは問題ないと思いますよ。

画像をクリップしておいて、自作アプリを動かしておいて、VB を起動して、アプリのボタンを押す。
この順番なんですよね？

VB のプロジェクトを起動してしまっているせいで、VB 自身がクリップボードを使ってアイコンを
描いてしまうので、その後で貼り付けようとしても駄目ですよ。クリップボードは貴方だけのもの
ではなく、全てのアプリが使用できてしまいます。　もちろん、VB だって使えちゃいますから。

クリップする前に、VB は起動させておきましょう。　または、コンパイルして EXE にしてしまい、
VB のプロジェクトは開かない事です。

Dentalさん　せつらさん　魔界の仮面弁士さん　とろさん
皆さん　ありがとうございました

あの後やったら出来ました
VB内でコピーしないといけなかったんですね
普通に　VBを最小化して　Windowsのマイドキュメントとかに作っておいたBMPファイルを
右クリックからコピーして　普通のコピーをしていました
VBのプログラムで
Clipboard.SetData Image1.Picture
とかでコピーしてから
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
でやったら　それを見る事は出来ました
お騒がせして　すみませんでした　色々　ありがとうございました
所で　このダメだった　Windowsの方で　普通にコピーしたものを
見る方法もあるのでしょうか

> 普通に　VBを最小化して　Windowsのマイドキュメントとかに作っておいたBMPファイルを
> 右クリックからコピーして　普通のコピーをしていました
> 所で　このダメだった　Windowsの方で　普通にコピーしたものを
> 見る方法もあるのでしょうか
このコピーはファイルのコピーであって、画像をコピーしているわけではありません。
画像をコピーするならペイント等で表示された画像をコピーしないとダメです。

> > 普通に　VBを最小化して　Windowsのマイドキュメントとかに作っておいたBMPファイルを
> > 右クリックからコピーして　普通のコピーをしていました
> > 所で　このダメだった　Windowsの方で　普通にコピーしたものを
> > 見る方法もあるのでしょうか
> このコピーはファイルのコピーであって、画像をコピーしているわけではありません。
> 画像をコピーするならペイント等で表示された画像をコピーしないとダメです。

いなちゃんさん　ありがとうございます
やっと　理解出来ました感謝です
ペイントで　BMP画像を開き　ツールバーの　編集から「全て選択」
もう一度　編集から「コピー」してから
例の　クリップボードの　VBプログラムを動かしたら出来ました
皆さん　ありがとうございました