Newsgroup: it.comp.lang.visual-basic
Titolo: Errore di runtime 50003

Che errore è? il codice è scritto in vb5.
Non riesco a trovarlo.
Grazie

Che errore è? il codice è scritto in vb5.
Hai due possibilità: un bug e un problem.
Ecco la documentazione ufficiale M$
1)
BUG: "Unexpected error" When Loading a GIF
Last reviewed: November 7, 1997
Article ID: Q176438
The information in this article applies to:
Microsoft Visual Basic Learning, Professional, and Enterprise Editions for
Windows, version 5.0
SYMPTOMS
Loading a GIF file that does not specifically contain an Image Object into
Visual Basic (via the PictureBox control for example), generates the run-
time error 50003:
   "Unexpected Error"
RESOLUTION
There are two main workarounds currently available:
Trap for and handle appropriately error 50003 (Unexpected error) in your
Visual Basic application.
-or-
Ensure that images contained within a GIF file are included specifically as
Image Objects and not contained within Application Blocks.
STATUS
Microsoft has confirmed this to be a bug in the Microsoft products listed at
the beginning of this article. We are researching this bug and will post new
information here in the Microsoft Knowledge Base as it becomes available.
MORE INFORMATION
Visual Basic 5.0 does not currently support GIFs that include images which
are contained within Application Blocks. The Image Object must be included
in the GIF as a separate Image Object. This functionality does currently
exist in Microsoft Internet Explorer 4.0.
-----------------------------------------
2)
PRB: Visual Basic Control with Font Properties Crashes Program
Last reviewed: February 20, 1998
Article ID: Q181414
The information in this article applies to:
Microsoft Visual Basic Control Creation, Learning, Professional, and
Enterprise Editions for Windows, version 5.0
SYMPTOMS
An ActiveX control created in Visual Basic contains font properties. When
this control is used in a Web authoring environment, such as FrontPage or
the ActiveX Control Pad, the Web authoring environment crashes or produces
the following error:
   Run-time error '50003':
   Unexpected Error
CAUSE
Visual Basic is attempting to write the font properties to an Object type in
the property bag.
RESOLUTION
To persist font information for an ActiveX control that will be used in an
HTML document, write out each font property separately to the property bag.
This solution is illustrated in the MORE INFORMATION section of this
article.
STATUS
Microsoft is researching this problem and will post new information here in
the Microsoft Knowledge Base as it becomes available.
MORE INFORMATION
The following code for a sample control illustrates this problem. Notice
that a font object is written to the property bag:
   Private m_Font As New StdFont 'defines as Font object
   Private Sub UserControl_InitProperties()
      m_Font.Bold = False
      m_Font.Italic = False
      m_Font.Name = "Arial"
      m_Font.Size = 10
      m_Font.Strikethrough = False
      m_Font.Underline = False
   End Sub
   Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
      On Error Resume Next
      Set m_Font = PropBag.ReadProperty("Font")
   End Sub
   Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
      PropBag.WriteProperty "Font", m_Font
   End Sub
To correct this problem, write each font property separately to the property
bag, as in this example:
   Private m_Font As New StdFont 'defines as Font object
   Private Sub UserControl_InitProperties()
      m_Font.Bold = False
      m_Font.Italic = False
      m_Font.Name = "Arial"
      m_Font.Size = 10
      m_Font.Strikethrough = False
      m_Font.Underline = False
   End Sub
   Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
      On Error Resume Next
      m_Font.Bold = PropBag.ReadProperty("FontBold")
      m_Font.Italic = PropBag.ReadProperty("FontItalic")
      m_Font.Name = PropBag.ReadProperty("FontName")
      m_Font.Size = PropBag.ReadProperty("FontSize")
      m_Font.Strikethrough = PropBag.ReadProperty("FontStrikethrough")
      m_Font.Underline = PropBag.ReadProperty("FontUnderline")
   End Sub
   Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
      PropBag.WriteProperty "FontBold", m_Font.Bold
      PropBag.WriteProperty "FontItalic", m_Font.Italic
      PropBag.WriteProperty "FontName", m_Font.Name
      PropBag.WriteProperty "FontSize", m_Font.Size
      PropBag.WriteProperty "FontStrikethrough", m_Font.Strikethrough
      PropBag.WriteProperty "FontUnderline", m_Font.Underline
   End Sub


----------
Ciao!
Questo errore è dovuto al 90% ad un bug di Visual Basic 5.0 (ma tu
guarda...).
BUONE FESTE!
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco