Listview spalte größe behalten

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von MarkusxX25.

    Listview spalte größe behalten

    hey, ich habe ein problem mit mein listview :

    Ich habe ein refresh button der es mir erlaubt items im listview zu refreshen nur wenn ich dies tue verkleinert sich die listview spalte automatisch.

    Wie kann ich die auf eine feste größe bringen ? das die spalten immer so bleiben wie ich sie eingestell habe.

    mfg

    VB.NET-Quellcode

    1. onlineuser.Columns.AddRange(myResult.ToColumnHeader())
    2. onlineuser.Items.AddRange(myResult.ToItemCollection)


    Komplettes script :

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private db As New MySqlLib.MySql("http://**.81/chat/query.php")
    3. Private myResult As MySqlLib.MySql.MySqlResultList
    4. Dim Username As String
    5. Dim Statusnachricht As String
    7. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    8. Try
    9. myResult = db.Query("DELETE FROM userlist WHERE user = '" & Username & "';")
    10. Catch sqlex As MySqlLib.MySql.MySqlException
    11. MsgBox(sqlex.ToString())
    12. Catch scriptex As MySqlLib.MySql.ScriptException
    13. MsgBox(scriptex.Message)
    14. End Try
    15. End Sub
    17. Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    18. Dim t3 As New Threading.Thread(AddressOf userlist)
    19. CheckForIllegalCrossThreadCalls = False
    20. Dim t4 As New Threading.Thread(AddressOf chat)
    21. CheckForIllegalCrossThreadCalls = False
    22. t3.Start()
    23. t4.Start()
    25. Username = InputBox("Username: ", "Username festlegen", "unknown")
    26. Statusnachricht = InputBox("Statusnachricht: ", "Statusnachricht festlegen", "unknown")
    27. Try
    28. myResult = db.Query("INSERT INTO userlist (User, Statusnachricht) VALUES ('" & Username & "', '" & Statusnachricht & "');")
    29. Catch sqlex As MySqlLib.MySql.MySqlException
    30. MsgBox(sqlex.ToString())
    31. Catch scriptex As MySqlLib.MySql.ScriptException
    32. MsgBox(scriptex.Message)
    33. End Try
    34. End Sub
    36. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    37. Try
    38. myResult = db.Query("INSERT INTO chat (User, Nachricht) VALUES ('" & Username & "', '" & RichTextBox1.Text & "');")
    39. RichTextBox1.Clear()
    40. Catch sqlex As MySqlLib.MySql.MySqlException
    41. MsgBox(sqlex.ToString())
    42. Catch scriptex As MySqlLib.MySql.ScriptException
    43. MsgBox(scriptex.Message)
    44. End Try
    45. End Sub
    47. Private Sub messagesanduser()
    48. Dim t2 As New Threading.Thread(AddressOf userlist)
    49. CheckForIllegalCrossThreadCalls = False
    50. t2.Start()
    52. Dim t As New Threading.Thread(AddressOf chat)
    53. CheckForIllegalCrossThreadCalls = False
    54. t.Start()
    55. End Sub
    57. Private Sub userlist()
    58. ListView1.Clear()
    59. Try
    60. myResult = db.Query("SELECT * FROM `userlist`")
    61. ListView1.Columns.AddRange(myResult.ToColumnHeader())
    62. ListView1.Items.AddRange(myResult.ToItemCollection)
    63. Catch sqlex As MySqlLib.MySql.MySqlException
    64. MsgBox(sqlex.ToString())
    65. Catch scriptex As MySqlLib.MySql.ScriptException
    66. MsgBox(scriptex.Message)
    67. End Try
    68. End Sub
    70. Private Sub chat()
    71. ListView2.Clear()
    72. Try
    73. myResult = db.Query("SELECT * FROM `chat`")
    74. ListView2.Columns.AddRange(myResult.ToColumnHeader())
    75. ListView2.Items.AddRange(myResult.ToItemCollection)
    76. Catch sqlex As MySqlLib.MySql.MySqlException
    77. MessageBox.Show(sqlex.ToString())
    78. Catch scriptex As MySqlLib.MySql.ScriptException
    79. MessageBox.Show(scriptex.Message)
    80. End Try
    81. End Sub
    83. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    84. messagesanduser()
    85. End Sub
    87. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    88. Try
    89. myResult = db.Query("DELETE FROM userlist WHERE user = '" & TextBox1.Text & "';")
    90. TextBox1.Clear()
    91. Catch sqlex As MySqlLib.MySql.MySqlException
    92. MsgBox(sqlex.ToString())
    93. Catch scriptex As MySqlLib.MySql.ScriptException
    94. MsgBox(scriptex.Message)
    96. End Try
    97. End Sub
    98. End Class


    Dort gibt es noch ein problem schmiert die form ab ist der user noch online wie kann ich das ändern ? und mein listview solte wie gesagt feste spalten breite haben.

    Und könnte man die mysqllib.dll von dodo einbinden in das projekt möchte die nicht immer mit schicken so dll's .

Facebook
Telefonspende