ID Number: Q85152
1.00
WINDOWS
buglist1.00
Summary:
When you change the Value property of the 3-D Check Box custom control
in code, the control incorrectly does not trigger the Click event
procedure. This is different from the standard check box that comes
with Visual Basic.
Microsoft has confirmed this to be a problem with the THREED.VBX
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. In the Files box, select the
THREED.VBX custom control file. The 3-D custom controls appear in
the Toolbox.
3. Place a 3-D Check Box (Check3D1) on Form1.
4. Place a normal check box (Check1) on Form1.
5. Place a command button (Command1) on Form1.
6. Change the Value property of Check3D1 to True, meaning checked.
7. Change the Value property of Check1 to "1 - Checked".
8. Add the following code to the Check1_Click event:
Sub Check1_Click ()
Debug.Print "Check1 click"
End Sub
9. Add the following code to the Check3D1_Click event:
Sub Check3D1_Click ()
Debug.Print "Check3D1 click"
End Sub
10. Add the following code to the Command1_Click event:
Sub Command1_Click ()
' To reverse the value of the 3-D Check Box control, you can
' use the Not function.
Check3D1.Value = Not (Check3D1.Value)
' To reverse the value of a normal check box, you can
' subtract 1 from the current value and then take the
' absolute value of it.
Check1.Value = Abs(Check1.Value - 1)
End Sub
11. Press F5 to run the program.
When you run the program and click on either of the check boxes,
notice that they both print the click message to the Immediate window.
However, if you click the command button, the normal check box will
print to the Immediate window, but the 3D Check Box will not.
Additional reference words: 1.00