月刊ソフト作り！
Make The Software For VisualBasic


『ビットマップビューアを作る（その４）』
2002.May.21

　Presented by kouta_y
感想等は掲示板、苦情はメールへ。

前回の続きです。
今回はグラフィックスの技というより、VBの技です。

前回までのあらすじ

前回はメモリDCを使って再描画を実現させました。
折角メモリDCがあるので、いろいろ活用したいところですが、今回はVBのコントロールの方を活用させたいと思います。
そういえばVBのコントロール使ったサンプルってないなぁ・・・。

スクロールバーを使う

スクロールバーというのは、皆さん一度以上は必ずみたことがあるはずです。
IEでいえば、表示できない部分がでてくると、ウィンドウの右端と下にバーが出てきますよね？
それです。
今回は、大きい画像の場合スクロールバーを使用して画像を描画させる位置を移動させてみたいと思います。


こういうやつです。

スクロールバーコントロールの挿入

スクロールバーコントロールは、VisualBasic6.0の標準ランタイムライブラリに入っていますので、特殊な.OCXファイルなどはいりません。
今回もいつも通り、前回のサンプルをそのまま使います。


スクロールバーはどれ？

コントロールバーのところに他のと一緒にあります。


赤丸内の右が、垂直スクロールバー。左が水平スクロールバーと呼ばれています。
ドラッグ＆ドロップでフォームに貼り付けてください。
プロパティなどは実行時（つまりソースに直接）に指定しますので、位置や他のプロパティは適当でかまいません。
ただ、オブジェクト名と横幅や縦幅だけはここで指定します。

ちなみに「V」というのは「Verticality」の略で「垂直」。「H」は「Horizontality」の略で「水平」という意味です。
野球好きの人なら「Vスライダー」「Hスライダー」と覚えれば簡単です。


筆者のレイアウトはこんな感じです。


随分アバウトですけど、デザイン時はこれでオッケーです。
フォームの背景色も変えてあります。

コードは？

では早速コーディングに入りましょう。
今回はAPIの追加はありません。（ほっ）
スタートアップルーチンはほとんど同じですが、一部変更があります。
おまけコードは邪魔なのではぶいています。

さて、前回との変更点は、

BI変数をグローバル変数にした。
フォームのサイズは変更しない。
フォームの表示はモードレスで。
APIの後処理は、フォームのアンロードイベント内で。（後述）

これだけです。
ここで重要なのはBIをグローバル変数としているところです。
後にも説明しますが、これはスクロールバーの値（位置）や、画像の大きさを計算しないといけないためです。

スクロールバーはどうやって使う

結構面倒くさいです。
スクロールバーをスクロールしたら、勝手に画像が動いてくれるわけではありません。
自分で画像の表示位置、スクロールのさせかたなど全部計算してやらなくてはいけません。
しかしVBはまだ簡単な方なのです。
ですが、こういう計算がパパッとできるようになれば、他のことにもかなり応用がきくようになるはずです。

まず、ここでやる簡単な「流れ」で説明します。
分かりやすくするため、垂直スクロールで説明します。

・　最初に画像の大きさからスクロールの量を決める。
・　フォームのサイズが変更されたら、（画像の高さ－フォームの描画領域の高さ＋スクロールバーの幅）でスクローロバーのMAX値を出す。
・　フォームのサイズが変更されたら、スクロールバーの位置とサイズをフォームにあわせて変更する。
・　フォームの高さが画像の高さを超えてたら、スクロールバーを無効にする。
・　ユーザーがスクロールしたら、再描画を行う。
・　再描画は、スクロールバーの値をBitBlt関数に渡してメモリDCをフォームに転送する。

こんな感じです。
文中にでてくる描画領域とは、タイトルバーやメニューバーなどを除いた領域のことです。
例えば、BitBlt関数とかで、X,Yの引数に0,0を渡しても、タイトルバーに描画されることはありませんよね。
つまりは「描画領域」とは、実際に描画させることが可能なウィンドウの領域で「クライアント領域」とも呼ばれます。
これは大事なことなので覚えておいてください。
では実際のフォームモジュール内のコードを見てみましょう

