Visual Basic Tips

メニューの一発削除&復帰（API)

Visibleプロパティを使わずに一発でメニューを削除＆復帰します。
下のサンプルではFormをクリックするとメニューを削除し、ダブルクリックで復帰します。

Dim hMenu As Long

Private Sub Form_Load()
　　hMenu = GetMenu(Me.hwnd)
End Sub

Private Sub Form_Click()
　　Call SetMenu(Me.hwnd, 0) 'メニューの削除
End Sub

Private Sub Form_DblClick()
　　Call SetMenu(Me.hwnd, hMenu) 'メニューの復帰
End Sub


'--------------------------------------------------------
'
'--------------------------------------------------------
Public Declare Function SetMenu Lib "user32" (ByVal hwnd As Long, ByVal hMenu As Long) As Long
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long


DownLoad vbtips070.lzh 2KB (VB6.0)