🚀 go-pugleaf

はじめまして。椎名と申します。
フォームのResizeイベントを見張れば可能だと思います。

例：

Private Sub Form_Resize()

If Form1.WindowState = 0 Then

    If Form1.Height < 一定のサイズ Then
        Form1.Height = 一定のサイズ
    End If

    If Form1.Width< 一定のサイズ Then
        Form1.Width = 一定のサイズ
    End If

End If

End Sub


まず最初のIf文でフォームの状態を調べます。
最大化もしくは最小化されているフォームのサイズを変更することは
出来ません。それ以外の場合のみを対象に処理を進めます。
また、フォームのHeightとWidthは負数にならないようにする必要が
あります。

参考になったでしょうか？

nonono wrote in message <6dopo7$edk@wa1.seikyou.or.jp>...
>はじめまして。
>
>ユーザーがフォームのサイズを、ある一定のサイズ以下にすることが、できなくす
る
>ことができますか。
>（最小化、最大化はできて、またそのサイズ以上ならマウスで自由に変更すること
が
>できるということです。）
>
>よくわからない質問かもしれませんが、どうかよろしくお願いします。
>
>なさけない初心者より。
>
>

椎名さん
ありがとうございました。たいへん参考になりました。
というか、そのまま使わさせていただきました。
また何かある時はよろしくお願いします。