VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル： Re^5: フォームを常に正四角形にしたい。

投稿日： 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

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

フォームを常に正四角形にしたい。

麻雀入門

No.11057

Re: フォームを常に正四角形にしたい。 - 花ちゃん 08/01/05-13:13 No.11058
- Re^2: フォームを常に正四角形にしたい。 - 麻雀入門 08/01/05-20:00 No.11064
  - Re^3: フォームを常に正四角形にしたい。 - しんご 08/01/05-21:10 No.11065
    - Re^4: フォームを常に正四角形にしたい。 - 麻雀入門 08/01/05-21:55 No.11066
      - Re^5: フォームを常に正四角形にしたい。 - 花ちゃん 08/01/05-22:38 No.11068
        
        Re^6: フォームを常に正四角形にしたい。 - よねＫＥＮ 08/01/07-09:44 No.11072
        
        Re^7: フォームを常に正四角形にしたい。 - 花ちゃん 08/01/07-10:56 No.11074
        
        Re^8: フォームを常に正四角形にしたい。 - よねＫＥＮ 08/01/07-11:47 No.11075

タイトル	： Re^5: フォームを常に正四角形にしたい。
投稿日	： 2008/01/05(Sat) 22:38
投稿者	：花ちゃん

古いスレッドにレスはつけられません。