Boolean-Variablen werden nicht auf "True" gesetzt?

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Memo.

    Boolean-Variablen werden nicht auf "True" gesetzt?

    Hi Leute!

    Ich mache mir gerade einen BuyScript Generator für das Spiel Counter-Strike 1.6 :D

    Ich mache dies über 1 TextBox (um die Taste zu definieren), 2 ComboBoxen(Primär-Waffe & Sekundär-Waffe) und 1 Button, der eine zweite Form aufruft. Dann habe ich in der ersten Form Boolean-Variblen deklariert. Auf der zweiten kann man sein Equipment auswählen. Wenn man dort auf "Ok" klickt, werden die Variablen der Form1 auf "True" gesetzt. Nach dem Generieren des Scripts werden die Variablen auf "False" gesetzt. Wenn man dann noch einen Bind generieren will, und die Form2 aufruft, werden die Variablen aber nicht mehr auf "True" gesetzt :huh:

    Screenshots:



    Der Code um die Variablen auf "True" zu setzten:


    VB.NET-Quellcode

    1. ' Die Variablen der Form1 = CheckBoxen.Checked
    3. main.vest = vest.Checked
    4. main.vesthelm = vesthelm.Checked
    5. main.flash = flash.Checked
    6. main.hegren = hegren.Checked
    7. main.sgren = sgren.Checked
    8. main.defuser = defuser.Checked
    9. main.nightv = nightv.Checked
    10. main.shield = shield.Checked
    11. main.ammo = ammo.Checked
    13. Me.Close()
    15. main.Select()


    Ich habs einfach mal den Wert der Variablen nach dem 2ten mal ausgegeben, und sie sind immer noch auf "False" ?(
    Kann mir einer erklären wieso?

    Freue mich auf Antworten :rolleyes:


    Gruß
    Hunter110

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Hunter110“ ()

    Hunter110 schrieb:

    Ja, 'main' ist die 'Form1'

    Sagt mir ... nix ...

    main ist eine Instanz von Form1? Oder hast du deine Form1 nach main umbenannt? Wenn main eine Instanz ist, wo wird sie erzeugt und wie an die zweite Form übergeben?

    Im übrigen scheint das ganze Konstrukt nicht allzu klar/sauber. Warum öffneest du die zweite Form nicht einfach mit ShowDialog. Und warum darf die zweite Form direkt in die erste schreiben, anstatt dass ein Objekt (oder mehrere) mit den gewünschten Werten von der ersten Form ausgelesen wird (analog s. zb FileOpenBrowserDialog etc).

    Soo...
    Noch mal von vorne:

    Die Variablen sind als Public deklariert. Wie gesagt, beim ersten Versuch läuft ja auch alles, nur beim 2ten Mal nicht mehr.
    Meine 'main' ist meine umbenannte Form1.

    Wenn in der Form2 meines Programms auf 'Ok' geklickt wird, werden die Variablen in 'main' auf True gesetzt.

    Tut mir Leid, wenn ich das nen bissl schief erklärt hab :D

    VB.NET-Quellcode

    1. 'Form1
    2. Public Class Form1
    3. Public b1 As Boolean = False
    4. Public b2 As Boolean = False
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. Form2.Show()
    7. End Sub
    8. End Class
    11. 'Form2
    12. Public Class Form2
    14. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    15. Form1.b1 = CheckBox1.Checked
    16. Form1.b2 = CheckBox2.Checked
    17. MsgBox(Form1.b1 & " " & Form1.b2)
    19. End Sub
    20. End Class


    Geht bei mir ?(


    Gruss
    Pascal

    Geht bei mir ?(

    Ja, bei mir ja auch!! :D

    Aber eben nur einmal, und das ist mein Problem.

    Ich Generiere den ersten Bind. funktionier alles Super.
    Dann möchte ich einen weiteren hinzufügen. Diesmal wird alles ausgegeben, nur eben das "Equipment" nicht, also die Variablen...Ich habe einfach mal zum Test nen Button hinzugefügt, und nach dem ersten Bind die Variablen ausgegeben. Das Resultat war "False". Die Variablen werden also beim 2ten Mal nicht auf "True" gesetzt, warum auch immer.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Hunter110“ ()

    Nein das ist es nicht :/
    Kurz: Es funktioniert nur 1 Mal.

    Wenn ich das erste mal auf den Button klicke, funktioniert alles Super.
    Wenn ich dann noch einmal draufklicke funktioniert nicht mehr, weil die Variablen immer noch auf False sind (was sie aber eigentlich nicht sein sollten, da ich sie ja mittels Button auf der Form2 wieder auf True schalte).

    Edit: Ich poste einfach mal meinen ganzen Code, vielleicht könnt ihr mir dann sagen, wo der Fehler steckt :D

    Form1:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class main
    4. Public vest As Boolean
    5. Public vesthelm As Boolean
    6. Public flash As Boolean
    7. Public hegren As Boolean
    8. Public sgren As Boolean
    9. Public defuser As Boolean
    10. Public nightv As Boolean
    11. Public shield As Boolean
    12. Public ammo As Boolean
    14. Dim primaer As String
    15. Dim sekundaer As String
    18. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles equipment.Click
    20. Form2.Show()
    24. End Sub
    28. Private Sub cmd_generieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_gen.Click
    31. If key.Text = Nothing Then
    33. MsgBox("Please set a Key!", MsgBoxStyle.Critical, "Error")
    35. Else
    37. primär_sekundär()
    40. Dim script As String = RichTextBox1.Text
    41. RichTextBox1.Clear()
    44. RichTextBox1.Text = vbNewLine & "bind " & """" & key.Text & """" & " """ & primaer & "; " & sekundaer & "; " & script
    47. If vest = True Then RichTextBox1.Text += "vest" & "; "
    48. If vesthelm = True Then RichTextBox1.Text += "vesthelm" & "; "
    49. If flash = True Then RichTextBox1.Text += "flash" & "; "
    50. If hegren = True Then RichTextBox1.Text += "hegren" & "; "
    51. If sgren = True Then RichTextBox1.Text += "sgren" & "; "
    52. If defuser = True Then RichTextBox1.Text += "defuser" & "; "
    53. If nightv = True Then RichTextBox1.Text += "nvgs" & "; "
    54. If shield = True Then RichTextBox1.Text += "shield" & "; "
    55. If ammo = True Then RichTextBox1.Text += "primammo; secammo" & "; "
    57. RichTextBox1.Text += """"
    60. If f10.Checked = True Then
    61. RichTextBox1.Text += vbNewLine & "bind " & """" & "f10" & """" & " """ & "quit" & """"
    62. f10.Checked = True
    63. f10.Enabled = False
    65. End If
    71. key.Clear()
    72. primär.Text = Nothing
    73. sekundär.Text = Nothing
    74. f10.Checked = False
    76. vest = False
    77. vesthelm = False
    78. flash = False
    79. hegren = False
    80. sgren = False
    81. defuser = False
    82. nightv = False
    83. shield = False
    84. ammo = False
    87. End If
    91. End Sub
    93. Private Sub primär_sekundär()
    95. ' primär ist meine erste combobox
    96. Select Case primär.SelectedIndex
    98. Case 0
    99. primaer = "m3"
    100. Case 1
    101. primaer = "xm1014"
    102. Case 2
    103. primaer = "tmp"
    104. Case 3
    105. primaer = "mac-10"
    106. Case 4
    107. primaer = "mp5"
    108. Case 5
    109. primaer = "ump45"
    110. Case 6
    111. primaer = "p90"
    112. Case 7
    113. primaer = "famas"
    114. Case 8
    115. primaer = "galil"
    116. Case 9
    117. primaer = "scout"
    118. Case 10
    119. primaer = "ak47"
    120. Case 11
    121. primaer = "m4a1"
    122. Case 12
    123. primaer = "aug"
    124. Case 13
    125. primaer = "sg552"
    126. Case 14
    127. primaer = "sg550"
    128. Case 15
    129. primaer = "awp"
    130. Case 16
    131. primaer = "g3sg1"
    132. Case 17
    133. primaer = "m249"
    135. End Select
    138. ' sekundär ist meine zweit combobox
    140. Select Case sekundär.SelectedIndex
    142. Case 0
    143. sekundaer = "glock"
    144. Case 1
    145. sekundaer = "usp"
    146. Case 2
    147. sekundaer = "p228"
    148. Case 3
    149. sekundaer = "deagle"
    150. Case 4
    151. sekundaer = "fn57"
    152. Case 5
    153. sekundaer = "elites"
    155. End Select
    157. End Sub
    164. End Class


    Form2:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form2
    3. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. main.vest = vest.Checked
    6. main.vesthelm = vesthelm.Checked
    7. main.flash = flash.Checked
    8. main.hegren = hegren.Checked
    9. main.sgren = sgren.Checked
    10. main.defuser = defuser.Checked
    11. main.nightv = nightv.Checked
    12. main.shield = shield.Checked
    13. main.ammo = ammo.Checked
    15. Me.Close()
    17. main.Select()
    18. End Sub
    19. End Class


    Gruß
    Hunter110

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Hunter110“ ()

    Dann solltest du beim Laden der Form2 den CheckBoxen auch die Werte der Variablen von Form1 zuweisen, den sonst passiert das, was der_Kurt angetönt hat. Die Checkboxen, etc. werden neu erstellt und haben alle den wert "False". Wenn du nun wieder auf den Button klickst, werden auf Form1 alle Variablen auf "False" gestellt.
    Einfach umgehen kannst du das Problem, wenn du Form2.Hide() anstelle von Form2.Close() machst, denn so wird die Form beibehalten und nur versteckt ;)


    Gruss
    Pascal

    Dann solltest du beim Laden der Form2 den CheckBoxen auch die Werte der Variablen von Form1 zuweisen, den sonst passiert das, was der_Kurt angetönt hat. Die Checkboxen, etc. werden neu erstellt und haben alle den wert "False". Wenn du nun wieder auf den Button klickst, werden auf Form1 alle Variablen auf "False" gestellt.


    Ja, aber im Click-Event des Buttons auf der Form2 steht doch, dass die Variablen der Form1 wieder auf "True" gesetzt werden. Zumindest die, die auch True sind.
    Oder versteh ich da irgendwas falsch?

Facebook
Telefonspende