Article ID: 173348
Article Last Modified on 5/13/2003
APPLIES TO
- Microsoft Visual Basic 5.0 Learning Edition
- Microsoft Visual Basic 6.0 Learning Edition
- Microsoft Visual Basic 5.0 Professional Edition
- Microsoft Visual Basic 6.0 Professional Edition
- Microsoft Visual Basic 5.0 Enterprise Edition
- Microsoft Visual Basic 6.0 Enterprise Edition
This article was previously published under Q173348
SYMPTOMS
In Microsoft Visual Basic version 4.0 for Windows, referencing the ActiveControl property of a form that has been disabled returns the control. In Visual Basic for Windows versions 5.0 and later, referencing the ActiveControl property of a form that has been disabled causes run-time error 91 "Object variable or With block variable not set" to be displayed.
CAUSE
In Visual Basic 5.0 and later, the value of the ActiveControl property of a form is set to "Nothing" when the form is disabled.
RESOLUTION
The behavior is correct. This change in behavior may affect Visual Basic 4.0 applications that have been coded to the old behavior and then converted to Visual Basic 5.0 or later. One workaround for this problem is to store the value of the ActiveControl property in a variable before a form is disabled. That variable can later be used to reference the control. To prevent the run-time error from occurring, change the code to the following:
Public Form2LastControl As Control 'General Declarations of Form1 Private Sub Command1_Click() Set Form2LastControl = Form2.ActiveControl Form2.Enabled = False End Sub Private Sub Command2_Click() MsgBox Form2LastControl.Text End Sub Private Sub Form_Load() 'Form Load Event of Form1 Form2.Show vbModeless End Sub Private Sub Form_Load() 'Form Load Event of Form2 Set Form1.Form2LastControl = Me.Controls(0) End Sub
STATUS
This behavior is by design.
MORE INFORMATION
Steps to Reproduce Behavior
- Create a new Visual Basic Standard EXE project. Form1 is created by default.
- Add a form to the project (two forms are needed).
Place two command buttons on Form1. For example:
Name: Command1, Caption: Disable Form 2 Name: Command2, Caption: Active Control
Add the following code to Form1:
Private Sub Command1_Click() Form2.Enabled = False End Sub Private Sub Command2_Click() MsgBox Form2.ActiveControl.Text End Sub Private Sub Form_Load() Form2.Show vbModeless End Sub
- Place a TextBox control on Form2.
- Run the project, and click on the "Active Control" command button.
- You should see a message box that says "Text1."
- Click on the command button labeled "Disable Form2."
- Click on the command button labeled "Active Control."
- Run-time error 91 "Object variable or With block variable not set" is displayed.
Additional query words: kbVBp kbdsd kbDSupport kbVBp500 kbVBp600 kbControl
Keywords: kbprb KB173348