VB Instant Change Scroll Bar: UAE in the Changing Event

ID Number: Q80914

1.00

WINDOWS

buglist1.00

Summary:

There is a problem with the Instant Change Scroll Bar when you change

the Max and Min values in the Changing event procedure. An

"Unrecoverable Application Error" (UAE) may occur and the Visual

Basic 1.0 environment will be unstable to proceed further. Below are

the steps to reproduce the problem.

Microsoft has confirmed this to be a problem with the Instant Change

Scroll Bar 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 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. In the Files box, select the

INSTSCRL.VBX control file. The Instant Scroll Bar tools will appear

in the Toolbox.

3. Place an InstHScroll (horizontal) or InstVScroll (vertical) Instant

Change Scroll Bar control on Form1.

4. Press the F7 function key to open the Code window. In the Procedure

box, select the Changing event, and enter one of the following

statements:

Sub InstHScroll1_Changing ( )

InstHScroll1.Max = InstHScroll1.Max - 10

End Sub

-or-

Sub InstVScroll1_Changing ()

InstVScroll1.Max = InstHScroll1.Max - 10

End Sub

5. From the Run menu, choose Start, or press F5 to run the program.

6. Click and drag the scroll box to generate a Changing event. An "Out

of Stack Space" error message will be displayed. Press the SPACEBAR

three times to close the error dialog box.

Now when you choose End from the Run menu, a UAE may occur.

Note: The problem does not seem to occur if you click on the

scroll arrows of the scroll bar (Only one "Out of Stack Space" alert

occurs in that case) instead of moving the Instant Change Scroll Bar's

scroll box.

Additional reference words: 1.00