Visual Basic 6.0 中級講座

Visual Basic 中学校 > VB6 中級講座 >

第１回　ＡＰＩを使う

「ＶＢでできないことはあるのか？」というのは私がはじめてＶＢをさわった時からの疑問でした。誰でも一度はこの点について考えてみたのではないですか？　ＶＢの機能だけに限定して考えるとできないことはあります。たとえば、Windowsを終了させることはできません。MIDIやWAVEを演奏することもできません。

しかし、「ＶＢの機能」の意味を拡大解釈すれば今挙げた例はすべてＶＢでもできます。どのように拡大解釈するのかというと「ＶＢからWindowsに命令してWindowsの機能を使う」と言う意味も「ＶＢの機能」に含めると言うことです。Windowsは外部のプログラムから命令を受けることを想定して予め命令受付の窓口とも言うべき物を備えています。その仕組みこそがAPI（またの名をシステムコール）と呼ばれる物です。

１．APIを使う心構え

APIはすべて関数の形を取ります。ただし、ＶＢと違って戻り値のない関数も含みます。

また、APIはＶＢから利用できるとはいえ　VBではない　ので使用にあったてはいくつかの心構えが必要とされています。その心構えを載せておきましょう。

掟１    APIはどうしても必要な場合の他は使ってはならない。

掟２    APIを使ったプログラムは実行する前に保存すべし。

掟３    APIを試行錯誤で使ってはならない。

掟４    APIを使う者はWindowsをフリーズさせる危険もあると心せよ。

「・・・ならない」とか「・・・すべし」とか少し偉そうに書いてみましたがだいたいこれらのことは守っておいた方がいいです。APIはＶＢじゃないのでVB感覚で扱うと危険な場合もあります。しかし、APIを巧みに使えばすばらしい機能を実装することができる場合もあります。とにかく、まずAPIとはどういったものか知ることが先決でしょう。

２．宣言

では、手始めに簡単に扱われると思われる部類のAPIの使い方を解説しましょう。ここで解説するのはWindowsを起動してからの時間を取得する方法です。ＶＢでもTimer関数（タイマー）を使って細かい時間を取得することができるのですが、このTimer関数とこれから紹介するGetTickCount関数（ゲットティックカウント）では少し異なるところがあります。VB標準のTimer関数は午前0時からの経過秒を返すのに対し、GetTickCount関数はWindowsを起動してからのミリ秒（1秒＝1000ミリ秒）を返します。こう書くとGetTickCount関数の方が精度が高いように思われるかもしれませんが、Timer関数も小数点以下の値まで返してくるので一概にどちらが優秀かはわかりません。場面場面によって使い分けることになるでしょう。

さて、APIを使うには必ず独特の宣言が必要です。その宣言は　Declare Function キーワードを使って行います。また、API関数の適用範囲に応じてこの前にPrivateまたはPublicを付加します。

さらに、�@この関数をエクスポートしているDLLの名前、�A実際のエントリの名前、�B引数、�C戻り値を正確に記述する必要があります。ここが難しいところです。これらを正確に宣言するのはなかなか大変です。まず、情報が不足しているとお考えでしょう。この点については後で解説することにして今はGetTickCount関数の宣言を完成させます。

■API関数を使うために必要な情報

�@のエクスポートしているDLLというのはその関数を記述しているDLLファイルのことです。API関数も誰か作った人がいるわけで、その関数をプログラムしたファイルもあるわけです。そのファイルの名前を指定すればよいわけです。API関数は大変たくさんあるのですべてが１つのファイルにまとまっているわけではありません。代表的なファイルは　User32.dll   Kernel32.dll   Gdi32.dll   Shell32.dllなどです。これらのファイルはWindowsフォルダにあるSystemフォルダ（NTではSystem32フォルダ）に入っています。今回使うGetTickCount関数が記述されているのは　Kernel32.dll　です。

�A実際のエントリの名前とは、その関数の本当の名前のことです。我々が使おうとしているGetTickCount関数の本当の名前はそのままGetTickCountです。関数によっては本当の名前と通用している名前が違うことがあるのでこのような指定ができるようになっています。文字列を扱う関数には文字コードの違いによって本当の名前は異なるのに通用している名前は１つという場合があります。そのようなときにこの機能を思い出してください。このほかにも本当の名前と宣言する名前を変える理由はあるのですが今回は深く立ち入らないことにします。

�B、�Cの引数と戻り値はＶＢの関数でも用いるのでここでは特に説明を必要としないでしょう。

さて、以上の点をすべて勘案するとGetTickCount関数の宣言は次のようになります。

Private Declare Function GetTickCount Lib "kernel32" () As Long

この関数は引数がないので楽ですね。ここまでが大変ですが宣言さえしてしまえば普通のＶＢ関数のように利用するだけなので後はさほどでもありません。

３．GetTickCount関数の説明

少しこの関数について補足しておきます。といってもそれほど複雑な関数ではないので、失礼してMSDNライブラリにある説明をそのまま掲載しましょう。

はじめての人はきっとこの説明を見てもよくわからないでしょう。というのもこの説明はC言語を想定して書かれているからです。たとえば途中で出てくる DWORD型　はVBでいうと　Long型　に該当します。

４．実装

それでは、プログラムを完成させます。ただ経過時間を表示するだけでは面白くないのでついでにあなたのパソコンの性能を測定するプログラムを書いてみましょう。

とはいってもそれほど難しいことはやりません。計算が遅いといわれている浮動小数点演算を繰り返させてどのくらいの時間で計算が終了するのかを測るだけです。計算開始前にGetTickCount関数でWindowsが起動してからのミリ秒（以下単に「ミリ秒」と書く）を取得し、計算終了後にもミリ秒を取得し、最後に2つのミリ秒を引き算すれば計算にかかった時間が出るという寸法です。

