１０２．メモリブロックを確保してそのハンドルを取得

＜　使用用途　＞
メモリブロックを確保してそのハンドルを取得

サンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　「フォント選定のコモンダイアログボックスを表示」するサンプルの中で使用しています。

　＜　説明　＞
ＡＰＩ関数のGlobalAllocを使用します
GlobalAlloc ＝＞メモリブロックを確保してそのハンドルを取得
　　＜引数＞
　　　　　wFlags：定数（GHND_××参照）
　　　　 　dwBytes：確保するバイト数　　　　　　　
　　＠戻り値＠
　　　　　 メモリブロックのハンドル
＊使用後はGlobalFreeで解放すること

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Function GlobalAlloc Lib "KERNEL32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long

Public Const GMEM_MOVEABLE = &H2　　　 '利用可能なメモリを確保
Public Const GMEM_ZEROINIT = &H40　　　　'新しく確保するメモリブロックの内容を0で初期化
Public Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)

'ここからはフォームの処理です

Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret = GlobalAlloc(GHND, 64)
End Sub