Microsoft KB Archive/150183

= FIX: Cannot Change Left and Top of Invisible Sheridan Control =

Article ID: 150183

Article Last Modified on 6/28/2004

-

APPLIES TO


 * 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.



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

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.