BindingNavigator CountItem als Toolstriplabel?

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    BindingNavigator CountItem als Toolstriplabel?

    Nabend..

    hoffe ich drücke mich richtig aus.

    Habe ein kleines einfaches Adressbuch mit BindingSoruce erstellt speichert die Daten in eine xml Datei.

    Habe KEINEN BindingNavigator habe diese durch Buttons ausgetauscht. Funktioniert auch.

    Unten habe ich ein Toolstrip eingebaut dort wird mit das Datum und der Pfad der Datei angezeigt.

    Jetzt möcht ich gerne das im Toolstriplabel4 die Anzahl der Datensätze angezeigt wird. Komme aber nicht drauf wie.

    Mit Pfad bzw Datum und uhrzeit habe ich so gemacht.

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. ToolStripLabel1.Text = Path.GetDirectoryName(Application.ExecutablePath)
    3. ToolStripLabel2.Text = DateTime.Now.ToLocalTime


    Wie bekomme ich jetzt das CountItem da rein?

    Hoffe die Infos sind ausreichend.

    Für eine Hilfe Danke ich jetzt schon.

    Upps habe gerade gesehen das ich im falschem Forum geschrieben habe. Gehört eigentlich in sonstige Problemstellung.

    Gruß
    Manni

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

    Da ich nicht weiß wie die Daten in der XML gespeichert sind, rate ich mal und werfen "Per For Each Schleife die Datensätze zählen" in den Raum.

    P.S. Bitte benenne deine Controls gescheit.

    Edit: Sorry jetzt erst gesehen das du mit der BindingSource arbeitest. Da kann ich nur wenig helfen, aber vielleicht hilft das: msdn.microsoft.com/de-de/libra…forms.bindingsource.count
    "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

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „mrMo“ ()

    Hat mein Link nicht geholfen? Da steht:
    BindingSource1.Count.ToString()

    Alternativ, wenn du mit einem DataGridView arbeitest, zähle die Zeilen. Wobei der Weg über die BindingSource eleganter wäre.
    "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

    VB.NET-Quellcode

    1. DeineBindingSource.Count.ToString
    ist schon der richtige Weg.
    Wenn die Datensätze sehr viele sind, würde sich noch ein

    VB.NET-Quellcode

    1. String.Format("Anzahl Datensätze {0:0,0}",DeineBindingsource.Count)
    anbieten um die Zahl etwas svhöner zu formatieren
    "Hier könnte Ihre Werbung stehen..."

    morgen...

    grundsätzlich funktioniert es. Es wird mir die Anzahl der Datensätze angezeigt.
    Während der Laufzeit.
    Schließe ich die Form und starte das Prog. wieder wird mir 0 Angezeigt.
    Füge ich einen neuen Datensatz hinzu. Wird mir wieder die richtige Anzahl angezeigt.

    Ich weis Controlls habe ich noch nicht umbenannt

    Hier habe ich den Code eingefügt


    Form Load

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. ToolStripLabel1.Text = Path.GetDirectoryName(Application.ExecutablePath)
    3. ToolStripLabel2.Text = DateTime.Now.ToLocalTime
    4. ToolStripLabel4.Text = "Anzahl Datensätze: " + KontaktBindingSource.Count.ToString()
    5. If My.Computer.FileSystem.FileExists(xmldatabasedata) = True Then
    6. DataSet1.ReadXml(xmldatabasedata)
    7. End If
    8. End Sub


    Datensatz löschen

    VB.NET-Quellcode

    1. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    3. Try
    4. Select Case MessageBox.Show("Datensatz wirklich löschen?", "Löschen", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    5. Case Windows.Forms.DialogResult.Yes
    6. KontaktBindingSource.RemoveCurrent()
    7. ToolStripLabel4.Text = "Anzahl Datensätze: " + KontaktBindingSource.Count.ToString()
    9. End Select
    10. Catch ex As Exception
    11. MsgBox("Keine Daten zum löschen vorhanden")
    12. End Try
    14. End Sub


    Datensatz hinzufügen

    VB.NET-Quellcode

    1. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    3. KontaktBindingSource.AddNew()
    4. ToolStripLabel4.Text = "Anzahl Datensätze: " + KontaktBindingSource.Count.ToString()
    5. If Me.VornameTextBox.Text = Nothing Then 'Wenn nichts in der Textbox steht
    Bilder

    • neustartForm.jpg

      24,05 kB, 567×230, 143 mal angesehen

    • hinzufügenDaten.jpg

      24,83 kB, 535×224, 127 mal angesehen

    Du zählst erst die Datensätze in der Bindingsource (die zu dem Zeitpunkt leer ist) und liest dann erst die Datensätze ein ;(

    Und benutze bitte nicht My.Computer.... dafür gibt es den System.IO namespace.

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. ToolStripLabel1.Text = Path.GetDirectoryName(Application.ExecutablePath)
    3. ToolStripLabel2.Text = DateTime.Now.ToLocalTime
    4. If My.Computer.FileSystem.FileExists(xmldatabasedata) = True Then
    5. DataSet1.ReadXml(xmldatabasedata)
    6. ToolStripLabel4.Text = "Anzahl Datensätze: " + KontaktBindingSource.Count.ToString()
    7. End If
    8. End Sub


    Hier mal Methoden zum Laden und Speichern deines Dataset

    VB.NET-Quellcode

    1. Private _DataPath As String = "DeinPfadHierRein"
    2. Private _DataFile As New FileInfo(_DataPath & "HierDerNameDerXMLRein.xml")
    3. Public Sub LoadDataSet(ByVal myDS As DataSet)
    4. myDS.Clear()
    5. If _DataFile.Exists Then
    6. myDS.ReadXml(_DataFile.FullName)
    7. End If
    8. End Sub
    9. Public Sub SaveDataSet(ByVal myDS As DataSet)
    10. myDS.WriteXml(_DataFile.FullName)
    11. myDS.AcceptChanges()
    12. End Sub


    Aufruf:
    LoadDataSet(DataSet1) oder SaveDataSet(DataSet1)
    "Hier könnte Ihre Werbung stehen..."

    Hi Micha..

    hier mal der Code von mir.

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    3. Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
    4. Private xmldatabasedata As String = My.Application.Info.DirectoryPath & "\kontakte.xml"
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. ToolStripLabel1.Text = Path.GetDirectoryName(Application.ExecutablePath)
    7. ToolStripLabel2.Text = DateTime.Now.ToLocalTime
    8. ToolStripLabel4.Text = "Anzahl Datensätze: " + KontaktBindingSource.Count.ToString()
    9. If My.Computer.FileSystem.FileExists(xmldatabasedata) = True Then
    10. DataSet1.ReadXml(xmldatabasedata)
    11. End If
    12. End Sub
    13. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    14. Validate()
    15. KontaktBindingSource.EndEdit()
    16. DataSet1.WriteXml(xmldatabasedata)
    17. Refresh()
    18. End Sub
    20. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    22. Try
    23. Select Case MessageBox.Show("Datensatz wirklich löschen?", "Löschen", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    24. Case Windows.Forms.DialogResult.Yes
    25. KontaktBindingSource.RemoveCurrent()
    26. ToolStripLabel4.Text = "Anzahl Datensätze: " + KontaktBindingSource.Count.ToString()
    28. End Select
    29. Catch ex As Exception
    30. MsgBox("Keine Daten zum löschen vorhanden")
    31. End Try
    33. End Sub
    35. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    37. KontaktBindingSource.AddNew()
    38. ToolStripLabel4.Text = "Anzahl Datensätze: " + KontaktBindingSource.Count.ToString()
    39. If VornameTextBox.Text = Nothing Then
    41. VornameTextBox.Focus()
    42. VornameTextBox.BackColor = Color.AliceBlue
    43. Exit Sub
    44. End If
    45. End Sub
    47. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    48. KontaktBindingSource.MoveNext()
    49. End Sub
    51. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    52. KontaktBindingSource.MovePrevious()
    53. End Sub
    55. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    56. KontaktBindingSource.MoveFirst()
    57. End Sub
    59. Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    60. KontaktBindingSource.MoveLast()
    61. End Sub
    63. Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    64. Me.Validate()
    65. KontaktBindingSource.EndEdit()
    66. DataSet1.WriteXml(xmldatabasedata)
    67. Close()
    68. End Sub
    70. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    71. KontaktBindingSource.Filter = String.Format("nachname like '%{0}%' or vorname Like '%{0}%'or telefon Like '%{0}%'or anrede Like '%{0}%'or ort Like '%{0}%'", TextBox1.Text)
    72. End Sub
    73. End Class


    Jetzt weis ich nicht genau was du mit deinem Code meinst.

    VB.NET-Quellcode

    1. Private _DataPath As String = "DeinPfadHierRein"
    2. Private _DataFile As New FileInfo(_DataPath & "HierDerNameDerXMLRein.xml")
    3. Public Sub LoadDataSet(ByVal myDS As DataSet)
    4. myDS.Clear()
    5. If _DataFile.Exists Then
    6. myDS.ReadXml(_DataFile.FullName)
    7. End If
    8. End Sub
    9. Public Sub SaveDataSet(ByVal myDS As DataSet)
    10. myDS.WriteXml(_DataFile.FullName)
    11. myDS.AcceptChanges()
    12. End Sub


    Danke
    Manni

    manni4545 schrieb:

    Jetzt weis ich nicht genau was du mit deinem Code meinst.
    Er wollte dir mit seinem Code nur zeigen, wie er sein Dataset persistiert. Du verwendest den My-Namespace und er macht das über die FileInfo-Klasse...
    Du rufst die Anzahl der Daten schon vor dem Befüllen des Datasets ab - daher ist das Ergebnis immer 0. Schau dir deine Zeilen ab #8 und darunterliegende einmal genau an und vergleiche sie mit dem ersten Codelisting von @MichaHo ...

    Hi,
    wie @VB1963 schon sagte, benutze ich zum Laden und Speichern die FileInfo Klasse.
    Wenn Du öfter mit DataSets arbeitest, bietet es sich an, diese Methoden auszulagern in eine eigene Klasse und dann aufzurufen wenn Du sie brauchst.
    Du benutzt in Deinem Code auch eine Mischung aus .Net und VB6.
    Ich habe Deinen Code mal etwas angepasst:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    3. Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
    4. 'Private xmldatabasedata As String = My.Application.Info.DirectoryPath & "\kontakte.xml"
    5. Private _DataPath As String = Application.StartupPath
    6. Private _DataFile As New FileInfo(_DataPath & "\kontakte.xml")
    8. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. LoadDataSet(DataSet1)
    10. ToolStripLabel1.Text = Path.GetDirectoryName(Application.ExecutablePath)
    11. ToolStripLabel2.Text = DateTime.Now.ToLocalTime
    12. ToolStripLabel4.Text = String.Format("Anzahl Datensätze: {0:0,0}",KontaktBindingSource.Count)
    13. End Sub
    14. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    15. Validate()
    16. KontaktBindingSource.EndEdit()
    17. SaveDataSet(DataSet1)
    18. Refresh()
    19. End Sub
    21. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    22. If MessageBox.Show("Datensatz wirklich löschen?", "Löschen", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
    23. KontaktBindingSource.RemoveCurrent()
    24. ToolStripLabel4.Text = String.Format("Anzahl Datensätze: {0:0,0}",KontaktBindingSource.Count)
    25. Else
    26. MessageBox.Show("Keine Daten zum löschen vorhanden","Fehler...")
    27. End If
    28. End Sub
    30. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    31. KontaktBindingSource.AddNew()
    32. ToolStripLabel4.Text = String.Format("Anzahl Datensätze: {0:0,0}",KontaktBindingSource.Count)
    33. If String.IsNullOrEmpty(VornameTextBox.Text) Then
    34. VornameTextBox.Focus()
    35. VornameTextBox.BackColor = Color.AliceBlue
    36. Return
    37. End If
    38. End Sub
    40. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    41. KontaktBindingSource.MoveNext()
    42. End Sub
    44. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    45. KontaktBindingSource.MovePrevious()
    46. End Sub
    48. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    49. KontaktBindingSource.MoveFirst()
    50. End Sub
    52. Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    53. KontaktBindingSource.MoveLast()
    54. End Sub
    56. Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    57. Me.Validate()
    58. KontaktBindingSource.EndEdit()
    59. SaveDataSet(DataSet1)
    60. Me.Close()
    61. End Sub
    63. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    64. KontaktBindingSource.Filter = String.Format("nachname like '%{0}%' or vorname Like '%{0}%'or telefon Like '%{0}%'or anrede Like '%{0}%'or ort Like '%{0}%'", TextBox1.Text)
    65. End Sub
    67. Public Sub LoadDataSet(ByVal myDS As DataSet)
    68. myDS.Clear()
    69. If _DataFile.Exists Then
    70. myDS.ReadXml(_DataFile.FullName)
    71. End If
    72. End Sub
    73. Public Sub SaveDataSet(ByVal myDS As DataSet)
    74. myDS.WriteXml(_DataFile.FullName)
    75. myDS.AcceptChanges()
    76. End Sub
    77. End Class

    Sicherlich könnte man da noch mehr anpassen... benutzt Du zur Anzeige der Daten ein DataGridView?
    "Hier könnte Ihre Werbung stehen..."

    ja, aber wenn du ein DGV hast, was willst du dann mit Buttons für Vorwärts/Rückwärts?
    Kein User wird das je benutzen, weil Navigation im Datenbestand ist mit einem DGV viel mächtiger: Da kann man zeilenweise vorwärts/rückwärt, seitenweise, und erste/letzte Zeile, und ausserdem mitte Scrollbar - ist ja alles bereits eingebaut.

    Finde die Knöpfe für Vor/Zurück auch nicht sonderlich dolle. Hab doch das Grid zum Navigieren. Übrigens zeigen die Pfeile Erster/Letzter Datensatz in die falsche Richtung ;)
    "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

    Hi,
    also Erster Datensatz und Letzter Datensatz (bitte Icons tauschen) macht jedenfalls sin, wenn man sehr viele Daten hat und im DGV nicht ständig scrollen will.
    Aber Vor/Zurück kannst Du Dir sparen, das macht die Tab Taste im DGV.
    Ansonsten sieht die Form doch recht ansprechend aus...
    "Hier könnte Ihre Werbung stehen..."

    Auch zum Anfang/Ende kann man mit DGV hopsen - [Strg-Pos1], [Strg-End]

    Ich würde die meisten Spalten aus dem DGV entfernen, und nur die signifikanten drinne lassen (Name, Vorname, Telefon). Alles weitere wird doch in der Maske präsentiert - wieso also doppelt moppeln, und das DGV damit überfrachten?
    Dann würde ich das (nun schmale) DGV links an den Rand docken, damit man möglichst viele Zeilen sehen kann.
    Denn die Zeilen sind ja das, woraus der User aussucht, und wenn er viele Zeilen sieht, hat er einen guten Überblick und kann schnell den gesuchten anklicksen (und sieht dann in der Maske alle Details)

Facebook
Telefonspende