３７．メニューバーを描画する



＜　使用用途　＞
システムメニューの属性を変更した時に反映させる為に使う

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
　　　＝＞　ダウンロード　・・・　メニューの【閉じる】を無効化にするサンプルです。

＜　説明　＞
ＡＰＩ関数のDrawMenuBar を使用します。
DrawMenuBar＝＞メニューバーを描画する
　　＜引数＞
　　　　　　hwnd：ウインドウのハンドル　　
　　＠戻り値＠　　
　　　　　　正常終了0以外

<　ＳＡＭＰＬＥ　＞
'メニューバーを再描画する
'標準モジュール
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

'ここからはフォームの処理
Private Sub Command1_Click()
　　　Dim Ret As Long
　　　　　Ret = DrawMenuBar(Form1.hwnd)
End Sub