Knowledge Base

FIX: Cannot Change Left and Top of Invisible Sheridan Control

Article ID: 150183

Article Last Modified on 6/28/2004

Microsoft Visual Basic 4.0 Standard Edition
Microsoft Visual Basic 4.0 Professional Edition
Microsoft Visual Basic 4.0 Professional Edition
Microsoft Visual Basic 4.0 16-bit Enterprise Edition
Microsoft Visual Basic 4.0 32-Bit Enterprise Edition

This article was previously published under Q150183

SYMPTOMS

If the Left and Top properties of a Sheridan frame control are set to new values before the Width of the control is changed while the control is invisible, the Left and Top properties will retain their original values.

RESOLUTION

Set the Width property of the control before setting the Left and Top values.

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. This bug has been fixed in Visual Basic 5.0.

MORE INFORMATION

Steps To Reproduce Problem

Start a new project in Visual Basic. Form1 is created by default.
Place a Sheridan Frame control on to Form1. From the Tools menu, select Custom Controls to add the Sheraton controls to the toolbar.

Place the following code into the Click event for Form1:

   Private Sub Form_Click()

      SSFrame1.Visible = False

      SSFrame1.Top = SSFrame1.Top + 1000

      SSFrame1.Left = SSFrame1.Left + 1000

      SSFrame1.Width = SSFrame1.Width + 1000

      SSFrame1.Visible = True

   End Sub

Run the project by pressing F5. Click on the Form, and the Left and Top properties of the Frame control remain the same.

To implement the workaround above, change the code in the Click event of Form1 to the following:

   Private Sub Form_Click()

      SSFrame1.Visible = False

      SSFrame1.Width = SSFrame1.Width + 1000

      SSFrame1.Top = SSFrame1.Top + 1000

      SSFrame1.Left = SSFrame1.Left + 1000

      SSFrame1.Visible = True

   End Sub

Additional query words: kbVBp400bug kbVBp500fix kbVBp kbdsd kbDSupport kbControl

Keywords: kbbug kbfix KB150183