PictureBox reagiert nur auf die X Achse!

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von enIking1998.

    PictureBox reagiert nur auf die X Achse!

    Hallo!

    Ich hab ein Chat in ein Koordinaten-Sender umgewandelt...und wird von einem Koordinaten-Empfänger bearbeitet UND die
    PictureBox wird an die jeweilge erhaltene Koordinate hinzu bewegt...nun ja habs Lokal getestet und es klappt !

    Doch wenn ich jetzt "PfeilTaste-Oben" drücke geschieht nichts!

    Nur zur Seite geht es...

    Ich hoffe das ist nur Lokal so,und bin offen für Begründungen, aus welchem Grund das nicht nach oben oder unten geht...

    Mfg.eniking1998

    Wollte es einfach mal probieren ...

    Der Code:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Threading
    3. Imports System.IO
    4. Imports System.Net
    5. Public Class Form1
    6. Private ipendpoint As Net.IPEndPoint = New Net.IPEndPoint(IPAddress.Any, 8000)
    7. Dim listener As New TcpListener(IPEndPoint)
    8. Dim client As TcpClient
    9. Dim message As String = ""
    11. Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    12. Select Case e.KeyCode
    13. Case Keys.Up
    14. chr1.Top -= 1
    15. Label1.Text = chr1.Location.X & "," & chr1.Location.Y
    16. Case Keys.Down
    17. chr1.Top += 1
    18. Label1.Text = chr1.Location.X & "," & chr1.Location.Y
    19. Case Keys.Left
    20. chr1.Left -= 1
    21. Label1.Text = chr1.Location.X & "," & chr1.Location.Y
    22. Case Keys.Right
    23. chr1.Left += 1
    24. Label1.Text = chr1.Location.X & "," & chr1.Location.Y
    25. End Select
    26. End Sub
    28. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    29. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    30. listthread.Start()
    31. Label1.Text = chr1.Location.X & "," & chr1.Location.Y
    32. End Sub
    33. Private Sub listening()
    34. listener.Start()
    35. End Sub
    37. Private Sub SendLocation_Tick(sender As System.Object, e As System.EventArgs) Handles SendLocation.Tick
    38. Try
    39. client = New TcpClient(TextBox1.Text, 8000)
    40. Dim writer As New StreamWriter(client.GetStream())
    41. writer.Write(Label1.Text)
    42. writer.Flush()
    43. Catch
    44. MsgBox("Remotehost konnte nicht erreicht werden", MsgBoxStyle.Critical, "Fehler")
    45. Me.Hide()
    46. End Try
    48. End Sub
    50. Private Sub GetLocation_Tick(sender As System.Object, e As System.EventArgs) Handles GetLocation.Tick
    51. 1:
    52. Try
    53. If listener.Pending = True Then
    54. message = ""
    55. client = listener.AcceptTcpClient()
    56. Dim reader As New StreamReader(client.GetStream)
    57. While reader.Peek > -1
    58. message = message + Convert.ToChar(reader.Read()).ToString
    59. End While
    61. Label2.Text = message
    62. chr2.Location = New Point(Label2.Text)
    63. Else : End If
    65. Catch
    67. GoTo 1
    69. End Try
    71. End Sub
    73. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    74. Button1.Enabled = False
    76. GetLocation.Enabled = True
    78. End Sub
    81. End Class


    Ursprünglich ein Chat der jetzt nur Koordinaten versendet xD...

    Mfg.eniking1998

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

Facebook
Telefonspende