Archive for 4月 24th, 2012

1. Hello, Win32 API(VB.NET) World!

   Posted on 4月 24th, 2012 by cx20

   Win32 API(VB.NET)

   Win32 API は、Windows の機能にアクセスする為の API（Application Programming Interface）である。
   以下は VB.NET にて Declare ステートメントを用いた呼出し例である。

   ソースコード

   Hello.vb

   raw download

   Imports System Imports System.Runtime.InteropServices   Module Hello Declare Auto Function MessageBox Lib "user32.dll" Alias "MessageBox" ( _ ByVal hWnd As IntPtr, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal nType As UInteger _ ) As Integer   Sub Main() MessageBox( New IntPtr(0), "Hello, Win32 API(VB.NET) World!", "Hello, World!", 0 ) End Sub End Module

   Imports System Imports System.Runtime.InteropServices Module Hello Declare Auto Function MessageBox Lib "user32.dll" Alias "MessageBox" ( _ ByVal hWnd As IntPtr, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal nType As UInteger _ ) As Integer Sub Main() MessageBox( New IntPtr(0), "Hello, Win32 API(VB.NET) World!", "Hello, World!", 0 ) End Sub End Module

   「文字セット」に「Auto」を指定した場合は「エイリアス名」「プラットフォーム」に応じて、呼び出される API 関数名が自動判別される。
   「文字セット」に「Ansi」もしくは「Unicode」を指定した場合は「エイリアス名」が API 関数名として使用される為、”A” / “W” のどちらのバージョンであるか明示的に指定する必要がある。（指定を行わない場合、関数名が見つからずエラーとなる）

   文字セット指定	エイリアス名	プラットフォーム	文字変換	判別	API関数名
   Auto	MessageBox	Windows 9x系	ANSI	“A”	MessageBoxA
   Auto	MessageBox	Windows NT系	Unicode	“W”	MessageBoxW
   Ansi または 省略	MessageBox	–	ANSI	–	Not Found
   Ansi または 省略	MessageBoxA	–	ANSI	–	MessageBoxA
   Unicode	MessageBox	–	Unicode	–	Not Found
   Unicode	MessageBoxW	–	Unicode	–	MessageBoxW

   また、Win32 データ型と VB.NET データ型の対応は主に以下のようになっている。「(2.0)」は、.NET Framework 2.0 で追加された型を示す。文字関連の型に関しては文字セット指定が必要なことに注意。

   Win32 データ型	C/C++ データ型	.NET データ型	VB.NET データ型
   HANDLE	void *	IntPtr	–
   BYTE	unsigned char	Byte	Byte
   SHORT	short	Int16	Short
   WORD	unsigned short	UInt16	UShort (2.0)
   INT	int	Int32	Integer
   UINT	unsigned int	UInt32	UInteger (2.0)
   LONG	long	Int32	Integer
   BOOL	int	Int32	Integer
   DWORD	unsigned long	UInt32	UInteger (2.0)
   ULONG	unsigned long	UInt32	UInteger (2.0)
   CHAR	char	Char (Ansi)	Char (Ansi)
   WCHAR	wchar_t	Char (Unicode)	Char (Unicode)
   LPSTR	char *	StringBuilder (Ansi)	–
   LPCSTR	const char *	String (Ansi)	String (Ansi)
   LPWSTR	wchar_t *	StringBuilder (Unicode)	–
   LPCWSTR	const wchar_t *	String (Unicode)	String (Unicode)
   FLOAT	float	Single	Single
   DOUBLE	double	Double	Double

   コンパイル方法

   C:¥> vbc Hello.vb

   C:¥> vbc Hello.vb

   実行結果

   --------------------------- Hello, World! --------------------------- Hello, Win32 API(VB.NET) World! --------------------------- OK ---------------------------

   --------------------------- Hello, World! --------------------------- Hello, Win32 API(VB.NET) World! --------------------------- OK ---------------------------