フォームについて

質問

フォームのサイズの変更や移動はできないけれど、中のテキストボックスなどの入力は可能にしたいんですけど、なにかありませんか？

回答No.2

dinowave

Private Const SC_CLOSE = &HF060&
Private Const SC_MAXIMIZE = &HF030&
Private Const SC_MINIMIZE = &HF020&
Private Const SC_MOVE = &HF010&
Private Const SC_RESTORE = &HF120&
Private Const SC_SIZE = &HF000&
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Const MF_BYCOMMAND = &H0&
Private Const MF_BYPOSITION = &H400&

Private Sub Form_Load()
Dim hMenu As Long
hMenu = GetSystemMenu(Form1.hwnd, False)
RemoveMenu hMenu, SC_SIZE, MF_BYCOMMAND
RemoveMenu hMenu, SC_MOVE, MF_BYCOMMAND
DrawMenuBar Form1.hwnd
End Sub

こんなやり方はどうでしょうか？

回答No.1

muka3x

フォームのプロパティで
BORDERSTYLEというのがありますので
これを０に設定する事で、フォームのハンドル
（フォームの上のバー）がなくなりますので、
マウスでのドラッグ・リサイズが不可能になります。
フォーム内のコントロールはそのまま使えます。

補足

ありがとうございます。
すみませんが、ハンドルを消さない方法はないでしょうか？