Inputbox abfrage

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von singu.

    Inputbox abfrage

    Hi,

    ich habe 2 PBs beim starten des Programms erscheint eine Inputbox man kann entweder "Spieler1" oder "Spieler2" eingeben wenn ich z.b Spieler1 eingebe soll man nur Pb1 steuern können soweit bin ich schon.

    VB.NET-Quellcode

    1. Dim Ja As String = InputBox("Eingabe", "Titel")
    2. If Ja = "Spieler 1" = True Then
    3. ElseIf Ja = "Spieler 2" = True Then
    4. Else If End Sub


    was muss ich nach dem True then schreiben um je nach dem die PB zu steuern die ich steuern möchte

    gruß

    Ja eben eine Pb steuer mit der tastatur

    Um PB1 zu steuern



    VB.NET-Quellcode

    1. Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    2. If e.KeyCode = Keys.Up Then
    3. PictureBox1.Top -= 12
    4. End If
    5. If e.KeyCode = Keys.Down Then
    6. PictureBox1.Top += 12
    7. End If
    8. If e.KeyCode = Keys.Left Then
    9. PictureBox1.Left -= 12
    10. End If
    11. If e.KeyCode = Keys.Right Then
    12. PictureBox1.Left += 12
    13. End If


    End Sub

    Eine Funktion schreiben. Funktion gibt True/False zurück, wenn Funktion Argument beim aufruf gleich deine Ausdrücke "Spieler 1" /Spieler 2", dann Funktion gibt "True" zurück. Wenn True dann aktionen für PicutreBox ausführen.
    Funktion im gewünschten Event aufrufen.

    EDIT// Post neu editiert !

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

    Ich weiß das dies eine Anfänger frage ist aber ich brauch die grundlagen nicht mehr zu erlernen weil ich sie kann aber es gibt bei mir mal nun so einige hänger das kann ja mal vorkommen.Also könnt ihr mir bitte eine richtige Antwort geben

    Danke

    Ich dachte du meinst mit Pb eine Progressbar. Eine Möglichkeit wäre diese:

    VB.NET-Quellcode

    1. Dim Spieler1 As Boolean = False
    2. Dim Spieler2 As Boolean = False
    4. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    5. If Spieler1 Then
    6. If e.KeyCode = Keys.Up Then
    7. PictureBox1.Location = New Point(PictureBox1.Location.X, PictureBox1.Location.Y - 12)
    8. ElseIf e.KeyCode = Keys.Down Then
    9. PictureBox1.Location = New Point(PictureBox1.Location.X, PictureBox1.Location.Y + 12)
    10. ElseIf e.KeyCode = Keys.Left Then
    11. PictureBox1.Location = New Point(PictureBox1.Location.X - 12, PictureBox1.Location.Y)
    12. ElseIf e.KeyCode = Keys.Right Then
    13. PictureBox1.Location = New Point(PictureBox1.Location.X + 12, PictureBox1.Location.Y)
    14. End If
    15. ElseIf Spieler2 Then
    16. If e.KeyCode = Keys.Up Then
    17. PictureBox2.Location = New Point(PictureBox2.Location.X, PictureBox2.Location.Y - 12)
    18. ElseIf e.KeyCode = Keys.Down Then
    19. PictureBox2.Location = New Point(PictureBox2.Location.X, PictureBox2.Location.Y + 12)
    20. ElseIf e.KeyCode = Keys.Left Then
    21. PictureBox2.Location = New Point(PictureBox2.Location.X - 12, PictureBox2.Location.Y)
    22. ElseIf e.KeyCode = Keys.Right Then
    23. PictureBox2.Location = New Point(PictureBox2.Location.X + 12, PictureBox2.Location.Y)
    24. End If
    25. Else : End If
    26. End Sub
    28. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    29. PictureBox1.BackColor = Color.Blue
    30. PictureBox2.BackColor = Color.Red
    32. Dim Ibox As String = InputBox("Spieler wählen")
    33. If Ibox.ToLower.Contains("spieler 1") Then
    34. Spieler1 = True
    35. Spieler2 = False
    36. ElseIf Ibox.ToLower.Contains("spieler 2") Then
    37. Spieler2 = True
    38. Spieler1 = False
    39. Else
    40. MsgBox("Warnung")
    41. End If
    42. End Sub


    auch wenn das "Verschieben" der Picturebox auch sicherlich eleganter zu realisieren wäre ;)

Facebook