Software/VB

Visual Basic 関連情報

Visual Basic 関連情報 †

↑

↑

↑

↑

Microsoft Visual Basic Version 5.0 で使用する DLL の開発に関する注意

[MSDN ライブラリ 2001 年 10 月]
　+[技術文書]
　　+[技術文書 (日本語)]
　　　+[ビジュアル ツール]
　　　　+[Visual Basic]
　　　　　+[Visual Basic]
　　　　　　+[Microsoft Visual Basic で使用する DLL の開発に関する情報]

テクニカルライティング　WIN32API再入門
- http://www.galliver.co.jp/writing/vbm_tokushu/bcm/
VB Tips - とっぷ
- http://sumire.sakura.ne.jp/~satoyam/vbtips/index.html
VB Tips - 文字列とメモリ
- http://sumire.sakura.ne.jp/~satoyam/vbtips/vbtip013.htm
ＡＰＩ関数をＶＢで使用する -基本編-
- http://www1.ocn.ne.jp/~ajinoya/VisualBasic/UseAPI_FunctionsBasic/
API 技術関連 - VBでのWin32APIのサンプル
- http://homepage1.nifty.com/MADIA/vb/VBKANREN.htm

↑

[VB] AddressOf を使用したウィンドウメッセージのフック処理
- http://support.microsoft.com?kbid=168795
VB テクニック編31 - サブクラスコントロール、フックプロシジャ、メッセージ処理
- http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_t31.htm
Visual Basicの限界を広げるサブクラス化の手法
- http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/9802/subc/
普通はVBで取得できないイベントを取得するには？
- http://fumiyuki-web.hp.infoseek.co.jp/tech/tech003/

↑

特に注意しなければならないのは次の２点。

VB では文字列（String型）を内部的に UNICODE（BSTR型）で取り扱う。

VB ではString型を LPSTR に渡す場合、自動的に UNICODE→ANSI の変換が行われる。

この為、GetVersionExA() のような文字列とサイズをパラメータで渡すAPIを使用する
場合は注意が必要となる。
UNICODEの文字列は１文字を２バイトとして取り扱う為、LenB() 関数を使用し
バイト数を求めると、実際の文字数の倍のサイズが返って来る。

GetVersionExA() では、構造体を渡すときに、構造体のサイズ dwOSVersionInfoSize 
を指定する。
しかし、このサイズを LenB() 関数で求めようとすると、String 型の部分を
１文字２バイトとして計算してしまう為、以下のような構造体定義をしてしまうと、
--------------------------------------------------------------------------
  Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128 ← UNICODEの為、LenB()では2倍のサイズとなる。
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  End Type
--------------------------------------------------------------------------

Dim info As OSVERSIONINFO 
dwOSVersionInfoSize
        = LenB( info ) … 4 + 4 + 4 + 4 + 4 + (128)*2 … 276 
                （本来は、4 + 4 + 4 + 4 + 4 + 128     … 148 指定したい。）

となり、本来、関数に渡すべきサイズが設定できず、関数がエラーになってしまう。

これを回避する方法として、以下のように文字列の部分にByte配列にする方法もある。

--------------------------------------------------------------------------
 Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion      As Long
    dwMinorVersion      As Long
    dwBuildNumber       As Long
    dwPlatformId        As Long
    szCSDVersion(127)   As Byte … LenB() では正しい値が取得できる。
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~
 End Type
--------------------------------------------------------------------------