Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54186 / 76732

←次へ　｜　前へ→


	【27345】Re:フォームの固定について

[名前なし] - 05/8/5(金) 21:37 -


	引用なし

	パスワード

▼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

0 hits

▼

【27131】フォームの固定について N館 05/7/29(金) 14:23