Visual Basic 6.0 テクニック

Visual Basic 中学校 > VB6 テクニック >

４．ワンポイントテクニック

今回は互いに関連のない、ちょっとしたテクニックを紹介します。

１．コマンドボタンに画像や色をつける

通常の設定では、コマンドボタンには色を付けたり画像を表示させたりすることはできませんが、Styleプロパティを１にすることで可能になります。

色を付けるには、Styleプロパティを１にした後でBackColorプロパティを変更します。画像を表示するには、ピクチャーボックスなどと同様にPictureプロパティを使います。

２．ＥＳＣキーでプログラムの実行を終了させる

フォーム上にコマンドボタンを配置して、CancelプロパティをTrueにします。そうすると、ＥＳＣキーを押したときには自動的にこのボタンのクリックイベントプロシージャが呼び出されますから、そこに一言ENDと記述すれば終わりです。

しかし、フォーム上にこのためのコマンドボタンを配置したくない場合もあるでしょう。そんなときはこのコマンドボタンをユーザーの目に触れないようにすることで目的を達成することができます。といってもVisibleプロパティをFalseにするのではありません。VisibleプロパティをFalseにするとＥＳＣキーを押しても反応してくれません。

解決策はフォームのResizeイベントプロシージャに次のように記載することです。（なお、目的のボタンの名前をCmdESCとしています。）

おわかりでしょうか？このテクニックを使うともっと便利なことができます。それは次をご覧下さい。

３．ショートカットキーを設定する

メニューエディタを使えば簡単にショートカットキーを設定できます。しかし、メニューを使いたくない場合はどうしたらよいでしょう。

１つの方法はフォームのKeyPreviewプロパティをTrueにしてキー入力を一括してトラップする方法です。これでも全く問題はないのですがショートカットキーの数が多いとコードがごちゃごちゃしてきて嫌な物です。

そこで、今回はコマンドボタンを使う方法を説明します。コマンドボタンはCaptionプロパティに　終了(&Q)　のように入力すると、Alt + Q でそのコマンドボタンにアクセスできるようになります。この機能を利用して次のようなサンプルを作ってみました。フォーム上にコマンドボタンは表示されないのでユーザーにはコマンドボタンを呼び出しているという感覚はありません。

Command1のCpationプロパティを　(&C)　にしておいてください。

Private Sub Command1_Click() MsgBox "Command1が呼び出されました。" End Sub

Private Sub Form_Resize() Command1.Left = Me.Width End Sub

これで、このプログラムは、Alt + C でメッセージが表示されるようになります。もちろんコマンドボタンは見えていません。

４．右クリックでポップアップメニューを呼び出す

Windowsの通常のアプリケーションは右クリックをするとポップアップメニューという物が出現します。よくあるのは、コピー、切り取り、貼り付け、キャンセルですね。このようなポップアップメニューはＶＢでも簡単に呼び出せるのですが、なぜか知らない人が多いようです。

まず、呼び出されるメニューを作っておきましょう。メニューエディタを使って、次のように打ち込んでみてください。

親メニューに書いてあるようにmnuJapaneseとmnuEnglishはmnuPopupのサブメニューとしてください。メニューエディタでサブメニューをつくるにはサブメニューにしたい項目の所で「→」ボタンをクリックします。サブメニューになっている項目はメニューエディタ上では先頭に「・・・・」が付いて表示されます。

なお、メニューが普段から表示されていは具合の悪い場合は、やはりメニューエディタでそのメニューを非表示にすることもできます。

さて、このメニューを呼び出すにはフォームのPopupMenuメソッドを呼び出すだけです。たとえば、

とするだけでよいのです。

以上で要点の解説は終わりですが、念のため右クリックメニューを使ったサンプルプログラムの全文を紹介しておきます。上の表のようなメニューをあらかじめ作成しておいてください。

５．タイトルバーのないフォームでもポップアップメニューを表示する

フォームのBorderStyleプロパティを０にすると、タイトルバーがなくなります。詳しいことは分からないのですが、タイトルバーがないとメニューも設定できないようです。メニューが設定できないとポップアップメニューも作成できません！（BorderStyleが０のフォームにメニューを設定するとタイトルバーが出現する。これはＶＢのバグか？）

しかし、ご安心。ポップアップメニューは他のフォームのメニューを呼び出しても良いのです。たとえば、次の例では、Form2からForm1のmnuPopメニューをポップアップメニューとして呼び出します。

ただ、これをやるとフォームをまたいだ処理をしなければならないのでちょっと面倒くさいです。

６．プログラムの実行を指定した時間だけ中断させる

理由は様々ですがプログラム中に実行をごく短い時間だけ中断したい場合があります。中断をしないとプログラムの実行速度が速すぎて不都合な場合もあると言うことです。また、ユーザとの関係で中断を使用したい場合もあるかもしれません。

さて、プログラムの実行を中断させるもっとも有名な方法はSleep関数を使う方法です。Sleep関数はミリ秒で時間を指定してその間のプログラムの実行を中断します。（１０００ミリ秒＝１秒）。

Sleep関数はAPI関数なので使用する前に宣言する必要があります。その宣言は次のようになります。

宣言さえしてしまえば使用は簡単です。次の例はプログラムに実行を３秒間停止させます。

しかし、Sleep関数では事足りない場合もあります。というのはSleep関数はプログラムの実行を完全に中断してしまうので一部分だけ停止したいという場合には不向きなのです。

考えられるのはある処理を一時中断したいけれどもその間にもユーザーがコマンドボタンをクリックするなど別の動作は行えるようにしたい等の場合です。

そんなとき、私は次のようなWait関数を使っています。この関数は私が作った物です。使用したい場合はこれと同じように記述してください。

これを記述してしまえば後は簡単です。次の例ではプロシージャの実行を３秒間停止させます。

簡単に解説しておきますと、Timer関数はＶＢの組み込み関数で午前０時からの経過時間を秒単位で返します（ただし、小数部を見ればもっと細かい時間も取得できます）。そこでTimer関数をループで呼び出して指定した時間が経過すればループを脱出するということです。このときDoEventsをループ内に挿入し忘れるとそのプログラムどころかパソコンのCPUを指定時間占拠してしまうので注意してください。

最後に一つ問題点を指摘しておきます。Timer関数は午前０時からの経過秒を返す関数なので、このWait関数の実行が日をまたぐとやばいことになります（永遠にループすることになります）。

７．ＶＢでディスプレイ全体を占領する

ビジネスアプリケーションなどでは不必要なことですが、ＶＢで画面全体を占領したい場合もあります。たとえばゲームを作るときやスクリーンセーバーを作るときです。フォームのWindowStateを２にすれば最大化はできますが、タスクバーやタイトルバーは表示されたままです。

さて、問題の解決法はとても簡単ですプロパティをちょっといじるだけで済みます。ＶＢで画面全体を占領するためには次の２つのプロパティを指定してください。

BorderStyle    ０　　なし

WindowState    ２　　最大化

この２つを設定してプログラムを実行すると期待通りＶＢで画面全体を占領することができます。占領して何をするかはみなさん次第です。いろいろおもしろいことができそうですよね。

ところで、これだけだとプログラムを終了させる方法がないので気をつけてください。（ちなみにCtrl + Break(Pause)キーでプログラムの実行を強制中断できます）。