ListView inhalt aktualisieren

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von stefan0801.

    ListView inhalt aktualisieren

    Hallo ich bin dabei eine Funkspiel Leitstelle zu erstellen und habe eine listview für Statuse die sich mit einem Timer aktualisiert aber dann kann ich die Einträge nicht mehr auswählen für eine contextmenustrip
    kann mann das so machen das es funktioniert ?
    Vielen Dank im vorraus

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

    Wann kannst du die Status nicht wählen? Während der aktualisierung?
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Gib mal bitte ein paar Daten: Wie oft aktualisiert denn der Timer die Status? Ja, der Plural von Status ist Status, nur eben mit langem U; daher wohl eindeutiger: Wie oft aktualisiert denn der Timer die Statusanganben? Warum ein ListView? Wer heutzutage mit ListView arbeitet, ist im falschen Jahrzehnt stehengeblieben, hat einen verdammt guten Grund oder weiß sich nicht anders zu helfen. Und: Ist es richtig, dass Du das Kontextmenü (CM) zwar aufrufen kannst, aber wenn der Timer tickt, es wieder verschwindet, da Du den kompletten ListView-Inhalt neu erstellst? Wäre es dann eine Option, den Timer auszusetzen, wenn das CM angezeigt wird?
    Und bitte: Nutze (eine sinnvolle) Interpunktion. Sätze ohne Punkt und Komma sind sehr schwierig zu verstehen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Wie und in welchem Intervall lädst du die Daten in dein ListView? Woher kommen die Daten für den Status, dass du die regelmäßig aktualisieren musst?
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Vielen Dank für's Ignorieren, da ich jene Frage (und noch einige andere) bereits in Post#3 gestellt habe X(

    VaporiZed schrieb:

    Ist es richtig, dass Du das Kontextmenü (CM) zwar aufrufen kannst, aber wenn der Timer tickt, es wieder verschwindet, da Du den kompletten ListView-Inhalt neu erstellst? Wäre es dann eine Option, den Timer auszusetzen, wenn das CM angezeigt wird?

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    *unnötiges Zitat entfernt*

    Endschuldigung
    nein ich möchte in der listview ein Eintrag auswählen und dann cm aufrufen und abfragen welchen eintrag ausgewählt wurde aber dieses geht nicht weil der Timer das immer neu lädt
    mit dem ausätzen geht das daher auch nicht

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    1. Nochemol: Ist es richtig, dass, wenn der Timer tickt, der komplette ListView-Inhalt neu erstellt wird? Wenn ja, warum nicht einfach die vorhandenen Daten durchgehen und nur Änderungen aktualisieren? Wie sieht denn Dein Timer-Tick-Code bzgl. des ListViews aus?
    2. Ist das wirklich notwendig, dass alle 100ms die Statusangaben neu erfasst werden?
    3. Was beinhaltet das CM? Wenn es nur darum geht zu erfahren, welches Item angeklickt wird, geht das doch auch über ListView-SelectedItemChanged?
    4. Nochemol: Warum ListView? Hast Du da mal n Screenshot Deines GUIs (Deines laufenden Programms)? Wenn ja, bitte über [Erweiterte Antwort] hochladen, nicht über externe Bildhoster.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VB.NET-Quellcode

    1. ​Imports MySql.Data.MySqlClient
    2. Public Class Statusübersicht
    3. Dim con As New MySqlConnection("datasource=*********;port=3306;username=*******;password=*******;database=*******")
    5. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    6. Try
    7. Dim cmd As New MySqlCommand("SELECT * FROM `BF_Essen_FuRW_1_(FW)_Status`", con)
    8. Dim reader As MySqlDataReader
    9. ListView1.Items.Clear()
    10. Dim i As Integer = 0
    12. con.Open()
    14. reader = cmd.ExecuteReader
    15. While reader.Read
    16. ListView1.Items.Add(reader("Status"))
    17. ListView1.Items.Item(i).SubItems.Add(reader("Lst_Status"))
    18. ListView1.Items.Item(i).SubItems.Add(reader("Funkrufname"))
    19. ListView1.Items.Item(i).SubItems.Add(reader("Besetzer"))
    20. i += 1
    21. End While
    22. reader.Close()
    23. con.Close()
    24. Catch ex As Exception
    25. MsgBox("Fehler !")
    26. End Try
    27. End Sub
    29. Private Sub Statusübersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    30. Timer1.Start()
    31. LST_S_BF1()
    32. End Sub
    33. Private Sub LST_S_BF1()
    34. Try
    35. Dim cmd As New MySqlCommand("SELECT * FROM `BF_Essen_FuRW_1_(FW)_Status`", con)
    36. Dim reader As MySqlDataReader
    38. con.Open()
    40. reader = cmd.ExecuteReader
    41. While reader.Read
    42. ComboBox1.Items.Add(reader("Funkrufname"))
    44. End While
    45. reader.Close()
    46. con.Close()
    47. Catch ex As Exception
    48. MsgBox("Fehler>!<<")
    49. End Try
    50. End Sub
    52. Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
    53. If Not ComboBox1.SelectedItem = "" Then
    54. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='A' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    55. Try
    56. con.Open()
    57. cmd.ExecuteNonQuery()
    58. con.Close()
    59. Catch ex As Exception
    61. End Try
    62. Else
    63. MsgBox("KeinFahrzeug Ausgewält")
    64. End If
    65. End Sub
    67. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    68. If Not ComboBox1.SelectedItem = "" Then
    69. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='E' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    70. Try
    71. con.Open()
    72. cmd.ExecuteNonQuery()
    73. con.Close()
    74. Catch ex As Exception
    76. End Try
    77. Else
    78. MsgBox("KeinFahrzeug Ausgewält")
    79. End If
    80. End Sub
    82. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    83. If Not ComboBox1.SelectedItem = "" Then
    84. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='C' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    85. Try
    86. con.Open()
    87. cmd.ExecuteNonQuery()
    88. con.Close()
    89. Catch ex As Exception
    91. End Try
    92. Else
    93. MsgBox("KeinFahrzeug Ausgewält")
    94. End If
    95. End Sub
    97. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    98. If Not ComboBox1.SelectedItem = "" Then
    99. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='F' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    100. Try
    101. con.Open()
    102. cmd.ExecuteNonQuery()
    103. con.Close()
    104. Catch ex As Exception
    106. End Try
    107. Else
    108. MsgBox("KeinFahrzeug Ausgewält")
    109. End If
    110. End Sub
    112. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    113. If Not ComboBox1.SelectedItem = "" Then
    114. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='H' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    115. Try
    116. con.Open()
    117. cmd.ExecuteNonQuery()
    118. con.Close()
    119. Catch ex As Exception
    121. End Try
    122. Else
    123. MsgBox("KeinFahrzeug Ausgewält")
    124. End If
    125. End Sub
    127. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    128. If Not ComboBox1.SelectedItem = "" Then
    129. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='J' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    130. Try
    131. con.Open()
    132. cmd.ExecuteNonQuery()
    133. con.Close()
    134. Catch ex As Exception
    136. End Try
    137. Else
    138. MsgBox("KeinFahrzeug Ausgewält")
    139. End If
    140. End Sub
    142. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    143. If Not ComboBox1.SelectedItem = "" Then
    144. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='L' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    145. Try
    146. con.Open()
    147. cmd.ExecuteNonQuery()
    148. con.Close()
    149. Catch ex As Exception
    151. End Try
    152. Else
    153. MsgBox("KeinFahrzeug Ausgewält")
    154. End If
    155. End Sub
    157. Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    158. If Not ComboBox1.SelectedItem = "" Then
    159. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='U' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    160. Try
    161. con.Open()
    162. cmd.ExecuteNonQuery()
    163. con.Close()
    164. Catch ex As Exception
    166. End Try
    167. Else
    168. MsgBox("KeinFahrzeug Ausgewält")
    169. End If
    170. End Sub
    172. Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    173. If Not ComboBox1.SelectedItem = "" Then
    174. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='c' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    175. Try
    176. con.Open()
    177. cmd.ExecuteNonQuery()
    178. con.Close()
    179. Catch ex As Exception
    181. End Try
    182. Else
    183. MsgBox("KeinFahrzeug Ausgewält")
    184. End If
    185. End Sub
    187. Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
    188. If Not ComboBox1.SelectedItem = "" Then
    189. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='o' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    190. Try
    191. con.Open()
    192. cmd.ExecuteNonQuery()
    193. con.Close()
    194. Catch ex As Exception
    196. End Try
    197. Else
    198. MsgBox("KeinFahrzeug Ausgewält")
    199. End If
    200. End Sub
    202. Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
    203. If Not ComboBox1.SelectedItem = "" Then
    204. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='u' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    205. Try
    206. con.Open()
    207. cmd.ExecuteNonQuery()
    208. con.Close()
    209. Catch ex As Exception
    211. End Try
    212. Else
    213. MsgBox("KeinFahrzeug Ausgewält")
    214. End If
    215. End Sub
    217. Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
    218. If Not ComboBox1.SelectedItem = "" Then
    219. Dim cmd As New MySqlCommand("UPDATE `BF_Essen_FuRW_1_(FW)_Status` SET `Lst_Status`='' WHERE `Funkrufname`= '" & ComboBox1.SelectedItem & "'", con)
    220. Try
    221. con.Open()
    222. cmd.ExecuteNonQuery()
    223. con.Close()
    224. Catch ex As Exception
    226. End Try
    227. Else
    228. MsgBox("KeinFahrzeug Ausgewält")
    229. End If
    230. End Sub
    231. End Class

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

    Die Zeilen#9-#21 sind doch eindeutig. Anstatt dauernd das ListView zu leeren und neu zu befüllen - was genau zu Deinem CM-Problem führt - einfach die Werte aktualisieren, die nicht mehr stimmen.
    Deine CEs sind seeehr aussagekräftig benannt. Button1, Button2, Timer1, ... Man sollte sich anfangs die 5 Sekunden nehmen, um ein CE entsprechend seiner Aufgabe zu benennen.
    Anstatt bei den ganzen Buttons den fast gleichen Funktionstext zu schreiben, lager die DB-Aufrufe aus und besetze die passenden Stellen mit Variablen. Der Teil scheint immer gleich zu sein:

    VB.NET-Quellcode

    1. If Not ComboBox1.SelectedItem = "" Then
    2. Dim cmd As New MySqlCommand(hier einzig variabler Text)
    3. Try
    4. con.Open()
    5. cmd.ExecuteNonQuery()
    6. con.Close()
    7. Catch ex As Exception
    9. End Try
    10. Else
    11. MsgBox("KeinFahrzeug Ausgewält")
    12. End If

    Was soll die Zeile mit Catch Ex As Exception? Was für eine Art von Ausnahme kommt denn, wenn Du den Try-Block weglässt? Durch solche Konstrukte entstehen früher oder später Probleme, die man nicht mehr blickt, siehe Avoid Try-Catch
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Öhm. Dann stellt sich die Frage, wie weit Dein Programmierwissen ist. Und woher Du den bisherigen Code hast. Bitte beantworte diese Fragen, damit uns klar ist, an welcher Haltestelle wir Dich abholen können, nicht dass wir mit Konzepten kommen, die noch etwas zu tief gehen.
    Du hast:

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    2. ListView1.Items.Clear()
    3. '[...]
    4. ListView1.Items.Add(reader("Status"))
    5. ListView1.Items.Item(i).SubItems.Add(reader("Lst_Status"))
    6. ListView1.Items.Item(i).SubItems.Add(reader("Funkrufname"))
    7. ListView1.Items.Item(i).SubItems.Add(reader("Besetzer"))

    Zeile#2 löscht Dir Deinen ListView-Inhalt. die folgenden Zeilen schreibt Dir neue Zeilen ins ListView. Ich hoffe, dass Dir das bereits bewusst war.
    Das muss also anders geschrieben werden.
    Dazu 1.:
    Kürzer schreibt man nen ListView-AddItem-Eintrag so:

    VB.NET-Quellcode

    1. ListView1.Items.Add(New ListViewItem({reader("Status"), reader("Lst_Status"), reader("Funkrufname"), reader("Besetzer")}))

    Das Aktualisieren würde ich so machen, vorausgesetzt, der Besetzer ist quasi eine Konstante in der Auflistung. Ist dem so, dass der Besetzer sich am seltensten von den Daten ändert?

    VB.NET-Quellcode

    1. Dim CurrentUser As String = Nothing
    2. While reader.Read
    3. CurrentUser = reader("Besetzer")
    4. For i = 0 To ListView1.Items.Count - 1
    5. If ListView1.Items(i).SubItems(3).Text = CurrentUser Then
    6. ListView1.Items(i).SubItems(0).Text = reader("Status")
    7. ListView1.Items(i).SubItems(1).Text = reader("Lst_Status")
    8. ListView1.Items(i).SubItems(2).Text = reader("Funkrufname")
    9. Continue While
    10. End If
    11. Next
    12. ListView1.Items.Add(New ListViewItem({reader("Status"), reader("Lst_Status"), reader("Funkrufname"), CurrentUser}))
    13. End While

    An alle CCD-Leute: Mir ist klar, dass man den For-Schleifen-Inhalt besser in ne Extra-Sub auslagern sollte. Und ggf. Ist es auch besser, jeden SubItem-Inhalt auf Update-Notwendigkeit zu prüfen, bevor man ihn überschreibt. Aber erstmal vom Prinzip her.

    Aber ich leiste schon wieder Schützenhilfe bei der Verwendung von ListViews. Die sind sooo veraltet. Nimm nen DGV.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende