元に戻る スレッド一覧へ 記事閲覧

このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。) フォームを常に正四角形にしたい(VB6.0)　[No.170の個別表示] 　　　　　サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.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

Page: 1 |

投稿フォーム　　　　　　　　　　　　　　　スレッド一覧へ 題　　名 スレッドをトップへソート 名　　前 パスワード （記事メンテ時に使用） 投稿キー （投稿時 を入力してください） コメント *********************************************************************************** * カテゴリー：[][][] * キーワード： , , , , , ***********************************************************************************    クッキー保存

スレッド一覧へ