MDIフォームのコントロールボックスを設定するには？ (ID:106204)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 # 少しは自分で考えましょう。 下のようにするだけです。 Const WS_THICKFRAME = &H40000 Private Sub MDIForm_Load() Dim L As Long L = GetWindowLong(Me.hwnd, GWL_STYLE) L = L And Not (WS_MINIMIZEBOX) L = L And Not (WS_MAXIMIZEBOX) L = L And Not (WS_THICKFRAME) L = SetWindowLong(Me.hwnd, GWL_STYLE, L) End Sub