Microsoft KB Archive/169305: Difference between revisions

From BetaArchive Wiki
(importing KB archive)
 
m (Text replacement - """ to """)
 
(One intermediate revision by the same user not shown)
Line 79: Line 79:


       Private Sub UserControl_InitProperties()
       Private Sub UserControl_InitProperties()
           Myfunc1 = "Hi"
           Myfunc1 = "Hi"
       End Sub
       End Sub


Line 96: Line 96:
<div class="errormessage">
<div class="errormessage">


&quot;variable not defined&quot;
"variable not defined"


</div></li>
</div></li>
<li>Halt execution (run-&gt;end).</li></ol>
<li>Halt execution (run->end).</li></ol>


Expected:
Expected:
Line 109: Line 109:
<div class="errormessage">
<div class="errormessage">


&quot;An error occurred getting a property of a Visual Basic Control. Error code 800A9C68 Repository Add-in for Visual Basic is shutting down&quot;
"An error occurred getting a property of a Visual Basic Control. Error code 800A9C68 Repository Add-in for Visual Basic is shutting down"


</div></li></ul>
</div></li></ul>

Latest revision as of 11:04, 21 July 2020

Knowledge Base


Article ID: 169305

Article Last Modified on 11/18/2003



APPLIES TO

  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition



This article was previously published under Q169305

SYMPTOMS

A repository error occurs after halting execution in break-mode edit.

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. This has been fixed with Visual Studio Service Pack 1.

For additional information about the Visual Studio 97 Service Pack 1, please see the following article in the Microsoft Knowledge Base:

170365 INFO: Visual Studio 97 Service Packs - What, Where, and Why


MORE INFORMATION

Steps to Reproduce

  1. Create a new ActiveX control.
  2. View-code of control and place the following text:

          Option Explicit
    
          Private Myfunc1
    
          Private Sub UserControl_InitProperties()
              Myfunc1 = "Hi"
          End Sub
    
          Public Property Let Myfunc1(btest)
              ' notice marz does not exist (should be btest)
                    Myfunc1 = marz
          End Property
    
          Public Property Get ftest()
              Myfunc1 = Myfunc1
          End Property
                            
  3. Close the control.
  4. Add a new standard.exe project.
  5. Place the control on the form. You'll get a compile error on the assignment in the Myfunc1 property let:

    "variable not defined"

  6. Halt execution (run->end).

Expected:

  • No error

Result:

  • You get the following error:

    "An error occurred getting a property of a Visual Basic Control. Error code 800A9C68 Repository Add-in for Visual Basic is shutting down"


Keywords: kbbug kbfix kbvbp500sp2fix kbvs97sp1fix kbvs97sp2fix kbvbp500sp1fix KB169305