Problem bei Migration von VB6 zu VB.net

[CodeX2009]

Hallo Zusammen,

ich habe ein unschönes Problem bei der migration eines Projektes von vb6 nach vb.net.

Ich erhalte diese Fehlermeldung und bitte um Rat.
Danke im Voraus.

Gruß
Pascal

System.AccessViolationException: Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist.
   bei System.Windows.Forms.Control.SetVisibleCore
   bei System.Windows.Forms.Form.SetVisibleCore
   bei System.Windows.Forms.Control.Show
   bei LostInSpace.frmSplash.frmSplash_Load in E:\Project_Headquarter\Spiele-Entwicklung\vb6\LostInSpace_VBdotNET\frmSplash.vb:Zeile 129
   bei System.Windows.Forms.Form.OnLoad
   bei System.Windows.Forms.Form.OnCreateControl
   bei System.Windows.Forms.Control.CreateControl
   bei System.Windows.Forms.Control.CreateControl
   bei System.Windows.Forms.Control.WmShowWindow
   bei System.Windows.Forms.Control.WndProc
   bei System.Windows.Forms.ScrollableControl.WndProc
   bei System.Windows.Forms.ContainerControl.WndProc
   bei System.Windows.Forms.Form.WmShowWindow
   bei System.Windows.Forms.Form.WndProc
   bei ControlNativeWindow.OnMessage
   bei ControlNativeWindow.WndProc
   bei System.Windows.Forms.NativeWindow.DebuggableCallback
   bei System.Windows.Forms.Control.SetVisibleCore
   bei System.Windows.Forms.Form.SetVisibleCore
   bei System.Windows.Forms.Control.Show
   bei LostInSpace.modMain.Main in E:\Project_Headquarter\Spiele-Entwicklung\vb6\LostInSpace_VBdotNET\modMain.vb:Zeile 870

[gfoidl]

Hallo,

ohne Code nix los.

Mehr als die Fehlermeldung ausgibt kann ich auch nicht sagen.

Wie wurde der VB.net-Code erstellt?


mfG Gü

[Markus Lahr]

Vielleicht kann das auch weiterhelfen: http://www.activevb.de/startseite/in...ation2008.html

[CodeX2009]

Quellcode

Hallo Zusammen,

irgendwie wurde ich nicht benachrichtigt das für mich Beiträge geschrieben wurden...

Der Quellcode:

frmSplash.DefInstance.Hide()
'UPGRADE_ISSUE: Load Anweisung wird nicht unterstützt. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1039"'
'frontEnd.Show()
frontEnd.Show()


Imports VB = Microsoft.VisualBasic
Friend Class frmMain
Inherits System.Windows.Forms.Form
#Region "Vom Windows Form-Designer generierter Code "
Public Sub New()
MyBase.New()
' If m_vb6FormDefInstance Is Nothing Then
' If m_InitializingDefInstance Then
' m_vb6FormDefInstance = Me
' Else
' ' Try
' ' 'Für das Startformular ist die zuerst erstellte Instanz die Standardinstanz.
' ' If System.Reflection.Assembly.GetExecutingAssembly.En tryPoint.DeclaringType Is Me.GetType Then
' ' m_vb6FormDefInstance = Me
' ' End If
' ' Catch
' ' End Try
' End If
Dim m_vb6FormDefInstance2 As frmMain
m_vb6FormDefInstance2 = Me
'End If
'Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
End Sub
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Wird vom Windows Form-Designer benötigt.

#Region "Aktualisierungssupport "
'Private Shared m_vb6FormDefInstance As frmMain
Private Shared m_vb6FormDefInstance2 As frmMain
Private Shared m_InitializingDefInstance As Boolean
Public Shared Property DefInstance() As frmMain
Get
'If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
If m_vb6FormDefInstance2 Is Nothing OrElse m_vb6FormDefInstance2.IsDisposed Then
m_InitializingDefInstance = True
'm_vb6FormDefInstance = New frmMain
m_vb6FormDefInstance2 = New frmMain
m_InitializingDefInstance = False
End If
'DefInstance = m_vb6FormDefInstance
DefInstance = m_vb6FormDefInstance2
End Get
Set
'm_vb6FormDefInstance = Value
m_vb6FormDefInstance2 = Value
End Set
End Property
#End Region


Der auskommentierte Code ist der Originalcode der beim importieren von MS VS 2003 erzeugt wurde...

Dank und Gruß
Pascal

[gfoidl]

Von Code-Formatierung hältst du wohl nichts.

Schau dir mal an wie unleserlich das ist. Glaubst du dass sich jemand die Mühe mach sich da durchzukämpfen.

Wenn du Hilfe willst dann sollstest du so viel wie nur möglich ist dazu beitragen dass dir geholfen werden kann. Der erste Schritt hierzu ist den Code zu formatieren.

Wie dies geht ist im ersten Beitrag im Forum indem du das Thema eröffnest hast erklärt.

mfG Gü

[Andreas Mahr]

ich mach das mal für ihn, hab grad langeweile

[highlight=vb.net]
frmSplash.DefInstance.Hide()
'UPGRADE_ISSUE: Load Anweisung wird nicht unterstützt. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1039"'
'frontEnd.Show()
frontEnd.Show()


Imports VB = Microsoft.VisualBasic
Friend Class frmMain
Inherits System.Windows.Forms.Form
#Region "Vom Windows Form-Designer generierter Code "
Public Sub New()
MyBase.New()
' If m_vb6FormDefInstance Is Nothing Then
' If m_InitializingDefInstance Then
' m_vb6FormDefInstance = Me
' Else
' ' Try
' ' 'Für das Startformular ist die zuerst erstellte Instanz die Standardinstanz.
' ' If System.Reflection.Assembly.GetExecutingAssembly.En tryPoint.DeclaringType Is Me.GetType Then
' ' m_vb6FormDefInstance = Me
' ' End If
' ' Catch
' ' End Try
' End If
Dim m_vb6FormDefInstance2 As frmMain
m_vb6FormDefInstance2 = Me
'End If
'Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
End Sub
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Wird vom Windows Form-Designer benötigt.

#Region "Aktualisierungssupport "
'Private Shared m_vb6FormDefInstance As frmMain
Private Shared m_vb6FormDefInstance2 As frmMain
Private Shared m_InitializingDefInstance As Boolean
Public Shared Property DefInstance() As frmMain
Get
'If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
If m_vb6FormDefInstance2 Is Nothing OrElse m_vb6FormDefInstance2.IsDisposed Then
m_InitializingDefInstance = True
'm_vb6FormDefInstance = New frmMain
m_vb6FormDefInstance2 = New frmMain
m_InitializingDefInstance = False
End If
'DefInstance = m_vb6FormDefInstance
DefInstance = m_vb6FormDefInstance2
End Get
Set(ByVal value As frmMain)
'm_vb6FormDefInstance = Value
m_vb6FormDefInstance2 = Value
End Set
End Property
#End Region[/highlight]
so ist doch viel schöner, aber eingefallen dazu ist mir noch nicht wirklich was greifbares