BUG: Gauge Custom Control: No Error for Illegal NeedleWidth

- Professional Edition of Microsoft Visual Basic for Windows,

  versions 2.0 and 3.0

  system for Windows, version 1.0

SYMPTOMS

When you use the Gauge custom control, setting the NeedleWidth property to an invalid value fails to generate an error. Furthermore, attempting to set the NeedleWidth property outside its valid range will reset the NeedleWidth property to 1. This behavior occurs at both design time and run time.

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.

MORE INFORMATION

Steps to Reproduce Problem

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

2. From the File menu, choose Add File (CTRL+F12), and select GAUGE.VBX to add the Gauge control to the Toolbox. The Gauge tool will appear in the Toolbox.

3. Add the Gauge control to Form1 and set the gauge's Style property to 2 - 'Semi' Needle or 3 - 'Full' Needle.

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

      Sub Form_Click ()
         Gauge1.NeedleWidth = -3
         MsgBox "NeedleWidth = " + Str$(Gauge1.NeedleWidth)
      End Sub
   
   

5. From the Run menu, choose Start (ALT, R, S) to run the program.