BUG: Setting WindowState = 0 Doesn't Set Window State to Normal

View products that this article applies to.

This article was previously published under Q180527

SYMPTOMS

Setting the WindowState property of a form to '0 - Normal' has no effect.

Back to the top

RESOLUTION

Save the form's height and width before changing the WindowState property (such as Maximizing), and then restore the height and width when desired as follows:

   Option Explicit
   Dim FormHeight
   Dim FormWidth

   Private Sub Form_Load()
      'initialize form size, could be set at design-time also.
      Form1.height = 2000
      Form1.width = 3000
      'Save the form's height and width.
      FormHeight = Form1.Height
      FormWidth = Form1.Width
      Command1.Caption = "Maximized"
      Command2.Caption = "Normal"
   End Sub

   Private Sub Command1_Click()
      Form1.WindowState = 2 'Maximized
   End Sub

   Private Sub Command2_Click()
      'Restore the form's original height and width.
      Form1.Height = FormHeight
      Form1.Width = FormWidth
   End Sub

Back to the top

STATUS

Microsoft has confirmed that this is a problem in the Microsoft products that are listed at the beginning of this article.

Back to the top

MORE INFORMATION

Steps to Reproduce Behavior

Start a new Windows CE HPC Pro Project in either eMbedded Visual Basic or Visual Basic 6.0. Form1 is created by default.
Add two command buttons to Form1, placing them in the upper-left-hand corner of the form so they will be visible when the form is resized by the Load event of the form.

Paste the following code into Form1:

      Private Sub Form_Load()
           Command1.Caption = "Maximized"
           Command2.Caption = "Normal"
           'initialize form size, could be set at design-time also.
           Form1.height = 2000
           Form1.width = 3000
      End Sub

      Private Sub Command1_Click()
           Form1.WindowState = 2 'Maximized
      End Sub

      Private Sub Command2_Click()
           Form1.WindowState = 0 'Normal
      End Sub