InitializeComponent() vom Designer erstellt ruft ArgumentException auf (VB 6 to .Net Upgrade Projekt)

  • VB.NET

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von Roro.

    InitializeComponent() vom Designer erstellt ruft ArgumentException auf (VB 6 to .Net Upgrade Projekt)

    Hallo,

    ich upgrade für meine Studienarbeit ein Vb6 Projekt zu einem Vb.Net Projekt. Bis jetzt habe ich alle Runtime Errors beseitigt und kann das Programm debuggen. Allerdings kommt nach einigen Sekunden sofort die Fehlermeldung:

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class frmBeschaffungProduktionStrom
    3. #Region "Upgrade Support "
    4. Private Shared m_vb6FormDefInstance As frmBeschaffungProduktionStrom
    5. Private Shared m_InitializingDefInstance As Boolean
    6. Public Shared Property DefInstance() As frmBeschaffungProduktionStrom
    7. Get
    8. If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
    9. m_InitializingDefInstance = True
    10. m_vb6FormDefInstance = New frmBeschaffungProduktionStrom()
    11. m_InitializingDefInstance = False
    12. End If
    13. Return m_vb6FormDefInstance
    14. End Get
    15. Set
    16. m_vb6FormDefInstance = Value
    17. End Set
    18. End Property
    19. #End Region
    20. #Region "Windows Form Designer generated code "
    21. Public Sub New()
    22. MyBase.New()
    23. If m_vb6FormDefInstance Is Nothing Then
    24. If m_InitializingDefInstance Then
    25. m_vb6FormDefInstance = Me
    26. Else
    27. Try
    28. 'For the start-up form, the first instance created is the default instance.
    29. If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
    30. m_vb6FormDefInstance = Me
    31. End If
    33. Catch
    34. End Try
    35. End If
    36. End If
    37. 'This call is required by the Windows Form Designer.
    38. 'TODO: nächste 2 Zeilen auskommentieren?
    39. InitializeComponent()
    40. ListViewKW_InitializeColumnKeys()
    41. 'This form is an MDI child.
    42. 'This code simulates the VB6
    43. ' functionality of automatically
    44. ' loading and showing an MDI
    45. ' child's parent.
    46. Me.MdiParent = Newag2001.MDIfrmStart.DefInstance
    47. Newag2001.MDIfrmStart.DefInstance.Show()
    48. 'The MDI form in the VB6 project had its
    49. 'AutoShowChildren property set to True
    50. 'To simulate the VB6 behavior, we need to
    51. 'automatically Show the form whenever it
    52. 'is loaded. If you do not want this behavior
    53. 'then delete the following line of code
    54. 'UPGRADE_TODO: (2018) Remove the next line of code to stop form from automatically showing. More Information: http://www.vbtonet.com/ewis/ewi2018.aspx
    55. Me.Show()
    56. End Sub


    Bei InitializeComponent() tritt der Fehler auf: ArgumentException wurde nicht behandelt. Ein Element mit dem gleichen Schlüssel wurde bereits hinzugefügt.
    Ich habe die Zeile dann mal auskommentiert. Dadurch treten aber einige andere Fehler auf bei denen ich gelesen habe, dass Sie durch InitializeComponent behoben werden. Also versteh ich nicht wieso der Upgrade Wizard dieses InitializeComponent im Designer einbaut und das dann ein Fehler hervorruft?!

    mfg,
    Roman

    InitializeComponent brauchst du für jedes Control, dazu gehören auch Formulare, nur sind die meist in einer .Designer.vb Datei versteckt...um mal zu erfahren wo der Fehler auftritt solltest du das Programm mit F11 Starten und immer wieder F11 drücken, bis zu der Zeile, in welcher schließlich der Fehler kommt...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Danke für die schnelle Antwort. F8 oder F11 macht bei mir keinen Unterschied ;)

    Also das ist der letzte Befehl der ausgeführt wird bevor der Fehler auftritt. Visual Basic 2010 Express teilt mir dann auch gleichzeitig mit dass ein Schritt übersprungen wurde und ich das ausstellen könnte wenn ich im Kontextmenue Einzelschritt in Angabe ausführen würde. Diese Option finde ich leider nicht. Hier ein Screenshot vom Hinweis den ich kurz vor dem Fehler bekomme.


    Wenn ich allerdings zurücknavigiere sehe ich, dass dieser Code als letztes ausgeführt werden soll:

    VB.NET-Quellcode

    1. 'Formular Spielen aufrufen
    2. frmTree.DefInstance.Show()
    3. frmSpielen.DefInstance.Show()

    Der TreeView wird auch nicht richtig angezeigt, hier wird also der Fehler liegen. In der Definition von DefInstance finde ich:

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class frmTree
    3. #Region "Upgrade Support "
    4. Private Shared m_vb6FormDefInstance As frmTree
    5. Private Shared m_InitializingDefInstance As Boolean
    6. Public Shared Property DefInstance() As frmTree
    7. Get
    8. If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
    9. m_InitializingDefInstance = True
    10. m_vb6FormDefInstance = New frmTree()
    11. m_InitializingDefInstance = False
    12. End If
    13. Return m_vb6FormDefInstance
    14. End Get
    15. Set
    16. m_vb6FormDefInstance = Value
    17. End Set
    18. End Property
    19. #End Region
    20. #Region "Windows Form Designer generated code "
    21. Public Sub New()
    22. MyBase.New()
    23. If m_vb6FormDefInstance Is Nothing Then
    24. If m_InitializingDefInstance Then
    25. m_vb6FormDefInstance = Me
    26. Else
    27. Try
    28. 'For the start-up form, the first instance created is the default instance.
    29. If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
    30. m_vb6FormDefInstance = Me
    31. End If
    33. Catch
    34. End Try
    35. End If
    36. End If
    37. 'This call is required by the Windows Form Designer.
    38. InitializeComponent()
    39. 'This form is an MDI child.
    40. 'This code simulates the VB6
    41. ' functionality of automatically
    42. ' loading and showing an MDI
    43. ' child's parent.
    44. Me.MdiParent = Newag2001.MDIfrmStart.DefInstance
    45. Newag2001.MDIfrmStart.DefInstance.Show()
    46. 'The MDI form in the VB6 project had its
    47. 'AutoShowChildren property set to True
    48. 'To simulate the VB6 behavior, we need to
    49. 'automatically Show the form whenever it
    50. 'is loaded. If you do not want this behavior
    51. 'then delete the following line of code
    52. 'UPGRADE_TODO: (2018) Remove the next line of code to stop form from automatically showing. More Information: http://www.vbtonet.com/ewis/ewi2018.aspx
    53. Me.Show()
    54. End Sub


    Und das ist ja eigentlich genau der gleiche Code der beim Designer steht. Überschneidet sich das oder so? In beiden Codes steht InitializeComponent.

    mfg,
    Roman

    VIelleicht könnt Ihr mir auch noch bei einem anderen Problem helfen. Wenn ich (nachdem das Programm durch debug gestartet wurde) ein anderes Ereignis ausführen will wird diese Fehlermeldung angezeigt:

    VB.NET-Quellcode

    1. frmSpielen.DefInstance.Close()

    InvalidOperationException wurde nicht behandelt. Der Wert Close() kann nicht während der Ausführung von CreateHandle() aufgerufen werden.

    CreateHandle steht aber in keiner Stelle im ganzen Projekt!? Was ist das für ein Befehl?

    DefINstance liefert dir das Formular zurück, sofern dies bereits in der Variable steht, andernfalls liefert es dir ein neues Objekt zurück(New), genau dies passiert hier, und du kannst nichts schließen/benutzen, was noch nich vollständig erstellt wurde...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Ok, danke, ich habe DefInstance weggenommen und der Fehler tritt nicht mehr auf!
    Allerdings nochmal zu dem anfänglichen Problem:
    InitializeComponent() habe ich auch auskommentiert und bekomme nun einen andere Fehler. Ich hatte vorher überhaupt keine Probleme mit den Fehlern weil Sie alle Array oder falsch übernommene Variablen waren usw.
    Allerdings sind diese Fehler jetzt alle im Designer und in dem vom Upgrader selbst erstellten Code. Das verstehe ich absolut nicht:

    VB.NET-Quellcode

    1. Sub ListViewKW_InitializeColumnKeys()
    2. Me._ListViewKW_ColumnHeader_1.Name = ""
    3. Me._ListViewKW_ColumnHeader_2.Name = ""
    4. Me._ListViewKW_ColumnHeader_3.Name = ""
    5. Me._ListViewKW_ColumnHeader_4.Name = ""
    6. Me._ListViewKW_ColumnHeader_5.Name = ""
    7. End Sub
    8. #End Region


    Fehler: NullReferenceException wurde nicht von Benutzercode behandelt. Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

    If m_vb6FormDefInstance Is Nothing Then
    If m_InitializingDefInstance Then
    m_vb6FormDefInstance = Me
    Else
    Try
    'For the start-up form, the first instance created is the default instance.
    If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
    m_vb6FormDefInstance = Me
    End If

    Catch
    End Try
    End If
    End If

    das mal wegmachen...InitializeComponent benötigst du jedoch weiterhin(der Fehler ist hier klar), ansonsten gibt es keine Controls...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    mh ok, wenn ich das wegmache bekomme ich 20 neue Fehler dass alle möglichen Befehle(AcceptrsReturn, MaxLength, ReadOnly, TextAlign) "ist kein Member von System.Windows.Forms.Control"

    EDIT: Die Deklaration PUBLIC von den Controls war einfach mal als Publc falsch geschrieben. Klasse.

    InitializeComponent() wirft aber immernoch den gleichen Fehler aus wenn ich das andere auskommentiere. Und wenn ich IniCom auskommentiere kommt der ListView Fehler. Es ist ein Teufelskreis...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Roro“ ()

    Der Inhalt?
    Das hier ist das Sub:

    VB.NET-Quellcode

    1. Private Sub InitializeComponent()
    2. Me.components = New System.ComponentModel.Container()
    3. Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBeschaffungProduktionStrom))
    4. Me.ToolTipMain = New System.Windows.Forms.ToolTip(Me.components)
    5. Me.ListViewKW = New System.Windows.Forms.ListView()
    6. Me._ListViewKW_ColumnHeader_1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
    7. Me._ListViewKW_ColumnHeader_2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
    8. Me._ListViewKW_ColumnHeader_3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
    9. Me._ListViewKW_ColumnHeader_4 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
    10. Me._ListViewKW_ColumnHeader_5 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
    11. Me.txtLeistungGesamt = New System.Windows.Forms.TextBox()
    12. Me.txtEinspeisungGesamt = New System.Windows.Forms.TextBox()
    13. Me.txtPeriode = New System.Windows.Forms.TextBox()
    14. Me.cmdWeiterC12 = New System.Windows.Forms.Button()
    15. Me.lblVerfuegbarkeit = New System.Windows.Forms.Label()
    16. Me.lblBenutzungsdauer = New System.Windows.Forms.Label()
    17. Me.lblLeistung = New System.Windows.Forms.Label()
    18. Me.lblEinspeisung = New System.Windows.Forms.Label()
    19. Me.Label12 = New System.Windows.Forms.Label()
    20. Me.Line2 = New System.Windows.Forms.Label()
    21. Me.Label7 = New System.Windows.Forms.Label()
    22. Me.lblÜberschriftC11 = New System.Windows.Forms.Label()
    23. Me.commandButtonHelper1 = New Artinsoft.VB6.Gui.CommandButtonHelper(Me.components)
    24. CType(Me.commandButtonHelper1, System.ComponentModel.ISupportInitialize).BeginInit()
    25. Me.SuspendLayout()

    Das hatte ich auch zuerst vor. Es sind allerdings "Total VB6 Effective Lines: 21.562 (code + design)". Das ist ziemlich viel. Ich hab das Projekt nirgendwo hochgeladen, könnte es aber tun falls sich jemand damit tiefer beschäftigen möchte ;).

    EDIT:
    Was ich eigentlich schreiben wollte:
    Wenn ich von dem Designer Code der Form in den wirklichen Design Modus wechseln will, bekomme ich diese Meldung.



    Damit kann ich auch leider nicht viel anfangen. Diese Instanzen existieren nicht in meinem Projekt.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Roro“ ()

    Ich habe jetzt den Fehler mehr oder weniger isoliert:

    Me.commandButtonHelper1.SetMaskColor(Me.cmdWeiterC11, System.Drawing.Color.Silver)

    Dieser commandButtonHelper1 ist ein vom Upgradeprogramm erstellter Befehl. Allerdings kann ich damit nicht viel anfangen und er ist in allen meinen Design Forms enthalten. Wenn ich alle Codezeilen mit diesem Befehl auskommentiere kann ich debuggen und alles. Allerdings sobald ich auch nur einen Pixel in meiner Design Form ändere wird der Code regeneriert und ich hab wieder das anfangs Problem.
    Meine Frage: Kennt sich irgendjemand mit diesem commandButtonHelper1 Befehl aus?

    VB.NET-Quellcode

    1. Public Class CommandButtonHelper
    2. Inherits System.ComponentModel.Component
    3. Member von Artinsoft.VB6.Gui
    4. Zusammenfassung:
    5. Extender Provider for handling CommandButton properties which are not present in .NET buttons.
    7. 'INSBESONDERE:
    9. Public Function GetMaskColor(ByVal button As System.Windows.Forms.Button) As System.Drawing.Color
    10. Member von Artinsoft.VB6.Gui.CommandButtonHelper
    11. Zusammenfassung:
    12. Instance - Gets the property MaskColor for the button.
    14. Parameter:
    15. button: The button.
    17. Rückgabewerte:
    18. The current MaskColor for this button.


    Wichtiger noch wäre mir zu wissen wo ich in meinem Code die Zeilen finden kann die genau das gleiche bewirken wie der Buttonhelper. Denn daran liegt es wohl dass in 2 meiner Forms diese InitializeComponent() Fehler auftreten.

    Es müsste hier also irgendwie einmal durch mich?! und einmal durch den Commandbuttonhelper die MaskColor gesetzt werden? Oder kann das noch woanders definiert sein? Also der Code für die anderen Button sieht eigentlich genau gleich aus aber da stürzt er nicht ab. Liegt es dann doch in der Form? Ich bin verwirrt. Hier also der Designer Code (nur die Subs in denen CommandButtonHelper1 vorkommt)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class frmBeschaffungProduktionStrom
    3. #Region "Upgradeunterstützung "
    4. Private Shared m_vb6FormDefInstance As frmBeschaffungProduktionStrom
    5. Private Shared m_InitializingDefInstance As Boolean
    6. Public Shared Property DefInstance() As frmBeschaffungProduktionStrom
    7. Get
    8. If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
    9. m_InitializingDefInstance = True
    10. m_vb6FormDefInstance = New frmBeschaffungProduktionStrom()
    11. m_InitializingDefInstance = False
    12. End If
    13. Return m_vb6FormDefInstance
    14. End Get
    15. Set(ByVal value As frmBeschaffungProduktionStrom)
    16. m_vb6FormDefInstance = Value
    17. End Set
    18. End Property
    19. #End Region
    20. #Region "Windows Form-Designer - generierter Code "
    21. Public Sub New()
    22. MyBase.New()
    23. If m_vb6FormDefInstance Is Nothing Then
    24. If m_InitializingDefInstance Then
    25. m_vb6FormDefInstance = Me
    26. Else
    27. Try
    28. 'Für das Startformular ist die erste erstellte Instanz die Standardinstanz.
    29. If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
    30. m_vb6FormDefInstance = Me
    31. End If
    33. Catch
    34. End Try
    35. End If
    36. End If
    37. 'Dieser Aufruf wird vom Windows Form-Designer benötigt.
    38. InitializeComponent()
    39. ListViewKW_InitializeColumnKeys()
    40. 'Dieses Formular ist ein untergeordnetes MDI-Element.
    41. 'Mit diesem Code wird VB6 simuliert.
    42. ' Funktion zum automatischen
    43. ' Laden und Anzeigen des übergeordneten Elements eines
    44. ' untergeordneten MDI-Elements.
    45. Me.MdiParent = Newag2001.MDIfrmStart.DefInstance
    46. Newag2001.MDIfrmStart.DefInstance.Show()
    47. 'Beim MDI-Formular im VB6-Projekt wurde
    48. 'Die AutoShowChildren-Eigenschaft wurde auf True festgelegt.
    49. 'Um das VB6-Verhalten zu simulieren, muss
    50. 'automatisch das Formular angezeigt werden, wenn es
    51. 'geladen wird. Wenn Sie dieses Verhalten nicht wünschen,
    52. 'löschen Sie die folgende Codezeile.
    53. 'UPGRADE_TODO: (2018) Entfernen Sie die nächste Codezeile, um das automatische Anzeigen des Codes zu verhindern. Weitere Informationen: http://www.vbtonet.com/ewis/ewi2018.aspx
    54. 'Me.Show()
    55. End Sub
    56. Private Sub ReleaseResources(ByVal eventSender As Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Closed
    57. Dispose(True)
    58. End Sub
    59. 'Verwerfen der Formularüberschreibungen zur Bereinigung der Komponentenliste.
    60. <System.Diagnostics.DebuggerNonUserCode()> _
    61. Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
    62. If Disposing Then
    63. If Not (components Is Nothing) Then
    64. components.Dispose()
    65. End If
    66. End If
    67. MyBase.Dispose(Disposing)
    68. End Sub
    69. 'Erforderlich für Windows Form-Designer
    70. Private commandButtonHelper1 As Artinsoft.VB6.Gui.CommandButtonHelper
    71. 'HINWEIS: Die folgende Prozedur wird vom Windows Form-Designer benötigt.
    72. 'Änderungen können mit dem Windows Form-Designer vorgenommen werden.
    73. 'Nehmen Sie keine Änderungen mit dem Code-Editor vor.
    74. <System.Diagnostics.DebuggerStepThrough()> _
    75. Private Sub InitializeComponent()
    77. Me.cmdWeiterC12 = New System.Windows.Forms.Button()
    79. Me.commandButtonHelper1 = New Artinsoft.VB6.Gui.CommandButtonHelper(Me.components)
    80. CType(Me.commandButtonHelper1, System.ComponentModel.ISupportInitialize).BeginInit()
    81. Me.SuspendLayout()
    85. 'cmdWeiterC12
    86. '
    87. Me.cmdWeiterC12.BackColor = System.Drawing.SystemColors.Control
    88. 'Me.commandButtonHelper1.SetCorrectEventsBehavior(Me.cmdWeiterC12, True)
    89. Me.cmdWeiterC12.Cursor = System.Windows.Forms.Cursors.Default
    90. 'Me.commandButtonHelper1.SetDisabledPicture(Me.cmdWeiterC12, Nothing)
    91. 'Me.commandButtonHelper1.SetDownPicture(Me.cmdWeiterC12, Nothing)
    92. Me.cmdWeiterC12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    93. Me.cmdWeiterC12.ForeColor = System.Drawing.SystemColors.ControlText
    94. Me.cmdWeiterC12.Image = CType(resources.GetObject("cmdWeiterC12.Image"), System.Drawing.Image)
    95. Me.cmdWeiterC12.Location = New System.Drawing.Point(448, 464)
    96. 'Me.commandButtonHelper1.SetMaskColor(Me.cmdWeiterC12, System.Drawing.Color.Silver)
    97. Me.cmdWeiterC12.Name = "cmdWeiterC12"
    98. Me.cmdWeiterC12.RightToLeft = System.Windows.Forms.RightToLeft.No
    99. Me.cmdWeiterC12.Size = New System.Drawing.Size(87, 31)
    100. 'Me.commandButtonHelper1.SetStyle(Me.cmdWeiterC12, 1)
    101. Me.cmdWeiterC12.TabIndex = 0
    102. Me.cmdWeiterC12.TextAlign = System.Drawing.ContentAlignment.BottomCenter
    103. Me.cmdWeiterC12.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
    104. Me.cmdWeiterC12.UseVisualStyleBackColor = False
    106. 'frmBeschaffungProduktionStrom
    107. '
    108. Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    109. Me.AutoScroll = True
    110. Me.BackColor = System.Drawing.SystemColors.Control
    111. Me.ClientSize = New System.Drawing.Size(559, 503)
    112. Me.Controls.Add(Me.ListViewKW)
    113. Me.Controls.Add(Me.txtLeistungGesamt)
    114. Me.Controls.Add(Me.txtEinspeisungGesamt)
    115. Me.Controls.Add(Me.txtPeriode)
    116. Me.Controls.Add(Me.cmdWeiterC12)
    117. Me.Controls.Add(Me.lblVerfuegbarkeit)
    118. Me.Controls.Add(Me.lblBenutzungsdauer)
    119. Me.Controls.Add(Me.lblLeistung)
    120. Me.Controls.Add(Me.lblEinspeisung)
    121. Me.Controls.Add(Me.Label12)
    122. Me.Controls.Add(Me.Line2)
    123. Me.Controls.Add(Me.Label7)
    124. Me.Controls.Add(Me.lblÜberschriftC11)
    125. Me.Cursor = System.Windows.Forms.Cursors.Default
    126. Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    127. Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    128. Me.Location = New System.Drawing.Point(0, -1)
    129. Me.MaximizeBox = False
    130. Me.MinimizeBox = False
    131. Me.Name = "frmBeschaffungProduktionStrom"
    132. Me.RightToLeft = System.Windows.Forms.RightToLeft.No
    133. Me.ShowInTaskbar = False
    134. Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
    135. Me.Text = "Beschaffung / Produktion"
    136. CType(Me.commandButtonHelper1, System.ComponentModel.ISupportInitialize).EndInit()
    137. Me.ResumeLayout(False)
    138. Me.PerformLayout()
    139. End Sub
    140. #End Region
    141. End Class



    Und hier die Form:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict Off
    2. Option Explicit On
    3. Imports Artinsoft.VB6.Utils
    4. Imports System
    5. Imports System.Windows.Forms
    6. Partial Friend Class frmBeschaffungProduktionStrom
    7. Inherits System.Windows.Forms.Form
    8. Private Sub cmdWeiterC12_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles cmdWeiterC12.Click
    9. frmBeschaffungProduktionWaerme.DefInstance.Show()
    10. Me.Hide()
    11. End Sub
    13. 'UPGRADE_WARNING: (2080) Form_Load event wurde auf Form_Load event aktualisiert und weist ein neues Verhalten auf. Weitere Informationen: http://www.vbtonet.com/ewis/ewi2080.aspx
    14. Private Sub frmBeschaffungProduktionStrom_Load(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles MyBase.Load
    15. Dim SummeLeistung As Object
    16. Dim LiItem As ListViewItem 'wird für die SubItems der ListView benötigt
    17. 'Formulargröße einstellen
    18. Me.Left = VB6.TwipsToPixelsX(3735)
    19. Me.Top = 0
    20. Me.Width = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(MDIfrmStart.DefInstance.Width) - VB6.PixelsToTwipsX(frmTree.DefInstance.Width) - 200)
    21. Me.Height = frmTree.DefInstance.Height
    23. 'den TreeView aktualisieren
    24. frmTree.DefInstance.TreeViewSpielen.SelectedNode = frmTree.DefInstance.TreeViewSpielen.Nodes.Item("D121")
    27. 'Werte in die Textfelder einstellen
    28. txtPeriode.Text = CStr(Periode - 1)
    30. 'Die WärmeKW's speisen auch Strom ein und werden daher mit aufgelistet
    31. 'TODO Alle Subitems 0 macht keinen Sinn?! Alles wird überschrieben, checken was da wirklich steht!
    32. For Lauf As Integer = 1 To AnzahlWaermeKW
    33. If WaermeKW(Lauf).EinspeisungStromGWH > 0 Then
    34. LiItem = ListViewKW.Items.Add(WaermeKW(Lauf).Name)
    35. LiItem.SubItems.Add(StringsHelper.Format(WaermeKW(Lauf).EinspeisungStromGWH / 1000, "#,##0"))
    36. LiItem.SubItems.Add(StringsHelper.Format(WaermeKW(Lauf).LeistungMW * WaermeKW(Lauf).Kopplungszahl / 100, "#,##0"))
    37. LiItem.SubItems.Add(StringsHelper.Format(WaermeKW(Lauf).Verfuegbarkeit / 100 * Periodenlänge, "#,##0"))
    38. LiItem.SubItems.Add(StringsHelper.Format(WaermeKW(Lauf).Verfuegbarkeit, "#,##0"))
    39. End If
    40. ' ***********************
    41. Next Lauf
    42. For Lauf As Integer = 1 To AnzahlKW
    43. ' Neu !!!!!!!!!!!!!!!
    44. If KWEinspeisung(Lauf) > 0 Then
    45. LiItem = ListViewKW.Items.Add(KWName(Lauf))
    46. LiItem.SubItems.Add(StringsHelper.Format(KWEinspeisung(Lauf) / 1000, "#,##0"))
    47. LiItem.SubItems.Add(StringsHelper.Format(KWLeistung(Lauf), "#,##0"))
    48. LiItem.SubItems.Add(StringsHelper.Format(KWVerfügbarkeiten(Periode - 1, Lauf) / 100 * Periodenlänge, "#,##0"))
    49. LiItem.SubItems.Add(StringsHelper.Format(KWVerfügbarkeiten(Periode - 1, Lauf), "#,##0"))
    50. End If
    51. ' ***********************
    52. Next Lauf
    54. LiItem = ListViewKW.Items.Add("Hilfsbezug")
    55. LiItem.SubItems.Add(StringsHelper.Format(GesamtHilfsbezug / 1000, "#,##0"))
    56. 'LiItem.SubItems(2) = Format(KWLeistung(Lauf), "#,##0")
    57. 'LiItem.SubItems(3) = Format(KWVerfügbarkeiten(Periode - 1, Lauf) / 100 * Periodenlänge, "#,##0")
    58. LiItem.SubItems.Add(StringsHelper.Format(100, "#,##0"))
    61. 'UPGRADE_WARNING: (1037) Die Standardeigenschaft von Objekt "SummeLeistung" konnte nicht aufgelöst werden. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1037.aspx
    62. SummeLeistung = 0
    63. For Lauf As Integer = 1 To AnzahlWaermeKW
    64. If WaermeKW(Lauf).Aktiv Then
    65. 'UPGRADE_WARNING: (1068) SummeLeistung vom Typ "Variant" wird für Double erzwungen. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1068.aspx
    66. 'UPGRADE_WARNING: (1037) Die Standardeigenschaft von Objekt "SummeLeistung" konnte nicht aufgelöst werden. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1037.aspx
    67. SummeLeistung = CDbl(SummeLeistung) + (WaermeKW(Lauf).LeistungMW * WaermeKW(Lauf).Kopplungszahl / 100)
    68. End If
    69. Next Lauf
    70. For Lauf As Integer = 1 To AnzahlKW
    71. If KWAktiv(Periode - 1, Lauf) Then
    72. 'UPGRADE_WARNING: (1068) SummeLeistung vom Typ "Variant" wird für Double erzwungen. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1068.aspx
    73. 'UPGRADE_WARNING: (1037) Die Standardeigenschaft von Objekt "SummeLeistung" konnte nicht aufgelöst werden. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1037.aspx
    74. SummeLeistung = CDbl(SummeLeistung) + KWLeistung(Lauf)
    75. End If
    76. Next Lauf
    77. 'UPGRADE_WARNING: (1068) SummeLeistung vom Typ "Variant" wird für Scalar erzwungen. Weitere Informationen: http://www.vbtonet.com/ewis/ewi1068.aspx
    78. txtLeistungGesamt.Text = StringsHelper.Format(SummeLeistung, "#,##0")
    79. txtEinspeisungGesamt.Text = StringsHelper.Format((GesamtEinspeisung + GesamtHilfsbezug) / 1000, "#,##0")
    80. LiItem = Nothing
    81. End Sub
    85. Private Sub ListViewKW_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListViewKW.SelectedIndexChanged
    87. End Sub
    88. End Class

    Ein paar prinzipielle Bemerkungen zu den Fragen die du her gestellt hast:

    ArtinSoft ist eine Firma die sich (lt.Net) auf Migration von VB6 auf VB.NET spezialisiert hat und offensichtlich mit Microsoft für solche Fälle eine Partnerschaft eingegangen ist (siehe VBUC Link). D.h. Microsoft hat diesen Code wohl lizensiert und verwendet den Visual Basic Upgrade Companion (VBUC) für ihren Migration Wizard.

    Der von Dir erwähnte CommandButtonHelper ist so eine Helper Klasse, die offenbar VB6 Eigenschaften von Buttons in .NET nachbildet, unabhängig davon ob Du sie im Projekt-Code wirklich verwendest oder nicht. Du wirst vermutlich unter den Verweisen eine Referenz auf eine Artinsoft Library vorfinden. Diesen Code im Designer auszukommentieren bringt (wie Du schon gesagt hast) nichts, da Microsoft diese Helper Classes ziemlich eng mit dem Designer Host integriert hat :wacko:

    Der Code SetMaskColor ist so ein Beispiel: MaskColor ist eine Property von VB6 Buttons gewesen , mit der man eine Farbe festlegen konnte die zur Laufzeit diese Stelle transparent machte, wohl eher fraglich ob Du das in deinem Code überhaupt verwendest. In Net gibt es diese Property nicht (man kann die Funktion aber per GDI nachbilden).

    Um genauer zu wissen was genau in Deiner Designer.VB passiert kannst Du das Attribut <System.Diagnostics.DebuggerStepThrough()> _ vor InitializeComponents gezielt auskommentieren, dann geht der Debugger im Einzelschritt auch in diesen Code rein statt ihn zu überspringen.

    Was kannst Du also tun ? Meiner Meinung nach kannst Du entweder wie bisher versuchen den migrierten Code zum Laufen zu bekommen, wirst aber immer mit einem Zwitter von VB6 und .NET Code leben müssen. Das ist nicht nur jetzt sondern auch für die zukünftigen Erweiterungen eine ziemliche Erblast.

    Oder Du kannst den Code als reinen .NET Code schreiben, dafür müsstest Du aber wohl ein neues .NET Projekt anlegen und die Formen /Controls dort neu anlegen um nichts mehr mit dem Artinsoft VBUC zu tun zu haben. Auf Dauer ist das bestimmt auch das kleinere Übel. Wenn man die Bezeichnungen für die Formen / Buttons und andere Controls gleich wählt, kann man die Logik bestimmt auch weiter verwenden und die Arbeit wird vielleicht nicht ganz so gross.

    In Designer generiertem Code rumzupfuschen ist halt weder einfach noch sehr gesund.

    Ob Deine Studienprüfung den Umfang dieser Migration hergibt weiss ich natürlich nicht: nicht nur das Umschreiben des Codes, sondern gerade auch das Testen darf man hier nicht unterschätzen.

    Danke für die Einschätzung erstmal. Ich habe auch schon eine E-Mail an Artinsoft zu diesem Problem geschrieben. Ich hoffe ich erhalte im Laufe der Woche eine Antwort dazu. Das mit dem Zwitter ist natürlich eine schlechte Lösung, da mit dem Projekt weitergearbeitet werden soll. Die einzelnen VB6 Libraries und Umwandlungen einzeln zu konvertieren ist doch eine größere Aufgabe als vorher angenommen. Da das upgraden nur ein Teil der Arbeit sein sollte (1-2 Wochen, Freitag endet die 2te Woche) sieht es wohl so aus als wenn ich das zu meiner Hauptaufgabe machen sollte. Hast du oder jemand anderes evtl Erfahrung mit solchen Projekten und kann mir sagen wie lange das ungefähr dauern sollte? 21.000 Zeilen Code. Könnt Ihr wahrscheinlich garnicht sagen ohne das Programm zu sehen. Ich weiss leider nicht ob ich das einfach so veröffentlich darf, aber das alte (VB6) Spiel, das fertig ist und prima läuft könnt ihr natürlich gerne ausprobieren und angucken: dl.dropbox.com/u/8799243/Setup.zip

Facebook
Telefonspende