Button 2 mal benutzen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von nawiat.

    Button 2 mal benutzen

    Hallo alle zusammen!

    ich will mein Button 2 mal drücken können, das er aber beim 2 mal drücken etwas anderes macht und dabei noch drauf achtet was in der TextBox1 steht

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    3. Dim intro_i As Integer = 0
    4. Dim intro_array As Char()
    5. Dim intro_ii As Integer = 0
    6. Dim intro_arrayy As Char()
    7. Dim intro_iii As Integer = 0
    8. Dim intro_arrayyy As Char()
    10. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    11. Tutorial.Close()
    13. Dim Name As String = SplashScreen1.dein_Name
    15. Speech(" " & Name & ", Du findest dich in eine Leeren Haus wieder, Was machst du jetzt?" & vbNewLine & "" & vbNewLine & "1. schau dich in den Haus genauer um!" & vbNewLine & "2. geh nach drausen!", 10)
    17. End Sub
    19. Private Sub Text1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text1.Tick
    21. If intro_i < intro_array.Length Then
    22. Label1.Text = Label1.Text & intro_array(intro_i)
    23. intro_i = intro_i + 1
    24. If intro_i = intro_array.Length Then
    25. Text1.Stop()
    26. Button2.Visible = True
    28. End If
    29. Else
    30. End If
    32. End Sub
    34. Private Sub Text2_Tick(sender As System.Object, e As System.EventArgs) Handles Text2.Tick
    36. If intro_ii < intro_arrayy.Length Then
    37. Label1.Text = Label1.Text & intro_arrayy(intro_ii)
    38. intro_ii = intro_ii + 1
    39. If intro_ii = intro_arrayy.Length Then
    40. Text2.Stop()
    42. End If
    43. Else
    44. End If
    46. End Sub
    48. Private Sub Text3_Tick(sender As System.Object, e As System.EventArgs) Handles Text3.Tick
    50. If intro_iii < intro_arrayyy.Length Then
    51. Label1.Text = Label1.Text & intro_arrayyy(intro_iii)
    52. intro_iii = intro_iii + 1
    53. If intro_iii = intro_arrayyy.Length Then
    54. Text3.Stop()
    56. End If
    57. Else
    58. End If
    60. End Sub
    62. Public Function Speech(ByVal text As String, ByVal speed As Integer)
    64. Text1.Interval = speed
    65. intro_array = text.ToCharArray()
    66. Text1.Start()
    67. Return 0
    69. End Function
    71. Public Function Speech2(ByVal text As String, ByVal speed As Integer)
    73. Text2.Interval = speed
    74. intro_arrayy = text.ToCharArray()
    75. Text2.Start()
    76. Return 0
    78. End Function
    80. Public Function Speech3(ByVal text As String, ByVal speed As Integer)
    82. Text3.Interval = speed
    83. intro_arrayy = text.ToCharArray()
    84. Text3.Start()
    85. Return 0
    87. End Function
    89. Private Sub Antwort1()
    91. Speech2("" & vbNewLine & "" & vbNewLine & "Du findest deinen Vater nieder gestochen auf den Boden wieder! an den Messer in seiner Brust ist ein Brief!", 10)
    93. End Sub
    95. Private Sub Antwort2()
    97. Speech3("" & vbNewLine & "" & vbNewLine & "willst du dich nicht erstmal im haus umschauen?" & vbNewLine & "" & vbNewLine & "1. Ja", 10)
    99. End Sub
    101. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    102. End
    104. End Sub
    106. Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    107. MsgBox("Diese Option steht in dieser Version des Spieles nicht zur verfügung!")
    108. End Sub
    110. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    111. MsgBox("Diese Option steht in dieser Version des Spieles nicht zur verfügung!")
    112. End Sub
    114. Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
    116. End Sub
    118. Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    119. Dim Textnr As Integer = 0
    121. If Textnr = 0 Then
    122. TextBox1.Text = "1"
    123. Antwort1()
    124. TextBox1.ResetText()
    125. Textnr = 1
    127. ElseIf Textnr = 1 Then
    128. TextBox1.Text = "2"
    129. Antwort2()
    130. Textnr = 2
    132. End If
    134. End Sub
    136. End Class


    das mit den Button4 unten geht nur beim ersten mal!

    Hilfe ;(

    MFG
    nawiat

    Nimm ne Variable (Integer) und jedes mal, wenn du drückst, addiere 1 dazu. Dann fragst du mit einer If-Abrage ab, ob dieser Button schonmal gedrückt wurde, wenn ja wie oft.

    Alternativ kannst Du Dir auch eine Ableitung der Button-Klasse erstellen und dieser Ableitung einfach eine Property hinzufügen, die die Klicks mitzählt.

    Alternativ kannst Du auch die .Tag-Property der Button-Klasse nutzen und den Wert da rein schreiben.

    Natürlich funktionieren auch die Beispiele meiner Vorredner, jedoch würdest Du mit einer der o. g. Lösungen Deinen Code klarer gestalten können und IMO gehören solche Sachen zum Button, nicht in die Form-Klasse...

    Aber dies nur am Rande...
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

Facebook
Telefonspende