タイトル : Re: フォームを常に正四角形にしたい。 投稿日 : 2008/01/05(Sat) 13:13 投稿者 : 花ちゃん
> リサイズのとこで制御を書いてみたもののうまくいきません。 どのように書かれて、どこがうまくいかなかったのでしょうか? Private Sub Form_Resize() If Me.WindowState = vbMaximized Then Me.WindowState = vbNormal End If If Me.WindowState = vbNormal Then Me.Width = Me.Height Me.Height = Me.Width End If End Sub |