1回の測定では誤差もあるでしょうからループをまわして10回測定することにします。

こんなプログラムはすぐかけますね。次のようになります。

みなさんも実際にやってみてください。見ているだけと実際にやってみるのとでは結構違うものです。

プログラムが終わったら保存してから実行してみてください。ボタンをクリックするとリストボックスに計算にかかった時間が表示されていくことでしょう。

なお、参考までに私のパソコンでかかった時間を掲載しますと、だいたい１０６２ミリ秒前後でした。だからあれだけの計算でも1秒で終わるということですね。私はつい最近新しいパソコンを買いまして現時点では相当ハイレベルなスペックとなっています（CPU２GHz、メモリ１GB）。ですから普通のパソコンで実行した場合はもっと時間がかかることと思います。

なお、実行中のプログラムを途中で一時停止するには Ctlr + Break(Pause) を押します。計算しているのかとまっているのかわからなくなった場合は確認してみてください。

それで、肝心のAPI関数の使い方ですが、存外 難しくないことがわかっていただけたのではないでしょう。今回は最初ということできわめて簡単なAPI関数を紹介したわけですが……。

５．情報収集

さて、APIに関する宣言をするために、必要な機能を実現するAPIを探すために一体どういう情報源があるのかを説明します。

まず、「どんなAPIがあってどんな機能を持っているか？」と言う点ですが、はっきり言って経験が一番です。しかしそれだけでは満足な解答ではないでしょう。私が主に利用している情報源は雑誌です。「Visual Basic Magazine」と「日経ソフトウェア」は毎月買っています。他にも書店に行けばAPIの資料となるようないろいろな本が置いてあります。

書籍のほかにインターネットでそれらしいページを当たってみるという手もありますね。最近は検索機能も向上していますのでGoogleあたりで GetTickCount などで検索すればヒットするページがあるのではないでしょうか。ちなみに当Visual Basic中学校はなぜかGoogleにはヒットしません。だいぶ前から申請しているのですが…。(←今はヒットします)

その他にはもちろん　ＭＳＤＮライブラリ　です。　たとえば画像を反転させる処理をしたければ、"画像" AND　”反転"　で検索すればヒントとなるような情報が得られます。ただし、目的のAPIを探し当てるのは大変です。そもそも目的の機能を装備しているAPIが存在するかどうかも確かではないのですから。

MSDNライブラリをご存じない方もいらっしゃるでしょうか？MSDNライブラリはマイクロソフト社が技術者向けに発行している資料集でＶＢはもちろんＣ言語、Ｊａｖａ、ＨＴＭＬ、Windows、Officeなどについて総計１．５ＧＢ以上に上る膨大なドキュメント・サンプル・コラム・チュートリアルなどなどを収録しています。ＭＳＤＮライブラリをお持ちの方はぜひインストールしてみてください。ただ読んでいるだけでもためになる記事にめぐり合うことでしょう。

ＭＳＤＮライブラリを入手するには買わなくてはならないのですが、ＶＢやＶＳを買った方には付録でついてきますので気がついていない方は箱の中を確認してください。ＣＤ３枚組くらいですのですぐ気がつきます。

ＶＢの評価版をつかっているけどＭＳＤＮライブラリが見てみたいという方は朗報です。マイクロソフト社はなんとＷＥＢ上でこのＭＳＤＮライブラリを公開しているのです。リンクページからＭＳＤＮライブラリにジャンプできますのでぜひ覗いてみてください。けれど、ＷＥＢ上だと遅くていらいらします。やっぱり自分でもっているのが一番ですね。

ＭＳＤＮライブラリの情報は３ヶ月に１度ずつ更新されています。

ＭＳＤＮライブラリの他には　APIビューワ　をあげておきましょう。これはAPIの機能が分かるものではありませんが名前から機能が想像できるAPIもありますから調べてみる価値はあります。

次に、目的のAPIを探し当てとしても、その宣言をどうすればよいか調べるにはどうしたらよいでしょうか。

これはやはりＭＳＤＮライブラリで調べればよいのですが問題があります。API関数に関する説明はＶＢではなくＶＣ（Visual C++）の観点からなされているのです。そのためわれわれＶＢプログラマーはどんなに知識があってもＶＣの知識がないとあまり理解できません。上級のＶＢプログラマーになるためにはＶＣもあやつれなくてはいけないのでしょうが、はっきり言ってきついです。

そこで、ＶＢプログラマーにはさきほど紹介した　APIビューワ　という便利なツールが用意されていることを思い出しましょう。このツールはＶＢのメニューの［アドイン］から、［アドインマネージャ］を選び、一覧の中から　APIビューワ　を選びロードすると使用可能になります。実際に使用するときはもう一度［アドイン］を選択してください。

APIビューワを使用するときは最初に［ファイル］メニューから　Win32api.txt を読み込んでください。そして、関数を選択して知りたい関数の名前をクリックすれば　その関数をＶＢから使うのに必要な宣言を表示してくれます。

ところが、この便利なAPIビューワは　ＶＢの　Professional版以上でないとついてこないため　評価版を使っている人やLearning版を使っている人は残念ながら使用できません。 Office2000　のDeveloper版にも付属しているそうです。（また、APIビューワには結構まちがいもあるということです）。

なんだか話が二転三転してしまいましたが、ようするに情報収集は大変だと言うことです。みなさんも有効な情報源を探してみてください。私は必要なAPIの情報が全然見つからないのでくるしまぎれにインターネットの（確かInfoSeek）に　APIの名前を入力して検索したらみごとにヒットして　必要な情報の解説あるWebサイトにたどり着いたことがあります。

ここの中級講座でもところどころでAPI関数を使用することと思いますので情報源の１つとしてご活用下さい。