サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ フォームを常に正四角形にしたい(VB6.0) ( No.0 ) 　[親スレッドへ] 日時： 2008/02/11 21:01 名前： 花ちゃん *********************************************************************************** * カテゴリー：[フォーム][][]                                                      * * キーワード：Window,リサイズ,Form_Resize,Me.Width,Me.Height,                  　 * *********************************************************************************** 記事No ： 11057 投稿日 ： 2008/01/05(Sat) 12:46 元質問 ： 麻雀入門   タイトル通り、フォームを常に正四角形にしたいんです。 リサイズのとこで制御を書いてみたもののうまくいきません。 ----------------------------------------------------------------------------------- 記事No ： 11068 投稿日 ： 2008/01/05(Sat) 22:38 回答者 ： 花ちゃん   ----------------------------------------------------------------------------------- 下記ではだめでしょうか？ Option Explicit Private frmWidth As Integer Private frmHeight As Integer Private Sub Form_Resize()    If Me.WindowState = vbMaximized Then       Me.WindowState = vbNormal    End If    If Me.WindowState = vbNormal Then       If Me.Width <> frmWidth Then          Me.Height = Me.Width       End If       If Me.Height <> frmHeight Then          Me.Width = Me.Height       End If    End If    frmWidth = Me.Width    frmHeight = Me.Height End Sub

　[スレッド一覧へ]　[親スレッドへ]