Input aus mehreren TextBoxen in einer TextBox

  • VB.NET

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von Lightsource.

    Input aus mehreren TextBoxen in einer TextBox


    Ich habe folgende Situation.
    10 TextBoxen die erstmal relevant sind bzw. 11

    Ich habe einen fixen "Command" dieser wäre in dem Fall "$Perfection".
    je nachdem was ich in den TextBoxen ausgenommen die Name TextBox schreibe soll in der Command TextBox ausgegeben werden.
    Wenn die Slot TextBox leer ist oder die Zahl 0 hat soll "$Perfection 0 0" in der Command TextBox ausgegeben werden.
    Wenn man jedoch zusätzlich noch in die Perfection TextBox eine Zahl zwischen 0 und 100 eingibt soll die Command TextBox "$Perfection 0 0 100" ausgeben.
    Das selbe gilt für die anderen 8 TextBoxen welche ein Bild links davon haben, mit dem einzigen Unterschied das von links nach rechts die zweite Zahl im "Command" sich verändert.
    "$Perfection 0 1 100"
    "$Perfection 0 2 100"
    "$Perfection 0 3 100"
    "$Perfection 0 4 100"
    "$Perfection 0 5 100"
    "$Perfection 0 6 100"
    "$Perfection 0 7 100"
    "$Perfection 0 8 100"
    die erste Zahl dieses "Commands wird weiterhin von der Eingabe in der Slot TextBox berücksichtigt.
    Die Zahl 100 hab ich in den obigen 9 Beispielen als Eingabe "100" in der jeweiligen TextBox genommen.

    Klickt man dann die ComboBox "$edit" an soll das Label und die TextBox "NAME" sichtbar werden.
    fast alles bleibt gleich bis auf das sich der vorherige Command zu "$edit NAME $Perfection 0 0 100" verändert.
    heißt es ändert sich jediglich der Anfang des Commands und der "NAME" welcher von der NAME TextBox ausgelesen wird.
    Der Rest bleibt alles gleich bzw. der Command nach dem NAMEN.

    Ich hoffe ich habe das gut erklärt.

    Ich hatte einen Code nur dieser sieht mir nach brutalem Müll aus und bzw. aber auch die Funktion ist nicht 100% richtig.
    Ich möchte einen sauberen Code bzw. was neues dazu lernen denn das kann es nicht sein das ich das alles nur über If Abfragen lösen kann.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class SPPerfection
    3. '######################################################## SPECIALIST CARDS PERFECTION ########################################################
    4. Private Sub TextBox_SPPSlot_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPSlot.TextChanged
    6. '######################################################## SP PERFECTION ########################################################
    7. If TextBox_SPPSlot.Text = "" Or "0" Then
    8. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "0 " + TextBox_SPP.Text
    9. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "1 " + TextBox_SPPAtk.Text
    10. Else
    11. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 0 " + TextBox_SPP.Text
    12. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 1 " + TextBox_SPPAtk.Text
    13. End If
    15. '######################################################## SP PERFECTION ATK ########################################################
    16. If TextBox_SPPSlot.Text = "" Or "0" Then
    17. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "1 " + TextBox_SPPAtk.Text
    18. Else
    19. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 1 " + TextBox_SPPAtk.Text
    20. End If
    22. '######################################################## SP PERFECTION DEF ########################################################
    23. If TextBox_SPPSlot.Text = "" Or "0" Then
    24. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "2 " + TextBox_SPPDef.Text
    25. Else
    26. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 2 " + TextBox_SPPDef.Text
    27. End If
    29. '######################################################## SP PERFECTION PROP ########################################################
    30. If TextBox_SPPSlot.Text = "" Or "0" Then
    31. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "3 " + TextBox_SPPProp.Text
    32. Else
    33. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 3 " + TextBox_SPPProp.Text
    34. End If
    36. '######################################################## SP PERFECTION HP/MP ########################################################
    37. If TextBox_SPPSlot.Text = "" Or "0" Then
    38. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "4 " + TextBox_SPPHPMP.Text
    39. Else
    40. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 4 " + TextBox_SPPHPMP.Text
    41. End If
    43. '######################################################## SP PERFECTION FIRE ########################################################
    44. If TextBox_SPPSlot.Text = "" Or "0" Then
    45. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "5 " + TextBox_SPPFire.Text
    46. Else
    47. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 5 " + TextBox_SPPFire.Text
    48. End If
    50. '######################################################## SP PERFECTION WATER ########################################################
    51. If TextBox_SPPSlot.Text = "" Or "0" Then
    52. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "6 " + TextBox_SPPWater.Text
    53. Else
    54. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 6 " + TextBox_SPPWater.Text
    55. End If
    57. '######################################################## SP PERFECTION LIGHT ########################################################
    58. If TextBox_SPPSlot.Text = "" Or "0" Then
    59. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "7 " + TextBox_SPPLight.Text
    60. Else
    61. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 7 " + TextBox_SPPLight.Text
    62. End If
    63. '######################################################## SP PERFECTION SHADOW ########################################################
    64. If TextBox_SPPSlot.Text = "" Or "0" Then
    65. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "8 " + TextBox_SPPShadow.Text
    66. Else
    67. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 8 " + TextBox_SPPShadow.Text
    68. End If
    70. End Sub
    72. '######################################################## COMMAND FEATURE ########################################################
    73. '######################################################## ########################################################
    75. Private Sub TextBox_SPP_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPP.TextChanged
    77. If TextBox_SPPSlot.Text = "" Or "0" Then
    78. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "0 " + TextBox_SPP.Text
    79. Else
    80. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 0 " + TextBox_SPP.Text
    81. End If
    83. End Sub
    85. '######################################################## SP PERFECTION ATK ########################################################
    86. Private Sub TextBox_SPPAtk_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPAtk.TextChanged
    88. If TextBox_SPPSlot.Text = "" Or "0" Then
    89. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "1 " + TextBox_SPPAtk.Text
    90. Else
    91. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 1 " + TextBox_SPPAtk.Text
    92. End If
    94. End Sub
    96. '######################################################## SP PERFECTION DEF ########################################################
    97. Private Sub TextBox_SPPDef_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPDef.TextChanged
    99. If TextBox_SPPSlot.Text = "" Or "0" Then
    100. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "2 " + TextBox_SPPDef.Text
    101. Else
    102. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 2 " + TextBox_SPPDef.Text
    103. End If
    105. End Sub
    107. '######################################################## SP PERFECTION PROP ########################################################
    108. Private Sub TextBox_SPPProp_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPProp.TextChanged
    110. If TextBox_SPPSlot.Text = "" Or "0" Then
    111. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "3 " + TextBox_SPPProp.Text
    112. Else
    113. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 3 " + TextBox_SPPProp.Text
    114. End If
    116. End Sub
    118. '######################################################## SP PERFECTION HP/MP ########################################################
    119. Private Sub TextBox_SPPHPMP_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPHPMP.TextChanged
    121. If TextBox_SPPSlot.Text = "" Or "0" Then
    122. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "4 " + TextBox_SPPHPMP.Text
    123. Else
    124. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 4 " + TextBox_SPPHPMP.Text
    125. End If
    127. End Sub
    129. '######################################################## SP PERFECTION FIRE ########################################################
    130. Private Sub TextBox_SPPFire_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPFire.TextChanged
    132. If TextBox_SPPSlot.Text = "" Or "0" Then
    133. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "5 " + TextBox_SPPFire.Text
    134. Else
    135. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 5 " + TextBox_SPPFire.Text
    136. End If
    138. End Sub
    140. '######################################################## SP PERFECTION WATER ########################################################
    141. Private Sub TextBox_SPPWater_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPWater.TextChanged
    143. If TextBox_SPPSlot.Text = "" Or "0" Then
    144. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "6 " + TextBox_SPPWater.Text
    145. Else
    146. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 6 " + TextBox_SPPWater.Text
    147. End If
    149. End Sub
    151. '######################################################## SP PERFECTION LIGHT ########################################################
    152. Private Sub TextBox_SPPLight_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPLight.TextChanged
    154. If TextBox_SPPSlot.Text = "" Or "0" Then
    155. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "7 " + TextBox_SPPLight.Text
    156. Else
    157. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 7 " + TextBox_SPPLight.Text
    158. End If
    160. End Sub
    162. '######################################################## SP PERFECTION SHADOW ########################################################
    163. Private Sub TextBox_SPPShadow_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPShadow.TextChanged
    165. If TextBox_SPPSlot.Text = "" Or "0" Then
    166. TextBox_SPPCommand.Text = "$Perfection " + "0 " + "8 " + TextBox_SPPShadow.Text
    167. Else
    168. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 8 " + TextBox_SPPShadow.Text
    169. End If
    171. End Sub
    172. Private Sub TextBox_SPPCommand_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPCommand.TextChanged
    174. 'When Empty don't show Clipboard Icon
    175. If TextBox_SPPCommand.Text = "" Then
    176. GunaImageButton_ClipSPP.Visible = False
    177. End If
    178. '<<<------>>>
    180. 'Show Clipboard Icon & Hide Checkmark Icon
    181. GunaImageButton_ClipSPP.Visible = True
    182. GunaImageButton_CheckmarkSPP.Visible = False
    183. '<<<------>>>
    185. End Sub
    186. End Class


    Der Code beinhaltet erstmal nur den Command ohne $edit.
    Ich weiß der Code ist der letzte Rotz aber für mehr reichen meine Skills erstmal leider nicht aus.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class SPPerfection
    3. Private Sub TextBox_SPPSlot_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPSlot.TextChanged
    5. If TextBox_SPPSlot.Text = "" Then
    6. TextBox_SPPSlot.Text = "0"
    7. End If
    9. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " " + TextBox_SPP.Text
    11. End Sub
    13. Private Sub TextBox_SPP_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPP.TextChanged
    15. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 0 " + TextBox_SPP.Text
    17. End Sub
    19. Private Sub TextBox_SPPAtk_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPAtk.TextChanged
    21. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 1 " + TextBox_SPPAtk.Text
    23. End Sub
    25. Private Sub TextBox_SPPDef_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPDef.TextChanged
    27. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 2 " + TextBox_SPPDef.Text
    29. End Sub
    31. Private Sub TextBox_SPPProp_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPProp.TextChanged
    33. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 3 " + TextBox_SPPProp.Text
    35. End Sub
    37. Private Sub TextBox_SPPHPMP_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPHPMP.TextChanged
    39. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 4 " + TextBox_SPPHPMP.Text
    41. End Sub
    43. Private Sub TextBox_SPPFire_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPFire.TextChanged
    45. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 5 " + TextBox_SPPFire.Text
    47. End Sub
    49. Private Sub TextBox_SPPWater_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPWater.TextChanged
    51. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 6 " + TextBox_SPPWater.Text
    53. End Sub
    55. Private Sub TextBox_SPPLight_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPLight.TextChanged
    57. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 7 " + TextBox_SPPLight.Text
    59. End Sub
    61. Private Sub TextBox_SPPShadow_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPShadow.TextChanged
    63. TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 8 " + TextBox_SPPShadow.Text
    65. End Sub
    67. Private Sub GunaCheckBox_SPPE_CheckedChanged(sender As Object, e As EventArgs) Handles GunaCheckBox_SPPE.CheckedChanged
    69. If GunaCheckBox_SPPE.Checked Then
    70. Label_SPPName.Visible = True
    71. TextBox_SPPName.Visible = True
    72. Else
    73. Label_SPPName.Visible = False
    74. TextBox_SPPName.Visible = False
    75. End If
    77. TextBox_SPPCommand.Text = "$edit " + TextBox_SPPName.Text + "$Perfection" + " " + TextBox_SPPSlot.Text
    79. End Sub
    80. End Class


    Ich weiß nicht ob dieser Code besser ist bzw. schöner aber mehr als das habe ich erstmal nicht hinbekommen.

    Ich hoffe ihr habt mein Anliegen verstanden und könnt mir helfen das sauber zu lösen.

    LG

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

    @MrSKY Fang an mit Option Strict On :!:
    Visual Studio - Empfohlene Einstellungen
    Bevor Du das nicht umgesetzt hast, hat es keinen Zweck, Dir zu helfen.
    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!

    MrSKY schrieb:

    Nur das hilft mir auch nicht weiter.


    Es hat einen guten Grund warum dir das alle mit Nachdruck empfehlen, nur weil du keinen Grund siehst, bedeutet das nicht, das es keinen gibt. Es wird dir möglicherweise irgendwann klar werden, wenn du diese Materie besser verstehst. IMO hilft dir das imens weiter und bewart dich sogar davor irgendwann einen Fehler im Programm zu haben, wo du garnicht weisst/siehst wo der denn verbuddelt ist.

    Den Sinn hinter Option Strict On habe ich nun verstanden für was das steht bzw. für was Off steht, nur blicke ich jetzt logischerweise gar nicht mehr durch da vieles was vorher ging nun nicht mehr geht.
    Mit meinen TextBoxen bin ich auch noch nicht weiter gekommen außer der zweite Code den ich in Post #1 editiert habe.

    MrSKY schrieb:

    nur blicke ich jetzt logischerweise gar nicht mehr durch da vieles was vorher ging nun nicht mehr geht.
    Tja, das sind alles Fehler, die du verstehen lernen musst und beheben, sodass du sie in Zukunft nicht mehr machst.
    Einen nach dem anderen ins Visier nehmen und in Ordnung bringen.
    Dabei kannst du eine Menge lernen.
    Programmieren muss man lernen - sonst kann mans nicht.

    Es sind übrigens weniger, als es erstmal aussieht, weil üblicherweise wiederholen sie sich sehr häufig.

    Das ist natürlich was positives für die Zukunft nur hänge ich hier bei dem aktuellen Problem.
    Ich verstehe nicht wie ich den Aufbau anders machen kann für das was ich in Post #1 brauche.
    Mehr als meinen zweiten Code hab ich nicht hin bekommen
    Edit: Sehe gerade ich habe das falsche Bild angehängt gehabt in Post #1.
    Habe es eben editiert.

    Was ich an deinem Code nicht so mag, sind die vielen Subs für die TextChanged-Events der Textboxen. Das kann man zu einer einzigen zusammenführen. Da je nach Textbox auch ein weiterer Wert neben des Textes in den einen String kommt, kannste auch die Tag Property dazu "missbrauchen", mach ich auch gerne mal. Bedenke aber das diese Property vom Typ Object ist, kann also alles aufnehmen. Da es sich in diesem Fall um einen String handelt, reicht Object.ToString und keine weitere parserei, konvertiererei oder casterei

    Hier ein Beispiel wie man das zusammenfassen kann, das Event musst du nicht für alle textBoxen im Code abbonieren wie ich das jetzt tat. Im Designer im Eigenschaftenfenster ist ein knopf mit einem Blitz, da kannst du das alles zurechtklicksen.

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Private tb0 As New TextBox
    6. Private tb1 As New TextBox
    7. Private tb2 As New TextBox
    9. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. tb0.Tag = " 0 "
    11. tb1.Tag = " 1 "
    12. tb2.Tag = " 2 "
    13. tb0.Location = New Point(10, 10)
    14. tb1.Location = New Point(10, 35)
    15. tb2.Location = New Point(10, 60)
    16. Controls.AddRange({tb0, tb1, tb2})
    17. AddHandler tb0.TextChanged, AddressOf TextBoxes_TextChanged
    18. AddHandler tb1.TextChanged, AddressOf TextBoxes_TextChanged
    19. AddHandler tb2.TextChanged, AddressOf TextBoxes_TextChanged
    20. End Sub
    22. Private Sub TextBoxes_TextChanged(sender As Object, e As EventArgs)
    23. Dim tb As TextBox = DirectCast(sender, TextBox)
    24. Select Case True
    25. Case tb Is tb0
    26. Debug.WriteLine("TextBox0: " & tb.Text & ":" & tb.Tag.ToString())
    27. Case tb Is tb1
    28. Debug.WriteLine("TextBox1: " & tb.Text & ":" & tb.Tag.ToString())
    29. Case tb Is tb2
    30. Debug.WriteLine("TextBox2: " & tb.Text & ":" & tb.Tag.ToString())
    31. End Select
    32. End Sub
    34. End Class


    Aber deine Frage nach sauberen Code ist top :thumbsup: . Sauberer Code ist IMO immer Strict On konform, somit ist alles sauberer, allein weil du es angeschaltet hast(wenn dann alle Fehler behoben sind).

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Takafusa“ ()

    MrSKY schrieb:

    Das ist natürlich was positives für die Zukunft nur hänge ich hier bei dem aktuellen Problem.
    Ich würde eher sagen, das ist etwas negatives aus der Vergangenheit.

    Und viele Leuts hier sind eher unlustig, bei einem "aktuellen" Problem zu helfen, wenn offsichtlich jede Menge olle Leichen im Keller rumgammeln.

    @Takafusa ich danke dir für deine Antwort. :)
    Nur verstehe ich deinen Code überhaupt nicht, nicht das er schlecht ist oder sonst was nur ich verstehe nicht was bzw wie der Code meinen vorherigen Code der einzelnen Subs ersetzen soll.
    Das mit den Events verstehe ich nur warum nimmt man da das Load Event?

    Das im Form_Load Event zu machen ist keine Vorschrift, kannst es auch mit Button.Click Event machen oder wann und wo auch immer du wilst, klar im Form_Closing machts keinen SInn. Ein Form_Load findet i.d.R. nur einmal statt(du kannst die sub auch selbst callen), bevor der User überhaupt Eingaben machen kann, passender Zeitpunkt und Ort zum abbonieren, Form Shown wäre auch gut..

    Also du hast die textBoxen aufs Form gezogen, das habe ich manuell im Code gemacht, so dacht ich, ist das einfacher nachzuvollziehen. Dann hast du vermutlich mit einem Doppelklick auffe textBoxen das TextChamged-Event Abboniert.

    = new TextBox kommt dem greifen des Controls ausser ToolBox gleich, auf Form packen wäre Controls.Add(das neue Control), ich hab Controls.AddRange verwendet, das gleiche, nur halt für mehrere Controls gleichzeitig. Die TextChanged Event Sub hab ich einfach so geschrieben, danach noch TextChanged abboniert.

    Es kommen 2 Argumente rein, sender und e, sender ist immer das Control das dieses Event feuert, wir wissen ja ist eine TextBox, also casten wir das Object zu einer textBox und können so ganz einfach die TextBox ansprechen und die Werte hohlen.

    Es gibt unterschiedliche Arten Events zu abbonieren, dir ist sicher schon Handles Control.Event aufgefallen hinter der Event Sub, das ist auch eine Variante. Machst du einen Doppelklick aufs Control, abbonierst du das Default-Event des Controls, die Controls stehen in der DesignerDatei, schau mal rein, aber ändere da nichts, bevor du weist was du tust. Dort wird dir dann auffallen das die Controls als WithEvents deklariert sind, das ist Vorraussetzung dafür, das du die Events mit Handles Control.Event hinter der Event Sub abbonieren kannst.

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

    @Takafusa
    Leider bin ich noch so verloren das ich deinen Code noch immer nicht verstehe da es für mich noch keinen Sinn ergibt was die einzelnen Methoden genau machen.

    VB.NET-Quellcode

    1. tb0.Tag = " 0 "
    2. tb1.Tag = " 1 "
    3. tb2.Tag = " 2 "
    4. tb0.Location = New Point(10, 10)
    5. tb1.Location = New Point(10, 35)
    6. tb2.Location = New Point(10, 60)
    7. Controls.AddRange({tb0, tb1, tb2})
    8. AddHandler tb0.TextChanged, AddressOf TextBoxes_TextChanged
    9. AddHandler tb1.TextChanged, AddressOf TextBoxes_TextChanged
    10. AddHandler tb2.TextChanged, AddressOf TextBoxes_TextChanged
    11. End Sub
    14. was soll das heißen?
    15. Ich dachte "0" und "1" stellt keine Zahl dar?


    und wie kommst du zu dem?

    VB.NET-Quellcode

    1. ​Private Sub TextBoxes_TextChanged(sender As Object, e As EventArgs)
    2. Dim tb As TextBox = DirectCast(sender, TextBox)
    3. Select Case True
    4. Case tb Is tb0
    5. Debug.WriteLine("TextBox0: " & tb.Text & ":" & tb.Tag.ToString())
    6. Case tb Is tb1
    7. Debug.WriteLine("TextBox1: " & tb.Text & ":" & tb.Tag.ToString())
    8. Case tb Is tb2
    9. Debug.WriteLine("TextBox2: " & tb.Text & ":" & tb.Tag.ToString())
    10. End Select
    11. End Sub

    Ist das eine selbst erstellte Sub von dem Code darüber wo du "AddressOf TextBoxes_TextChanged" setzt?

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

    Hängt davon ab wo du sie brauchst. Bei Benutzersteuerelementen, packst du sie in die Klasse, kannst sie aber auch sozusagen ans Parent weiterleiten, eigenes Event Deklarieren, mit RaiseEvent Event kannste die dann selbst feuern, z.B. wenn ein Control Event gefeuert wird. Aber mach nicht zu viel auf einmal, sonst machstes dir selbst schwer. Erst verstehen was du machst dann weitermachen.

    Ich würde dir mal den Löffelmann empfehlen. Arbeite dich mal durch die Bücher(PDF) da drin sind die Infos die du brauchst und suchst.
    Open-sourcen der Buchbeispiele vom Löffelmann

    MrSKY schrieb:

    Ich dachte "0" und "1" stellt keine Zahl dar?


    Wenn das ein/im String ist, ist es auch keine "Zahl" in dem Sinne. Du willst einen String verketten, warum dem Tag(ist vom Typ Object, kann ja alles sein) eine Zahl zuweisen wenn du eh einem String verarbeitest? So einfach Object.ToString().
    Wenn du auch wissen willst was es mit Location und new Point auf sich hat -> Löffelman und auch selbst einfach mal mit den Werten spielen also verändern ucd schauen was passiert. Vieles davon findest du auch im EigenschaftenFenster im Designer.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Takafusa“ ()

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class SPPerfection
    5. Private tbsppslot As New TextBox
    6. Private tbspp As New TextBox
    7. Private tbsppatk As New TextBox
    9. Private Sub SPPerfection_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    11. tbsppslot.Tag = " 0 "
    12. tbspp.Tag = " 1 "
    13. tbsppatk.Tag = " 2 "
    15. tbsppslot.Location = New Point(287, 8)
    16. tbspp.Location = New Point(432, 8)
    17. tbsppatk.Location = New Point(32, 59)
    19. Controls.AddRange({tbsppslot, tbspp, tbsppatk})
    20. AddHandler tbsppslot.TextChanged, AddressOf TextBoxes_TextChanged
    21. AddHandler tbspp.TextChanged, AddressOf TextBoxes_TextChanged
    22. AddHandler tbsppatk.TextChanged, AddressOf TextBoxes_TextChanged
    24. End Sub
    26. Private Sub TextBoxes_TextChanged(sender As Object, e As EventArgs)
    28. Dim tb As TextBox = DirectCast(sender, TextBox)
    29. Select Case True
    30. Case tb Is tbsppslot
    31. Debug.WriteLine("TextBox0: " & tb.Text & ":" & tb.Tag.ToString())
    32. Case tb Is tbspp
    33. Debug.WriteLine("TextBox1: " & tb.Text & ":" & tb.Tag.ToString())
    34. Case tb Is tbsppatk
    35. Debug.WriteLine("TextBox2: " & tb.Text & ":" & tb.Tag.ToString())
    36. End Select
    38. End Sub
    40. End Class


    Ich habe das nun erstmal wie folgt umgesetzt nur irgendwie passiert da nichts.
    Also wenn ich das Programm starte und irgendwas in einem der 3 TextBoxen eingeben passiert nichts in der Command TextBox bzw. es passiert allgemein nichts.
    @Takafusa

    Den Code den du mir hier gegeben hast ist dieser als Basic zu betrachten oder ist das schon eher Advanced? Denn ich verstehe schon langsam den Aufbau davon jedoch nicht 100%
    Was ich aus dem Code rauslesen kann die "Sender" TextBoxen sind nun festgelegt jedoch keine "Empfänger" TextBox oder liege ich da falsch?

    Also es passiert schon was, du nimmst er nur nicht war, weil du vermutlich eines der wichtigsten Fenster im Studio beim debuggen nicht offen hast. Öffne beim debuggen das Ausgabe-Fenster. Anstatt Debug.WriteLine verarbeitest du den String, und weist diesen dann sontwas zu.
    Bilder

    • Unbenannt.jpg

      30,67 kB, 386×200, 47 mal angesehen

    Gleiches Fenster? Auch auf debuggen gestellt?. Du musst natürlich auch den Playbutton drücken, geht nur wenn die App läuft. Bei jeder Änderung eine neue Zeile, dein Code, hab ich einfach kopiert.
    Bilder

    • Unbenannt.jpg

      105,44 kB, 950×669, 41 mal angesehen

    Takafusa schrieb:

    geht nur wenn die App läuft

    Läuft doch nur bei mir steht das nicht so wie bei dir.

    Der Thread 0x8198 hat mit Code 0 (0x0) geendet.
    Der Thread 0x45b8 hat mit Code 0 (0x0) geendet.
    Das Programm "[11776] Tool.exe" wurde mit Code 4294967295 (0xffffffff) beendet.

    Takafusa schrieb:

    Also du hast die textBoxen aufs Form gezogen, das habe ich manuell im Code gemacht, so dacht ich, ist das einfacher nachzuvollziehen.

    Hää jetzt blicke ich erst recht nicht durch.
    Ich habe die TextBoxen manuell erstellt ja aber das macht ja keinen wesentlichen Unterschied ob man diese manuell oder im Code erstellt oder?

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

    Der einzige Unterschied ist, mit der Maus zurechtgeklickt geht es schneller. Im normalfall macht man das mit der Maus im Designer, gibt aber Situationen, wo man zur Laufzeit neue Controls hinzufügt.

    Weiss nicht warum keine Ausgabe stattfindet, möglicherweise was verstellt im Studio? Ersetze einfach mal das Debug.WriteLine durch MessageBox.Show.

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

    @Takafusa
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class SPPerfection
    3. Private Sub SPPerfection_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. AddHandler TextBox_SPP.TextChanged, AddressOf TextBox_TextChanged
    6. AddHandler TextBox_SPPAtk.TextChanged, AddressOf TextBox_TextChanged
    7. AddHandler TextBox_SPPDef.TextChanged, AddressOf TextBox_TextChanged
    8. AddHandler TextBox_SPPProp.TextChanged, AddressOf TextBox_TextChanged
    9. AddHandler TextBox_SPPHPMP.TextChanged, AddressOf TextBox_TextChanged
    10. AddHandler TextBox_SPPFire.TextChanged, AddressOf TextBox_TextChanged
    11. AddHandler TextBox_SPPWater.TextChanged, AddressOf TextBox_TextChanged
    12. AddHandler TextBox_SPPLight.TextChanged, AddressOf TextBox_TextChanged
    13. AddHandler TextBox_SPPShadow.TextChanged, AddressOf TextBox_TextChanged
    15. End Sub
    17. Private Sub TextBox_SPPSlot_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPSlot.TextChanged
    19. If TextBox_SPPSlot.Text = "" Then TextBox_SPPSlot.Text = "0"
    20. Dim changed As TextBox = DirectCast(sender, TextBox)
    21. TextBox_SPPCommand.Text = $"$Perfection {TextBox_SPPSlot.Text}"
    23. End Sub
    25. Private Sub TextBox_TextChanged(sender As Object, e As EventArgs)
    27. Dim changed As TextBox = DirectCast(sender, TextBox)
    28. TextBox_SPPCommand.Text = $"$Perfection {TextBox_SPPSlot.Text} {changed.Tag} {changed.Text}"
    30. End Sub
    32. Private Sub GunaImageButton_ClipSPP_Click(sender As Object, e As EventArgs) Handles GunaImageButton_ClipSPP.Click
    34. 'Clipboard Function
    35. Clipboard.SetText(TextBox_SPPCommand.Text)
    36. '<<<------>>>
    37. TextBox_SPPSlot.Clear()
    38. TextBox_SPP.Clear()
    39. TextBox_SPPAtk.Clear()
    40. TextBox_SPPDef.Clear()
    41. TextBox_SPPProp.Clear()
    42. TextBox_SPPHPMP.Clear()
    43. TextBox_SPPFire.Clear()
    44. TextBox_SPPWater.Clear()
    45. TextBox_SPPLight.Clear()
    46. TextBox_SPPShadow.Clear()
    47. TextBox_SPPCommand.Clear()
    49. End Sub
    51. Private Sub GunaImageButton_ClipSPP_MouseClick(sender As Object, e As MouseEventArgs) Handles GunaImageButton_ClipSPP.MouseClick
    53. 'A Hide Clipboard Icon & Show Checkmark Icon
    54. GunaImageButton_ClipSPP.Visible = False
    55. GunaImageButton_CheckmarkSPP.Visible = True
    56. '<<<------>>>
    58. End Sub
    60. Private Sub TextBox_SPPCommand_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPCommand.TextChanged
    62. 'When Empty don't show Clipboard Icon
    63. If TextBox_SPPCommand.Text = "" Then
    64. GunaImageButton_ClipSPP.Visible = False
    65. End If
    66. '<<<------>>>
    68. 'Show Clipboard Icon & Hide Checkmark Icon
    69. GunaImageButton_ClipSPP.Visible = True
    70. GunaImageButton_CheckmarkSPP.Visible = False
    71. '<<<------>>>
    73. End Sub
    75. Private Sub GunaCheckBox_SPPE_CheckedChanged(sender As Object, e As EventArgs) Handles GunaCheckBox_SPPE.CheckedChanged
    77. Label_SPPName.Visible = GunaCheckBox_SPPE.Checked
    78. TextBox_SPPName.Visible = GunaCheckBox_SPPE.Checked
    79. TextBox_SPPName.Clear()
    81. End Sub
    83. Private Sub TextBox_SPPName_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPName.TextChanged
    85. Dim changed As TextBox = DirectCast(sender, TextBox)
    86. TextBox_SPPCommand.Text = $"$edit {TextBox_SPPName.Text} {TextBox_SPPSlot.Text} {changed.Tag}"
    88. End Sub
    90. End Class


    Das ist mein aktueller Code.
    Nur funktionieren 1-2 Sachen nicht ganz.

    Der Code funktioniert nicht wie es soll wenn ich die $edit CheckBox aktiviere.
    Der sonstige Command mit "$Perfection {TextBox_SPPSlot.Text} {changed.Tag} {changed.Text}" soll hinten eingefügt werden.
    Vorher kommt noch "$edit NAME". Den Namen gibt man in der SPPName TextBox ein.
    Endcommand: "$edit NAME $Perfection Slot Tag TextBox Text also folgender Code: "$Perfection {TextBox_SPPSlot.Text} {changed.Tag} {changed.Text}"
    Nur irgendwie bekomme ich das nicht hin ...
    Irgendwie vertragen sich die beiden Commands nicht ganz
    TextBox_SPPCommand.Text = $"$edit {TextBox_SPPName.Text} $Perfection {TextBox_SPPSlot.Text} {changed.Tag} {changed.Text}" geht nicht :/

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

Facebook
Telefonspende