Problem bei übergabe eines 2-Dimensionalen-Arrays in ein anderes Form

  • VB.NET
  • .NET (FX) 4.0

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Lord C.

    Problem bei übergabe eines 2-Dimensionalen-Arrays in ein anderes Form

    So das Problem steht im Titel. Hier kommt der Code:

    Hier wird das Array befüllt bzw am Anfang was im Form erstellt.

    VB.NET-Quellcode

    1. Public Class Fragenerstellung
    2. Public fragen_ein(4, 4) As String
    3. Public thema_ein(4) As String
    4. Private Sub Fragenerstellung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. If Spielmodus_Auswahl.masterofd = True Then
    6. lb_fragestell_mod.Text = "MOD"
    7. lb_fragestell_pkt_mod1.Text = "100"
    8. lb_fragestell_pkt_mod2.Text = "200"
    9. lb_fragestell_pkt_mod3.Text = "300"
    10. lb_fragestell_pkt_mod4.Text = "400"
    11. lb_fragestell_pkt_mod5.Text = "500"
    12. For i As Integer = 0 To Ersteinstellung.pktabstuf.Length - 1 Step 1
    13. Select Case i
    14. Case Is = 0
    15. lb_fragestell_pkt_1.Text = Ersteinstellung.pktabstuf(i)
    16. lb_fragestell_pkt_2.Text = Ersteinstellung.pktabstuf(i)
    17. lb_fragestell_pkt_3.Text = Ersteinstellung.pktabstuf(i)
    18. lb_fragestell_pkt_4.Text = Ersteinstellung.pktabstuf(i)
    19. Case Is = 1
    20. lb_fragestell_pkt_5.Text = Ersteinstellung.pktabstuf(i)
    21. lb_fragestell_pkt_6.Text = Ersteinstellung.pktabstuf(i)
    22. lb_fragestell_pkt_7.Text = Ersteinstellung.pktabstuf(i)
    23. lb_fragestell_pkt_8.Text = Ersteinstellung.pktabstuf(i)
    24. Case Is = 2
    25. lb_fragestell_pkt_9.Text = Ersteinstellung.pktabstuf(i)
    26. lb_fragestell_pkt_10.Text = Ersteinstellung.pktabstuf(i)
    27. lb_fragestell_pkt_11.Text = Ersteinstellung.pktabstuf(i)
    28. lb_fragestell_pkt_12.Text = Ersteinstellung.pktabstuf(i)
    29. Case Is = 3
    30. lb_fragestell_pkt_13.Text = Ersteinstellung.pktabstuf(i)
    31. lb_fragestell_pkt_14.Text = Ersteinstellung.pktabstuf(i)
    32. lb_fragestell_pkt_15.Text = Ersteinstellung.pktabstuf(i)
    33. lb_fragestell_pkt_16.Text = Ersteinstellung.pktabstuf(i)
    34. Case Is = 4
    35. lb_fragestell_pkt_17.Text = Ersteinstellung.pktabstuf(i)
    36. lb_fragestell_pkt_18.Text = Ersteinstellung.pktabstuf(i)
    37. lb_fragestell_pkt_19.Text = Ersteinstellung.pktabstuf(i)
    38. lb_fragestell_pkt_20.Text = Ersteinstellung.pktabstuf(i)
    39. End Select
    40. Next
    41. Else
    42. For i As Integer = 0 To Ersteinstellung.pktabstuf.Length - 1 Step 1
    43. Select Case i
    44. Case Is = 0
    45. lb_fragestell_pkt_1.Text = Ersteinstellung.pktabstuf(i)
    46. lb_fragestell_pkt_2.Text = Ersteinstellung.pktabstuf(i)
    47. lb_fragestell_pkt_3.Text = Ersteinstellung.pktabstuf(i)
    48. lb_fragestell_pkt_4.Text = Ersteinstellung.pktabstuf(i)
    49. lb_fragestell_pkt_mod1.Text = Ersteinstellung.pktabstuf(i)
    50. Case Is = 1
    51. lb_fragestell_pkt_5.Text = Ersteinstellung.pktabstuf(i)
    52. lb_fragestell_pkt_6.Text = Ersteinstellung.pktabstuf(i)
    53. lb_fragestell_pkt_7.Text = Ersteinstellung.pktabstuf(i)
    54. lb_fragestell_pkt_8.Text = Ersteinstellung.pktabstuf(i)
    55. lb_fragestell_pkt_mod2.Text = Ersteinstellung.pktabstuf(i)
    56. Case Is = 2
    57. lb_fragestell_pkt_9.Text = Ersteinstellung.pktabstuf(i)
    58. lb_fragestell_pkt_10.Text = Ersteinstellung.pktabstuf(i)
    59. lb_fragestell_pkt_11.Text = Ersteinstellung.pktabstuf(i)
    60. lb_fragestell_pkt_12.Text = Ersteinstellung.pktabstuf(i)
    61. lb_fragestell_pkt_mod3.Text = Ersteinstellung.pktabstuf(i)
    62. Case Is = 3
    63. lb_fragestell_pkt_13.Text = Ersteinstellung.pktabstuf(i)
    64. lb_fragestell_pkt_14.Text = Ersteinstellung.pktabstuf(i)
    65. lb_fragestell_pkt_15.Text = Ersteinstellung.pktabstuf(i)
    66. lb_fragestell_pkt_16.Text = Ersteinstellung.pktabstuf(i)
    67. lb_fragestell_pkt_mod4.Text = Ersteinstellung.pktabstuf(i)
    68. Case Is = 4
    69. lb_fragestell_pkt_17.Text = Ersteinstellung.pktabstuf(i)
    70. lb_fragestell_pkt_18.Text = Ersteinstellung.pktabstuf(i)
    71. lb_fragestell_pkt_19.Text = Ersteinstellung.pktabstuf(i)
    72. lb_fragestell_pkt_20.Text = Ersteinstellung.pktabstuf(i)
    73. lb_fragestell_pkt_mod5.Text = Ersteinstellung.pktabstuf(i)
    74. End Select
    75. Next
    76. End If
    77. End Sub
    79. Private Sub but_frageerst_start_Click(sender As Object, e As EventArgs) Handles but_frageerst_start.Click
    80. fragen_ein(0, 0) = tb_fragestell_frage_1.Text
    81. fragen_ein(0, 1) = tb_fragestell_frage_2.Text
    82. fragen_ein(0, 2) = tb_fragestell_frage_3.Text
    83. fragen_ein(0, 3) = tb_fragestell_frage_4.Text
    84. fragen_ein(0, 4) = tb_fragestell_frage_mod1.Text
    86. fragen_ein(1, 0) = tb_fragestell_frage_5.Text
    87. fragen_ein(1, 1) = tb_fragestell_frage_6.Text
    88. fragen_ein(1, 2) = tb_fragestell_frage_7.Text
    89. fragen_ein(1, 3) = tb_fragestell_frage_8.Text
    90. fragen_ein(1, 4) = tb_fragestell_frage_mod2.Text
    92. fragen_ein(2, 0) = tb_fragestell_frage_9.Text
    93. fragen_ein(2, 1) = tb_fragestell_frage_10.Text
    94. fragen_ein(2, 2) = tb_fragestell_frage_11.Text
    95. fragen_ein(2, 3) = tb_fragestell_frage_12.Text
    96. fragen_ein(2, 4) = tb_fragestell_frage_mod3.Text
    98. fragen_ein(3, 0) = tb_fragestell_frage_13.Text
    99. fragen_ein(3, 1) = tb_fragestell_frage_14.Text
    100. fragen_ein(3, 2) = tb_fragestell_frage_15.Text
    101. fragen_ein(3, 3) = tb_fragestell_frage_16.Text
    102. fragen_ein(3, 4) = tb_fragestell_frage_mod4.Text
    104. fragen_ein(4, 0) = tb_fragestell_frage_17.Text
    105. fragen_ein(4, 1) = tb_fragestell_frage_18.Text
    106. fragen_ein(4, 2) = tb_fragestell_frage_19.Text
    107. fragen_ein(4, 3) = tb_fragestell_frage_20.Text
    108. fragen_ein(4, 4) = tb_fragestell_frage_mod5.Text
    110. thema_ein(0) = tb_fragestell_thema1.Text
    111. thema_ein(1) = tb_fragestell_thema2.Text
    112. thema_ein(2) = tb_fragestell_thema3.Text
    113. thema_ein(3) = tb_fragestell_thema4.Text
    114. thema_ein(4) = tb_fragestell_themamod.Text
    115. Spielfläche.Show()
    116. Me.Close()
    117. End Sub
    118. End Class


    Hier Ruf ich es ab aus einem andern Form und die msgbox bleibt leer.

    VB.NET-Quellcode

    1. Public Class Spielfläche
    2. Dim aw As New MsgBoxResult
    3. Private Sub Spielfläche_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. lb_spielfläche_kat1.Text = Fragenerstellung.thema_ein(0)
    5. lb_spielfläche_kat2.Text = Fragenerstellung.thema_ein(1)
    6. lb_spielfläche_kat3.Text = Fragenerstellung.thema_ein(2)
    7. lb_spielfläche_kat4.Text = Fragenerstellung.thema_ein(3)
    8. lb_spielfläche_katmod.Text = Fragenerstellung.thema_ein(4)
    9. End Sub
    10. Sub frage_open(reihe As Integer, spalte As Integer)
    11. aw = MsgBox(Fragenerstellung.fragen_ein(reihe, spalte), MsgBoxStyle.YesNoCancel)
    12. End Sub
    14. Private Sub but_spielfläche_kat1_1_Click(sender As Object, e As EventArgs) Handles but_spielfläche_kat1_1.Click
    15. Call frage_open(0, 1)
    16. If aw = MsgBoxResult.Yes Then
    17. MsgBox("Geht")
    19. End If
    20. End Sub
    21. End Class

    der Msgboxresult geht aber. Bloß wird die Msgbox leer angezeigt. Bitte helft mir

    Gruß LC

    Moin,

    ich hab da erstmal Lesestoff.
    Böses aus VB6/VB2003 - und die richtigen VB.NET-Alternativen
    Instanziierung von Forms und Aufruf von Dialogen
    Visual Studio - Empfohlene Einstellungen

    Dein Datenmodell scheint nicht sehr durchdacht zu sein. Was machst du da?
    Mit freundlichen Grüßen,
    Thunderbolt

    Moin,

    und die anderen Tipps von Thunderbolt hast Du einfach ignoriert. Und warum?

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Lord C schrieb:

    Thema hat sich erledigt.
    Was soll die merkwürdihe Klassen-Variable und der unnötige Funktionsaufruf?
    Strukturiere Deinen Code!
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Trade ich habs nicht ignoriert ds ist schon umgebaut. Nur nicht oben aktualisiert.

    @rod Ich mag komische klassen namen. Und da ich der einzige bin der daran Arbeitet bzw nur das fertig programm openen source sein wird, mach ich so namen. Die ganzen cases und schleißen sind dazu da, weil mir lw war und zuerst dachte es geht schneller, was es aber nicht geht.

    Lord C schrieb:

    nur das fertig programm openen source sein wird
    Na dann viel Freude.
    Falls Du mal intensiver in die Softwareentwicklung einsteigen willst, kümmere Dich mal um (auch private) Codierungsrichtlinien.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ja werde ich ja machen, es wird eh nur für den cvjm bei uns sein, die haben dann nur die funktionierende anwendung. Es ist ja der erst entwurf :D und ich hab wd ein problem kannst du es dir mal anschauen Rod?