GP Fault Setting Property Value to Array of Custom Data Type

Last reviewed: July 29, 1997
Article ID: Q118370
The information in this article applies to:
  • Microsoft Visual Basic Programming System, Applications Edition, version 1.0

SYMPTOMS

In a Visual Basic module, if you set the value of the name of a property procedure to an array variable of custom data type, you receive a general protection (GP) fault.

WORKAROUND

To avoid receiving a GP fault, set the value of a non-array temporary variable to the value of the variable custom data type, and then set the value of the name of the property procedure equal to the value of this temporary variable.

Microsoft provides examples of Visual Basic procedures for illustration only, without warranty either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. This Visual Basic procedure is provided "as is" and Microsoft does not guarantee that it can be used in all situations. Microsoft does not support modifications of this procedure to suit customer requirements for a particular purpose. Note that a line that is preceded by an apostrophe introduces a comment in the code--comments are provided to explain what the code is doing at a particular point in the procedure. Note also that an underscore character (_) indicates that code continues from one line to the next. You can type lines that contain this character as one logical line or you can divide the lines of code and include the line continuation character. For more information about Visual Basic for Applications programming style, see the "Programming Style in This Manual" section in the "Document Conventions" section of the Visual Basic "User's Guide."

   Type Bdata
      B1 As Integer
      B2 As Integer
   End Type

   Property Let Bprop(A As Integer, B As Bdata)
      MsgBox A
   End Property

   Sub Test()
      ' Dimension B3 as Bdata type
      Dim B3(0 To 2) As Bdata
      ' Dimension temporary variable BTemp as Bdata type
      Dim BTemp As Bdata
      ' Set BTemp to value of B3(1)
      LSet BTemp = B3(1)
      ' Set property procedure Bprop(1) to value of BTemp
      Bprop(1) = BTemp
   End Sub

MORE INFORMATION

For more information about the Property Let Statement, choose the Search button in Help and type:

    Property Let

For more information about the LSet Statement, choose the Search button in Help and type:

    LSet


Additional query words: gpf
Keywords : kbcode kbprg
Version : 1.00
Platform : WINDOWS


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.

Last reviewed: July 29, 1997
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.