|
▼N館 さん:
>ちょこちょこっと設定を変えてできるのでしたら、ぜひ教えてください。
ちょこちょこではないですが、こんな方法もあります。
全てフォームモジュールに書いて実行してみてください。
フォームのシステムメニューの閉じるを削除します。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" _
(ByVal hWnd As Long) As Long
'↑ここまでは、全てフォームモジュールの先頭に書きます。
Private Sub UserForm_Initialize()
Dim hWnd As Long
Dim hMenu As Long
Const MF_BYCOMMAND = &H0&
Const SC_MOVE = &HF010
hWnd = FindWindow(vbNullString, Me.Caption)
hMenu = GetSystemMenu(hWnd, 0)
Call DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)
DrawMenuBar (hWnd)
End Sub
|
|