VBサンプルを使っての表示について (後藤あきら) 1997/10/19 12:01
こんにちは、Ｔｏｍｙさん。お返事はこちらに書きます。
では、もう(ほんの)ちっびっと丁寧に説明します(^^)。

あのサンプルは、フォームモジュール上にＭＡＧＲＯ画像を表示するものです。なお、動作確認はＶＢ５です。

用意する材料は、「フォームモジュール」と「標準モジュール」それぞれ１個づつ。ＶＢのウィザードが作ったものでなく素のものです。たったコレだけであのサンプルは動きます。フォームモジュールのプロパティはデフォルトでＯＫです。あとは、それぞれのモジュールにサンプルコードを書いて下さい(コピー＆ペーストはしないほうがいいかもしれません)。

間違いやすいとことろとか、注意点として次のことを試してみて下さい。

・もしデバッグモードで動作確認をしたいのなら、GetPicture 関数定義のところの Plug-in 名をフルパスで指定しなくてはなりません。完全に EXE にコンパイルすれば、EXE と同一ディレクトリに Plug-in があればサンプルの定義のままで動作するはずです。
・画像ファイルもフルパスでお願いします。あれではどこのファイルかわかりませんので動作しません(^^;。
・SetDIBits 関数の第４引数には、画像の高さを入れて下さい。サンプルは高さが 400 ピクセルと事前に解っていたから入れています。ちなみに画像の高さは GetPictureInfo 関数で取得できます。ご存知でしょうけど SetDIBits 関数の戻り値は、ゼロ以外なら成功です。戻り値はコピーされた操作行数ですので、第４引数で設定した値通りならまあＯＫでしょうか。

こんなところです。長文でゴメンナサイ(^^;。
それからＶＢプログラマーの皆さん、くれぐれもサンプルで Call って書いて戻り値を見ていないのはあくまでサンプルだからですので、ここはしっかり確認して、エラーの場合の対処方法をコーディングして下さいね。ＶＢのソフトは「品質が悪い」って言われたことありますが、大抵 API の戻り値の処理を省いていたりして見過ごしている場合があります。

それでは、Ｔｏｍｙさま並びにＶＢプログラマの皆さま、これからも頑張って素晴らしいソフト作って下さいネ(^^)。

7thBridge P ver0.26 (c)Takechin