KnowledgeBase Archive

An Archive of Early Microsoft KnowledgeBase Articles

View on GitHub

Q182573: BUG: Illegal Operation Err Using Richtext Control with Find

Article: Q182573
Product(s): Microsoft FoxPro
Version(s): WINDOWS:5.0,5.0a
Operating System(s): 
Keyword(s): kbvfp kbvfp500 kbvfp500a kbvfp600
Last Modified: 17-AUG-1999

-------------------------------------------------------------------------------
The information in this article applies to:

- Microsoft Visual FoxPro for Windows, versions 5.0, 5.0a, 6.0 
-------------------------------------------------------------------------------

SYMPTOMS
========

If you insert the Microsoft ActiveX Richtext control version 5.0 into a form,
and you set the control to point to a text file, you can read the text file
through the control box normally. However, if you add a command button that
allows you to search the contents of the text box using the Olecontrol1.Find
method, the following error message occurs:

  This program has performed an illegal operation and will be shutdown.

In Visual FoxPro 5.0, when you press the Details button this message appears:

  VFP caused a stack fault in module OLEAUT32.DLL at <memory address>.

In Visual FoxPro 5.0a, the following message appears:

  VFP caused an invalid page fault in module OLEAUT32.DLL at <memory
  address>.

RESOLUTION
==========

Here is a workaround to solve the problem. This code example works like the Find
method of the Microsoft RichText control. Place the following sample code in the
Click event of the command button:

     S=ALLTRIM(THISFORM.TEXT1.TEXT)&& Get string to find in richtext control
     POS=AT_C(S,ThisForm.olecontrol1.TEXT) && Find the string in richtext box
     IF (POS==0)            && not found
        WAIT WINDOW "NOT FOUND !"
     ELSE
        ls=left(ThisForm.olecontrol1.TEXT,pos-1) && Select string in richtext
        pos=lenC(ls)
        ThisForm.olecontrol1.SelStart = pos
        ThisForm.olecontrol1.SelLength = lenc(s)
     ENDIF
     ThisForm.olecontrol1.SETFOCUS

STATUS
======

Microsoft has confirmed this to be a bug in the Microsoft products listed at the
beginning of this article.

MORE INFORMATION
================

Steps to Reproduce Behavior
---------------------------

1. Create a new form.

2. Add an OLE Container Control to the form that contains a Microsoft RichText
  Control version 5.0 or 6.0 and name it OLEcontrol1.

3. Right-click OLEcontrol1 to open the RichTextCtrl Properties dialog box. Using
  the "FileName: (load from)" combo box, change the File of Type to (*.txt) and
  select License.txt.

4. Add a command button to the form and place the following code in the Click
  event of the command button:

        =thisform.olecontrol1.find(thisform.text1.value,,,2)

5. Add a text box to the form.

6. Save and run the form.

7. Type in a string to search for or with the text box empty, press the command
  button and the error message appears.

Additional query words: crash hang GPF

======================================================================
Keywords          : kbvfp kbvfp500 kbvfp500a kbvfp600 
Technology        : kbVFPsearch kbAudDeveloper kbVFP500 kbVFP600 kbVFP500a
Version           : WINDOWS:5.0,5.0a
Issue type        : kbprb

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.