Verbindung zu einem Multiserver nicht möglich

  • VB.NET

Es gibt 38 Antworten in diesem Thema. Der letzte Beitrag () ist von EiPott.

    Verbindung zu einem Multiserver nicht möglich

    Hi Leute ... ICh habe versucht in mein Spiel einen Chat einzubauen aber das geht i-wie nicht ...
    Also hier is mal der Code :

    VB.NET-Quellcode

    1. Imports System.Net.SocketsImports System.IO
    2. Public Class Form1 Private stream As NetworkStream Private streamw As StreamWriter Private streamr As StreamReader Private client As New TcpClient Private t As New Threading.Thread(AddressOf Listen) Private Delegate Sub DAddItem(ByVal s As String) Private nick As String = "unknown" Dim myx As Integer = -5 Dim myy As Integer = 10
    3. Private Sub AddItem(ByVal s As String) Dim arr = s.Split(",") Dim list = arr.ToList Dim i = ListView1.Items.Add(list.Item(0)) Dim one As String = list.Item(1) Dim two As String = list.Item(2) i.SubItems.Add(one) i.SubItems.Add(two) PictureBox1.Refresh() ListBox1.Items.Add(s) End Sub
    4. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 'Hoch If e.KeyCode = Keys.Up Then PictureBox1.Location = New Point(PictureBox1.Location.X + 0, PictureBox1.Location.Y - 2) End If 'Runter If e.KeyCode = Keys.Down Then PictureBox1.Location = New Point(PictureBox1.Location.X + 0, PictureBox1.Location.Y + 2) End If 'Rechts If e.KeyCode = Keys.Right Then PictureBox1.Location = New Point(PictureBox1.Location.X + 2, PictureBox1.Location.Y + 0) End If 'Links If e.KeyCode = Keys.Left Then PictureBox1.Location = New Point(PictureBox1.Location.X - 2, PictureBox1.Location.Y + 0) End If myx = PictureBox1.Location.X myy = PictureBox1.Location.Y streamw.WriteLine(nick & "," & myx & "," & myy) streamw.Flush()
    5. End Sub Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown Try client.Connect("127.0.0.1", 8000) ' hier die ip des servers eintragen. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1. If client.Connected Then stream = client.GetStream streamw = New StreamWriter(stream) streamr = New StreamReader(stream)
    6. streamw.WriteLine(nick) ' das ist optional. streamw.Flush()
    7. t.Start() Else MessageBox.Show("Verbindung zum Server nicht möglich!") Application.Exit() End If Catch ex As Exception MessageBox.Show("Verbindung zum Server nicht möglich!") Application.Exit() End Try End Sub
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim posx_rnd As New Random Dim posy_rnd As New Random Dim posx = posx_rnd.Next(15, Me.Width - 15) Dim posy = posy_rnd.Next(15, Me.Height - 15) myx = posx myy = posy nick = InputBox("Gib einen Spielernamen ein!") Me.KeyPreview = True Try client.Connect("127.0.0.1", 8000) If client.Connected Then stream = client.GetStream streamw = New StreamWriter(stream) streamr = New StreamReader(stream)
    9. streamw.WriteLine(nick) streamw.Flush()
    10. t.Start() Else MessageBox.Show("Verbindung zum Server nicht möglich!") Application.Exit() End If Catch ex As Exception MessageBox.Show("Verbindung zum Server nicht möglich!") Application.Exit() End Try End Sub Private Sub Listen() While client.Connected Try Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine) Catch MessageBox.Show("Verbindung zum Server nicht möglich!") Application.Exit() End Try End While End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click streamw.WriteLine(TextBox1.Text) streamw.Flush() TextBox1.Clear() End Sub Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
    11. For Each item As ListViewItem In ListView1.Items Dim rnd1 As New Random Dim rnd2 As New Random Dim rnd3 As New Random
    12. Dim clr1 = rnd1.Next(1, 255) Dim clr2 = rnd2.Next(1, 255) Dim clr3 = rnd2.Next(1, 255)
    13. Dim nm_ As String = item.ToString nm_ = nm_.Replace("ListViewItem: {", "") nm_ = nm_.Replace("}", "") Dim nm As String = nm_
    14. Dim x_ As String = item.SubItems(1).ToString x_ = x_.Replace("ListViewSubItem: {", "") x_ = x_.Replace("}", "") Dim x As Single = x_
    15. Dim y_ As String = item.SubItems(2).ToString y_ = y_.Replace("ListViewSubItem: {", "") y_ = y_.Replace("}", "") Dim y As Single = y_
    19. Next
    20. End Sub
    22. End Class



    Also ich weiß nicht warum das nicht funktioniert ... Da steht immer Verbindung zum Server nicht möglich.
    Dabei hab ich diesen Multiserver laufen ...

    EDIT: ich seh grad das sind nur 22 zeilen ... das war keine absicht sry ... ich hoffe ihr könnt es trotzdem entziffern :D

    Edit by ~blaze~:
    *Thema umbenannt*

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

    BDG schrieb:

    EDIT: ich seh grad das sind nur 22 zeilen ... das war keine absicht sry ... ich hoffe ihr könnt es trotzdem entziffern


    Warum sollten wir dir helfen wenn wir deinen Code erst noch "entschlüsseln" müssen ?

    Gruß, Trudi ;)

    ja aber das hat das forum gemacht ! Das war ich nciht !
    Also ich versuchs nochmal :

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    4. Public Class Form1
    5. Private stream As NetworkStream
    6. Private streamw As StreamWriter
    7. Private streamr As StreamReader
    8. Private client As New TcpClient
    9. Private t As New Threading.Thread(AddressOf Listen)
    10. Private Delegate Sub DAddItem(ByVal s As String)
    11. Private nick As String = "unknown"
    13. Private Sub AddItem(ByVal s As String)
    14. ListBox1.Items.Add(s)
    15. End Sub
    17. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    18. Try
    19. client.Connect("127.0.0.1", 8000) ' hier die ip des servers eintragen.
    20. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
    21. If client.Connected Then
    22. stream = client.GetStream
    23. streamw = New StreamWriter(stream)
    24. streamr = New StreamReader(stream)
    26. streamw.WriteLine(nick) ' das ist optional.
    27. streamw.Flush()
    29. t.Start()
    30. Else
    31. MessageBox.Show("Verbindung zum Server nicht möglich!")
    32. Application.Exit()
    33. End If
    34. Catch ex As Exception
    35. MessageBox.Show("Verbindung zum Server nicht möglich!")
    36. Application.Exit()
    37. End Try
    38. End Sub
    40. Private Sub Listen()
    41. While client.Connected
    42. Try
    43. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    44. Catch
    45. MessageBox.Show("Verbindung zum Server nicht möglich!")
    46. Application.Exit()
    47. End Try
    48. End While
    49. End Sub
    51. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    52. streamw.WriteLine(TextBox1.Text)
    53. streamw.Flush()
    54. TextBox1.Clear()
    55. End Sub
    57. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    58. nick = InputBox("Nickname: ", "Namen festlegen", "unknown")
    59. End Sub
    60. End Class

    Oh sry falscher code ... Ich send gleich mal den richtigen

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    4. Public Class Form1
    5. Private stream As NetworkStream
    6. Private streamw As StreamWriter
    7. Private streamr As StreamReader
    8. Private client As New TcpClient
    9. Private t As New Threading.Thread(AddressOf Listen)
    10. Private Delegate Sub DAddItem(ByVal s As String)
    11. Private nick As String = "unknown"
    13. Private Sub AddItem(ByVal s As String)
    14. ListBox1.Items.Add(s)
    15. End Sub
    17. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    18. Try
    19. client.Connect("127.0.0.1", 8000) ' hier die ip des servers eintragen.
    20. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
    21. If client.Connected Then
    22. stream = client.GetStream
    23. streamw = New StreamWriter(stream)
    24. streamr = New StreamReader(stream)
    26. streamw.WriteLine(nick) ' das ist optional.
    27. streamw.Flush()
    29. t.Start()
    30. Else
    31. MessageBox.Show("Verbindung zum Server nicht möglich!")
    32. Application.Exit()
    33. End If
    34. Catch ex As Exception
    35. MessageBox.Show("Verbindung zum Server nicht möglich!")
    36. Application.Exit()
    37. End Try
    38. End Sub
    40. Private Sub Listen()
    41. While client.Connected
    42. Try
    43. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    44. Catch
    45. MessageBox.Show("Verbindung zum Server nicht möglich!")
    46. Application.Exit()
    47. End Try
    48. End While
    49. End Sub
    51. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    52. streamw.WriteLine(TextBox1.Text)
    53. streamw.Flush()
    54. TextBox1.Clear()
    55. End Sub
    57. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    58. nick = InputBox("Nickname: ", "Namen festlegen", "unknown")
    59. End Sub
    60. End Class


    hmm warte ich glaub der is gleich ... also das game hat ja funtkioniert ... nur jetzt wollte ich noch einen chat einbauen und da steht dann immer verbindung zum server nicht möglich ... Also ich hab den Code ausm dem Tutorial genommen und nur das game ein bisschen verändert . Und dann noch versucht den chat einzubauen .. Was ja leider nicht funktionierte

    hi!

    also ich habs jetzt auch nicht ganz verglichen, aber so weit ich das sehe ist es wie bereits gesagt 1:1 der code von Kevin.

    das ist natürlich kein problem, schließlich hat er ihn ja nicht zum anschauen gepostet, aber du hast einfach den ganzen code kopiert.
    ohne eine eigene Idee von deinem "spiel"

    keiner weiß was er machen soll oder was genau dein problem ist. ?( ich glaube nicht das hier jemand lust hat dir ein spiel zu machen(ohne gewähr)

    mfg genesis


    PS:
    ja aber das hat das forum gemacht ! Das war ich nciht !
    Also ich versuchs nochmal :

    nein nicht das forum aber ich weiß wo der fehler sitzt... 50 cm vor dem bildschirm ;)

    und noch ein PS:
    warum hast du hier: Mini multiplayergame bereits den fast identischen thread aufgemacht und verweißt sogar in deiner sig darauf hin?

    nochmaliges mfg Genesis

    So also ich hab jetzt gemerkt das is der falsche code .... Nun zeig ich endlich den richtigen Code:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    4. Public Class Form1
    5. Private stream As NetworkStream
    6. Private streamw As StreamWriter
    7. Private streamr As StreamReader
    8. Private client As New TcpClient
    9. Private t As New Threading.Thread(AddressOf Listen)
    10. Private Delegate Sub DAddItem(ByVal s As String)
    11. Private nick As String = "unknown"
    12. Dim myx As Integer = -5
    13. Dim myy As Integer = 10
    15. Private Sub AddItem(ByVal s As String)
    16. Dim arr = s.Split(",")
    17. Dim list = arr.ToList
    18. Dim i = ListView1.Items.Add(list.Item(0))
    19. Dim one As String = list.Item(1)
    20. Dim two As String = list.Item(2)
    21. i.SubItems.Add(one)
    22. i.SubItems.Add(two)
    23. PictureBox1.Refresh()
    24. End Sub
    26. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    27. 'Hoch
    28. If e.KeyCode = Keys.Up Then
    29. PictureBox1.Location = New Point(PictureBox1.Location.X + 0, PictureBox1.Location.Y - 2)
    30. End If
    31. 'Runter
    32. If e.KeyCode = Keys.Down Then
    33. PictureBox1.Location = New Point(PictureBox1.Location.X + 0, PictureBox1.Location.Y + 2)
    34. End If
    35. 'Rechts
    36. If e.KeyCode = Keys.Right Then
    37. PictureBox1.Location = New Point(PictureBox1.Location.X + 2, PictureBox1.Location.Y + 0)
    38. End If
    39. 'Links
    40. If e.KeyCode = Keys.Left Then
    41. PictureBox1.Location = New Point(PictureBox1.Location.X - 2, PictureBox1.Location.Y + 0)
    42. End If
    43. streamw.WriteLine(nick & "," & myx & "," & myy)
    44. streamw.Flush()
    46. End Sub
    49. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    50. Dim posx_rnd As New Random
    51. Dim posy_rnd As New Random
    52. Dim posx = posx_rnd.Next(15, Me.Width - 15)
    53. Dim posy = posy_rnd.Next(15, Me.Height - 15)
    54. myx = posx
    55. myy = posy
    56. nick = InputBox("Gib einen Spielernamen ein!")
    57. Me.KeyPreview = True
    58. Try
    59. client.Connect("127.0.0.1", 8000)
    60. If client.Connected Then
    61. stream = client.GetStream
    62. streamw = New StreamWriter(stream)
    63. streamr = New StreamReader(stream)
    65. streamw.WriteLine(nick)
    66. streamw.Flush()
    68. t.Start()
    69. Else
    70. MessageBox.Show("Verbindung zum Server nicht möglich!")
    71. Application.Exit()
    72. End If
    73. Catch ex As Exception
    74. MessageBox.Show("Verbindung zum Server nicht möglich!")
    75. Application.Exit()
    76. End Try
    79. End Sub
    80. Private Sub Listen()
    81. While client.Connected
    82. Try
    83. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    84. Catch
    85. MessageBox.Show("Verbindung zum Server nicht möglich!")
    86. Application.Exit()
    87. End Try
    88. End While
    89. End Sub
    91. Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
    93. For Each item As ListViewItem In ListView1.Items
    94. Dim rnd1 As New Random
    95. Dim rnd2 As New Random
    96. Dim rnd3 As New Random
    98. Dim clr1 = rnd1.Next(1, 255)
    99. Dim clr2 = rnd2.Next(1, 255)
    100. Dim clr3 = rnd2.Next(1, 255)
    102. Dim nm_ As String = item.ToString
    103. nm_ = nm_.Replace("ListViewItem: {", "")
    104. nm_ = nm_.Replace("}", "")
    105. Dim nm As String = nm_
    107. Dim x_ As String = item.SubItems(1).ToString
    108. x_ = x_.Replace("ListViewSubItem: {", "")
    109. x_ = x_.Replace("}", "")
    110. Dim x As Single = x_
    112. Dim y_ As String = item.SubItems(2).ToString
    113. y_ = y_.Replace("ListViewSubItem: {", "")
    114. y_ = y_.Replace("}", "")
    115. Dim y As Single = y_
    118. Dim player As New Rectangle(x, y, 15, 15)
    119. e.Graphics.DrawRectangle(Pens.Transparent, player)
    120. e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(clr1, clr2, clr3)), player)
    123. Next
    125. End Sub
    128. End Class


    In diesem Code sieht man die andere Figur nicht . Wenn ich die exe zweimal starte dann sieht man die jeweils andere figur nicht ... woran liegt das ?

    2.3 Was benötigen andere, um das Problem besser nachvollziehen zu können?
    Wenn möglich, gebe ein Szenario mit an, bei dem der Fehler auftritt. Welche Werte haben die Variablen, wo muss man was eingeben oder wohin klicken, damit der Fehler auftritt. Auch Screenshots oder Testdateien können unter umständen hier hilfreich sein, welche hochgeladen und anderen zur Verfügung gestellt werden können.


    3.1 Was, wenn niemand antwortet?
    Warte mindestens 2 Tage ab, nicht jeder User ist so oft online! Ist auch nach 3 Tagen keine Antwort eingegangen, versuche das Problem noch einmal besser oder anders zu formulieren, ein einfacher „Push-Post“ ohne konstruktivem Inhalt wirkt unfreundlich und egoistisch den freiwilligen Helfern gegenüber.
    Nur mal so und ach ja Tritt dass Paint Event denn Mehrmals auf? Wenn nein wie willst du dann immer die neuen Daten übertragen...
    Also ich habe noch nie was mit den Paint Event gemacht aber Ich glaube nicht dass dass mehrmals auftritt..

    hmmm also mit dem Code kenne ich mich nicht so aus denn ich hab das vom tutorial kopiert und dann einfach
    das spiel etwas verändert ... Und jetzt sieht man aber die jeweils anderen nicht :(

    PS: dabei hab ich mir für die überschrift doch soviel mühe gegeben

    Mensch dein Code ist ganz schön unübersichtlich ^^
    Und es sind ein paar fatale Fehler drinne ..

    Erstmal :

    VB.NET-Quellcode

    1. Dim nm_ As String = item.ToString
    2. nm_ = nm_.Replace("ListViewItem: {", "")
    3. nm_ = nm_.Replace("}", "")
    4. Dim nm As String = nm_
    6. Dim x_ As String = item.SubItems(1).ToString
    7. x_ = x_.Replace("ListViewSubItem: {", "")
    8. x_ = x_.Replace("}", "")
    9. Dim x As Single = x_
    11. Dim y_ As String = item.SubItems(2).ToString
    12. y_ = y_.Replace("ListViewSubItem: {", "")
    13. y_ = y_.Replace("}", "")
    14. Dim y As Single = y_


    Um an den Text von den ListViewItems zu kommen gibt es folgende Eigenschaft : (wie bei TextBox, ComboBox, Label)

    VB.NET-Quellcode

    1. item.SubItems(1)[b].Text
    2. [/b]


    So musst du nicht den Umweg über .Replace und so machen ;)


    VB.NET-Quellcode

    1. Dim player As New Rectangle(x, y, 15, 15)
    2. e.Graphics.DrawRectangle(Pens.Transparent, player)
    3. e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(clr1, clr2, clr3)), player)


    Es muss ja eigentlich an dem Stück Code hängen..
    Hast du schonmal versucht anstatt Pens.Transparent Pens.Black oder so zu schreiben ?

    Hmmm.. ;)

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    4. Public Class Form1
    5. Private stream As NetworkStream
    6. Private streamw As StreamWriter
    7. Private streamr As StreamReader
    8. Private client As New TcpClient
    9. Private t As New Threading.Thread(AddressOf Listen)
    10. Private Delegate Sub DAddItem(ByVal s As String)
    11. Private nick As String = "unknown"
    12. Dim myx As Integer = -5
    13. Dim myy As Integer = 10
    15. Private Sub AddItem(ByVal s As String)
    16. Dim arr = s.Split(",")
    17. Dim list = arr.ToList
    18. Dim i = ListView1.Items.Add(list.Item(0))
    19. Dim one As String = list.Item(1)
    20. Dim two As String = list.Item(2)
    21. item.SubItems(1)[b].Text
    22. [/b]
    23. PictureBox1.Refresh()
    24. End Sub
    26. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    27. 'Hoch
    28. If e.KeyCode = Keys.Up Then
    29. PictureBox1.Location = New Point(PictureBox1.Location.X + 0, PictureBox1.Location.Y - 2)
    30. End If
    31. 'Runter
    32. If e.KeyCode = Keys.Down Then
    33. PictureBox1.Location = New Point(PictureBox1.Location.X + 0, PictureBox1.Location.Y + 2)
    34. End If
    35. 'Rechts
    36. If e.KeyCode = Keys.Right Then
    37. PictureBox1.Location = New Point(PictureBox1.Location.X + 2, PictureBox1.Location.Y + 0)
    38. End If
    39. 'Links
    40. If e.KeyCode = Keys.Left Then
    41. PictureBox1.Location = New Point(PictureBox1.Location.X - 2, PictureBox1.Location.Y + 0)
    42. End If
    43. streamw.WriteLine(nick & "," & myx & "," & myy)
    44. streamw.Flush()
    46. End Sub
    49. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    50. Dim posx_rnd As New Random
    51. Dim posy_rnd As New Random
    52. Dim posx = posx_rnd.Next(15, Me.Width - 15)
    53. Dim posy = posy_rnd.Next(15, Me.Height - 15)
    54. myx = posx
    55. myy = posy
    56. nick = InputBox("Gib einen Spielernamen ein!")
    57. Me.KeyPreview = True
    58. Try
    59. client.Connect("127.0.0.1", 8000)
    60. If client.Connected Then
    61. stream = client.GetStream
    62. streamw = New StreamWriter(stream)
    63. streamr = New StreamReader(stream)
    65. streamw.WriteLine(nick)
    66. streamw.Flush()
    68. t.Start()
    69. Else
    70. MessageBox.Show("Verbindung zum Server nicht möglich!")
    71. Application.Exit()
    72. End If
    73. Catch ex As Exception
    74. MessageBox.Show("Verbindung zum Server nicht möglich!")
    75. Application.Exit()
    76. End Try
    79. End Sub
    80. Private Sub Listen()
    81. While client.Connected
    82. Try
    83. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    84. Catch
    85. MessageBox.Show("Verbindung zum Server nicht möglich!")
    86. Application.Exit()
    87. End Try
    88. End While
    89. End Sub
    91. Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
    93. For Each item As ListViewItem In ListView1.Items
    94. Dim rnd1 As New Random
    95. Dim rnd2 As New Random
    96. Dim rnd3 As New Random
    98. Dim clr1 = rnd1.Next(1, 255)
    99. Dim clr2 = rnd2.Next(1, 255)
    100. Dim clr3 = rnd2.Next(1, 255)
    102. Dim nm_ As String = item.ToString
    103. nm_ = nm_.Replace("ListViewItem: {", "")
    104. nm_ = nm_.Replace("}", "")
    105. Dim nm As String = nm_
    107. Dim x_ As String = item.SubItems(1).ToString
    108. x_ = x_.Replace("ListViewSubItem: {", "")
    109. x_ = x_.Replace("}", "")
    110. Dim x As Single = x_
    112. Dim y_ As String = item.SubItems(2).ToString
    113. y_ = y_.Replace("ListViewSubItem: {", "")
    114. y_ = y_.Replace("}", "")
    115. Dim y As Single = y_
    118. Dim player As New Rectangle(x, y, 15, 15)
    119. e.Graphics.DrawRectangle(Pens.Transparent, player)
    120. e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(clr1, clr2, clr3)), player)
    122. Next
    124. End Sub
    127. End Class

    so ist es nun ...
    Nur wozu braucht man dieses


    Dim player As New Rectangle(x, y, 15, 15)
    e.Graphics.DrawRectangle(Pens.Transparent, player)
    e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(clr1, clr2, clr3)), player)

    also eigntlich sollte das Spiel ja mit pictureboxen laufen ... deswegen is ja auch dashier :

    VB.NET-Quellcode

    1. If e.KeyCode = Keys.Up Then
    2. PictureBox1.Location = New Point(PictureBox1.Location.X + 0, PictureBox1.Location.Y - 2)
    3. End If
    4. 'Runter
    5. If e.KeyCode = Keys.Down Then
    6. PictureBox1.Location = New Point(PictureBox1.Location.X + 0, PictureBox1.Location.Y + 2)
    7. End If
    8. 'Rechts
    9. If e.KeyCode = Keys.Right Then
    10. PictureBox1.Location = New Point(PictureBox1.Location.X + 2, PictureBox1.Location.Y + 0)
    11. End If
    12. 'Links
    13. If e.KeyCode = Keys.Left Then
    14. PictureBox1.Location = New Point(PictureBox1.Location.X - 2, PictureBox1.Location.Y + 0)
    15. End If
    16. streamw.WriteLine(nick & "," & myx & "," & myy)
    17. streamw.Flush()

    das da ist für das bewegen deines eigenen spielers :rolleyes:

    und wo bewegst du/ hast du deinen gegner ?

    Warum machst du es dir hier so umständlich über Replace :

    VB.NET-Quellcode

    1. Dim nm_ As String = item.ToString
    2. nm_ = nm_.Replace("ListViewItem: {", "")
    3. nm_ = nm_.Replace("}", "")
    4. Dim nm As String = nm_
    6. Dim x_ As String = item.SubItems(1).ToString
    7. x_ = x_.Replace("ListViewSubItem: {", "")
    8. x_ = x_.Replace("}", "")
    9. Dim x As Single = x_
    11. Dim y_ As String = item.SubItems(2).ToString
    12. y_ = y_.Replace("ListViewSubItem: {", "")
    13. y_ = y_.Replace("}", "")
    14. Dim y As Single = y_


    den text von einem subitem liest man über subitem.text aus..

    Gruß, Trudi

    hmm ja sry ich bin noch sehr anfänger und den code hab ich aus einem tutorial ... und jetzt hab ich den etwas umgebaut ... aber ich kenn mich damit nicht so Gut aus ...
    kannst du mir vielleicht den ganzen code geben ? währe wirklich nett ... denn ich versuch das jetzt schon 2 wochen
    und hab auch in anderen foren gefragt aber ich krig das nicht hin sry.

    aha ich verstehe

    EDIT: hmm hab den Code jetzt bearbeitet aber man sieht den anderen immer noch nicht :( hier mal ein bild :

    wie mach ich das das beide sich gegenseitig sehen ? und welchen zweck hat die listview könnte man die nicht auch weglassen ? die stört mich irgendwie ...

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

Facebook