Microsoft KB Archive/81462

= FIX: Gauge: Incomplete Paint with Max-Min Difference > 100 =

Article ID: 81462

Article Last Modified on 2/23/2007

-

APPLIES TO


 * Microsoft Visual Basic 2.0 Standard Edition
 * Microsoft Windows 2000 Readiness Analyzer

-



This article was previously published under Q81462



SYMPTOMS
When you use the Gauge custom control, a linear gauge (Style 0) will fail to fill the leftmost column of pixels in the fill area whenever Gauge1.Max - Gauge1.Min is greater than 100. Similarly, the bottom-most row of pixels in the fill area of the horizontal gauge will not be filled given the same condition. The column or row of pixels not filled are cleared to the BackGround color because the inner area is cleared using the BackGround color whenever the Gauge's fill area is updated.



STATUS
Microsoft has confirmed this to be a bug in the products listed above. This problem was corrected in Microsoft Visual Basic version 3.0 for Windows.



Steps to Reproduce Problem in Visual Basic Version 1.0
 Start Visual Basic or from the File menu, choose New Project (ALT, F, N) if Visual Basic is already running. Form1 is created by default. From the File menu, choose Add File (CTRL+F12). In the Files box, select the GAUGE.VBX custom control file. The Gauge tool will appear in the Toolbox.  Add the Gauge control to Form1, and set the Gauge's properties to the following:   Properties   Value -

BackColor   &H00000000& (Black) ForeColor   &H00C00C00& (Light Gray) Max         101 Picture     &quot;SPEEDO.BMP&quot;

Note that the SPEEDO.BMP is not available in Visual Basic version 2.0.   Add the following code to the Gauge_Click event procedure. Sub Gauge1_Click For i=Gauge1.Min to Gauge1.Max Gauge1.Value = i     Next i   End Sub  From the Run menu, choose Start (ALT, F, N) to run the program.</ol>

Note that when you click the Gauge control, there is a black vertical line in the leftmost part of the inner area that isn't filled.

Additional query words: buglist1.00 buglist2.00 fixlist3.00 1.00 2.00 3.00

Keywords: kbbug kbfix KB81462

-

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

© Microsoft Corporation. All rights reserved.