Microsoft KB Archive/314646

= FIX: ResetToDefault May Remove a Custom Method Completely =

Article ID: 314646

Article Last Modified on 1/24/2002

-

APPLIES TO


 * Microsoft Visual FoxPro 7.0 Professional Edition

-



This article was previously published under Q314646



SYMPTOMS
The ResetToDefault method may remove a custom method completely, instead of resetting the method and removing just the code.



RESOLUTION
To resolve this problem, obtain the latest service pack for Visual FoxPro for Windows 7.0. For additional information, click the following article number to view the article in the Microsoft Knowledge Base:

316964 How to Obtain the Latest Visual FoxPro for Windows 7.0 Service Pack



STATUS
Microsoft has confirmed that this is a problem in the Microsoft products that are listed at the beginning of this article. This problem was first corrected in Visual FoxPro for Windows 7.0 Service Pack 1.



Steps to Reproduce Behavior
  Run the following code from a program (.prg) file: LOCAL aobj[1] LOCAL xx As Form DELETE FILE testxx.sc? CREATE FORM testxx NOWAIT =ASELOBJ(aobj,1) xx = aobj[1] xx.AutoCenter = .t. xx.WriteMethod('click1',[WAIT WINDOW PROGRAM time 1],.t.)

KEYBOARD 'Y' CLEAR RELEASE WINDOW 'Form Designer'

DO FORM testxx testxx.click1 testxx.Release

MODIFY FORM testxx NOWAIT =ASELOBJ(aobj,1) xx = aobj[1] RETURN  In the Properties window, click the Methods tab. Find the Click1 method, right-click it, and select Reset to Default. The method will be removed from the form instead of being reset.
 * Uncomment the next line to set up conditions for a possible fatal error.
 * xx.ResetToDefault('click1')

If you uncomment the last line of the code above, you will see a stray entry in the Properties window, where the Click1 method should have been. If you double-click that entry, you receive the following error:

Fatal error: Exception code=C0000005



Additional query words: crash kbVFP700sp1fix

Keywords: kbbug kbfix kbcodesnippet kbdesigner kbvfp700fix KB314646

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.