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
das mit den Button4 unten geht nur beim ersten mal!
Hilfe![;(](https://www.vb-paradise.de/wcf/images/smilies/crying.png)
MFG
nawiat
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
VB.NET-Quellcode
- Imports System.IO
- Public Class Form1
- Dim intro_i As Integer = 0
- Dim intro_array As Char()
- Dim intro_ii As Integer = 0
- Dim intro_arrayy As Char()
- Dim intro_iii As Integer = 0
- Dim intro_arrayyy As Char()
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- Tutorial.Close()
- Dim Name As String = SplashScreen1.dein_Name
- 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)
- End Sub
- Private Sub Text1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text1.Tick
- If intro_i < intro_array.Length Then
- Label1.Text = Label1.Text & intro_array(intro_i)
- intro_i = intro_i + 1
- If intro_i = intro_array.Length Then
- Text1.Stop()
- Button2.Visible = True
- End If
- Else
- End If
- End Sub
- Private Sub Text2_Tick(sender As System.Object, e As System.EventArgs) Handles Text2.Tick
- If intro_ii < intro_arrayy.Length Then
- Label1.Text = Label1.Text & intro_arrayy(intro_ii)
- intro_ii = intro_ii + 1
- If intro_ii = intro_arrayy.Length Then
- Text2.Stop()
- End If
- Else
- End If
- End Sub
- Private Sub Text3_Tick(sender As System.Object, e As System.EventArgs) Handles Text3.Tick
- If intro_iii < intro_arrayyy.Length Then
- Label1.Text = Label1.Text & intro_arrayyy(intro_iii)
- intro_iii = intro_iii + 1
- If intro_iii = intro_arrayyy.Length Then
- Text3.Stop()
- End If
- Else
- End If
- End Sub
- Public Function Speech(ByVal text As String, ByVal speed As Integer)
- Text1.Interval = speed
- intro_array = text.ToCharArray()
- Text1.Start()
- Return 0
- End Function
- Public Function Speech2(ByVal text As String, ByVal speed As Integer)
- Text2.Interval = speed
- intro_arrayy = text.ToCharArray()
- Text2.Start()
- Return 0
- End Function
- Public Function Speech3(ByVal text As String, ByVal speed As Integer)
- Text3.Interval = speed
- intro_arrayy = text.ToCharArray()
- Text3.Start()
- Return 0
- End Function
- Private Sub Antwort1()
- Speech2("" & vbNewLine & "" & vbNewLine & "Du findest deinen Vater nieder gestochen auf den Boden wieder! an den Messer in seiner Brust ist ein Brief!", 10)
- End Sub
- Private Sub Antwort2()
- Speech3("" & vbNewLine & "" & vbNewLine & "willst du dich nicht erstmal im haus umschauen?" & vbNewLine & "" & vbNewLine & "1. Ja", 10)
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- End
- End Sub
- Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
- MsgBox("Diese Option steht in dieser Version des Spieles nicht zur verfügung!")
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- MsgBox("Diese Option steht in dieser Version des Spieles nicht zur verfügung!")
- End Sub
- Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
- End Sub
- Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
- Dim Textnr As Integer = 0
- If Textnr = 0 Then
- TextBox1.Text = "1"
- Antwort1()
- TextBox1.ResetText()
- Textnr = 1
- ElseIf Textnr = 1 Then
- TextBox1.Text = "2"
- Antwort2()
- Textnr = 2
- End If
- End Sub
- End Class
das mit den Button4 unten geht nur beim ersten mal!
Hilfe
![;(](https://www.vb-paradise.de/wcf/images/smilies/crying.png)
MFG
nawiat