さて、一番の見所がForm_Resizeイベントでしょうか。いろいろ書いてあります。
まず最初に説明した通り、スクロールバーの移動量を画像の1/10としています。これは適当です。
Loadイベントの次に呼ばれるのが、ここではResizeイベントです。
まずスクロールバーのMAX値を計算しています。式は上で書いた通りです。
なぜ＋Ｗｉｄｔｈしているのかは後で説明します。
計算結果がマイナスなら、画像の大きさよりフォームの方が大きいという事ですので、スクロールバーを無効にします。
垂直スクロールバーのTOPは常に０です。
Leftは上手く右端にくるようにします。
次に高さですが、ここでもマイナス値にならないようにIF文でフォームの大きさをみてから計算しています。
HSｃｒｌも全く同じ事をしています。

各スクロールバーのChangeイベントは、スクロールバーがスクロールされたら呼び出されます。
このプロージャは再描画命令だけ出して終わります。

では再描画プロージャ（Paintイベント）ですが、前回同様BitBlt関数でメモリDCの内容を転送するだけです。
しかし、今回の見所は後ろから１番目と２番目の引数です。
この引数にはスクロールバーの現在の値を渡します。スクロールバーの値はそのまま画像の位置として計算しているので、そのままValueを渡します。

最後にフォームが閉じられたら、APIで作成したリソースを解放してあげます。
これを忘れると、リソース消費しまくりの最低なアプリケーションとなってしまいます。

完成

ではビットマップファイルをドラッグ＆ドロップで渡してみましょう。



こんな感じで表示されました？
スクロールしてみたり、サイズを変更したりといろいろ試してみてください。
今回はこれで終わりです。



ちょっと待ったー！

何かおかしなことに気付きませんか？
はい。
「え？何が？」
と思った人は、ウィンドウの右下の方をみてください。
真っ黒な正方形な部分がありますよね。
「え？もしかして・・・」
はい。その通り。画像の一部です。

なんとこのスクロールバーとんだ欠陥品です。

そうなんです。
通常ならば、あそこには斜め線があって、サイズ変更可の表示がされて、マウス近づけるとマウスアイコンが変わったりするんですが・・・。
このサンプルにそんな現象はおきません。

「ふざけるな！ここまでの苦労はなんだったんだ！」
まぁまぁ。（←あほ）
もちろん筆者はこうなることを知ったうえで今回やりました。
なんてことでしょう。確信犯です。

実は、スクロールバーにはスクロールバーコントロールとウィンドウスクロールバーという２つのものがあるんです。
上で書いたようなスクロールバーはウィンドウスクロールバーで、今回はそれに似せたインチキスクロールバーなのです。
ウィンドウスクロールバーを作るには、作るだけならそれほど難しくありません。
ですが、今回やったような画像の移動など実際に使う場合、VB向きではないんです。

あとあとの「月刊ソフト作り」でもちょっとずつ説明していきますが、これを実現させるにはウィンドウメッセージを受け取れるウィンドウプロージャというものが必要になり、
フォームモジュールは一切使わず、全て標準モジュール内でコードを組まなければなりません。
しかもその方法は、API関数を山ほど使いますので、宣言も増えてめちゃくちゃ面倒くさいです。
フォームモジュールを使わないVBなんて、既にVBではないと思います。
そんな事をするくらいなら、VBではなくC言語など別の言語で作るべきです。（まあ例外もあるでしょうが）

ってなわけで、今回のこのやり方はインチキスクロールバーだということを、十分認識しておいてください。
ちなみにチカチカとスクロールバーが光るのは、OSの仕様らしいです。
光らせないことも可能ですが、ここでは割愛させていただきます。

終わり

さて、今回はコントロールの技となってしまいましたね。
上でインチキ、インチキと連呼しましたが、プログラムというのは「そう見せている」といったインチキ技が多数存在します。
再描画なども、「消えていないように見せている」だけで実際消えています。
それがコンマ数ミリ秒の世界なので、人間には確認することができないだけなんです。

例の如く、今回のサンプルは下から落とせます。
参考にしてください。

vb10.lzh（9.64KB）