VB Gauge: Incomplete Paint with Max-Min Difference > 100

ID Number: Q81462

1.00

WINDOWS

buglist1.00

Summary:

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.

Microsoft has confirmed this to be a problem with the Gauge custom

control supplied with Microsoft Professional Toolkit for Microsoft

Visual Basic programming system version 1.0 for Windows. We are

researching this problem and will post new information here as it

becomes available.

More Information:

Steps to Reproduce Problem

--------------------------

1. Run Visual Basic, or from the File menu, choose New Project (ALT,

F, N) if Visual Basic is already running. Form1 is created by

default.

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

3. 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 "SPEEDO.BMP"

4. Add the following code to the Gauge_Click event procedure.

Sub Gauge_Click ()

For i=Gauge1.Min to Gauge1.Max

Gauge1.Value = i

Next i

End Sub

5. From the Run menu, choose Start (ALT, F, N) to run the program.

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 reference words: 1.00