Progressbar im DatagridView - benutzerdefiniertes Databinding

    • VB.NET

      Progressbar im DatagridView - benutzerdefiniertes Databinding

      Hier ein bischen Code, welcher 2 sehr verschiedene Themen betrifft: Zum einen ein benutzerdefiniertes Databinding, zum andern ein besonderes OwnerDrawing im DatagridView: in eine Spalte wird eine Progressbar mit Prozent-Anzeige gezeichnet.

      Das Databinding
      Hier liegt ein EinzelblattView vor, d.h.: es gibt ein gebundenes ListenControl (das DatagridView) und mindestens ein EinzelControl (die Trackbar) ist an dieselbe Datasource gebunden.
      Durch das binden an dieselbe Datasource synchronisieren die Controls sich gegenseitig - wenn man also per Trackbar was eingibt, verändert sich der Wert auch im Grid, und umgekehrt.
      Allerdings habe ich die Eingabe per Grid deaktiviert, denn dort könnten ansonsten auch Werte > 1 eingegeben werden, oder sonstwas, was die Progressbar-Cell nicht darstellen kann. Stichwort Benutzerführung ;)
      Das Binding wirft zwei Probleme auf:
      1. Die Value-Eigenschaft der Trackbar ist vom Typ Integer - im Dataset ist die zu bindende Spalte aber vom Typ Single (Prozent-Werte zw. 0 und 1)
      2. Das Grid aktualisiert sich nicht von selbst - da muß nachgeholfen werden

      Initialisierung des Bindings

      VB.NET-Quellcode

      1. Private WithEvents _Bnd As Binding
      3. Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
      4. _Bnd = TrackBar1.DataBindings.Add("Value", ADataBindingSource, "Numb", _
      5. False, DataSourceUpdateMode.OnPropertyChanged)
      6. _Saver.Load(PrgDts)
      7. End Sub
      Ich habe hier das Binding mal nicht im Designer erstellt, sondern im Form_Load. Erst nach Erstellung des Bindings wird das Dataset gefüllt (_Saver.Load()) - und über das Binding stellt sich dann auch die Trackbar richtig ein.
      Besonderheit ist, dass das Binding als WithEvents-Variable klassenweit verfügbar ist. Wir verwenden nämlich die Events, um Trackbar.Value in einen Datenwert zw. 0.0 und 1.0 zu konvertieren und umgekehrt. Ansonsten würde die Trackbar ja viel zu hohe Werte in die DataSource eingeben, und viel zu niedrige bekommen (abgesehen davon, dass Integer und Single garnet zusammenpassen)
      Also Konvertierung des Datenwertes in einen für die Trackbar tauglichen Wert (Formatting):

      VB.NET-Quellcode

      1. Private Sub _Bnd_Format(ByVal sender As Object, ByVal e As ConvertEventArgs) Handles _Bnd.Format
      2. e.Value = CInt(DirectCast(e.Value, Single) * TrackBar1.Maximum)
      3. End Sub
      Der Datenwert - ein Single zw. 0.0 und 1.0 wird mit Trackbar.Maximum multipliziert - feddich.

      Konvertierung des Control-Wertes in einen für die Datasource tauglichen Wert (Parsing):

      VB.NET-Quellcode

      1. Private Sub _Bnd_Parse(ByVal sender As Object, ByVal e As ConvertEventArgs) Handles _Bnd.Parse
      2. e.Value = CSng(DirectCast(e.Value, Integer) / TrackBar1.Maximum)
      3. End Sub
      Der Trackbar-Wert - ein Integer zw. 0 und Trackbar.Maximum wird durch Trackbar.Maximum geteilt - feddich.

      Datenmäßig ist nun alles in Butter - das DatagridView (dessen Bindung im Designer eingestellt werden konnte) ist nun mit der Trackbar synchronisiert - trotzdem zickt die Darstellung noch rum - das DGV wird nicht sofort refresht.
      Das liegt nämlich daran, dass die BindingSource auf ein besonderes "Eingabe beendet" - Kommando wartet, bevor sie einen Wert in die DataTable schreibt - müssen wir ihr leider explizit geben:

      VB.NET-Quellcode

      1. Private Sub _Bnd_Parse(ByVal sender As Object, ByVal e As ConvertEventArgs) _
      2. Handles _Bnd.Parse
      3. e.Value = CSng(DirectCast(e.Value, Integer) / TrackBar1.Maximum)
      4. ADataBindingSource.EndEdit()
      5. End Sub

      Noch einmal das Databinding-Zeugs in seiner Gesamtheit

      VB.NET-Quellcode

      1. Private _Saver As New DataSetSaver(Me, "..\..\prgDts.xml")
      2. Private WithEvents _Bnd As Binding
      4. Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
      5. _Bnd = TrackBar1.DataBindings.Add("Value", ADataBindingSource, "Numb", _
      6. False, DataSourceUpdateMode.OnPropertyChanged)
      7. _Saver.Load(PrgDts)
      8. End Sub
      10. Private Sub _Bnd_Format(ByVal sender As Object, ByVal e As ConvertEventArgs) Handles _Bnd.Format
      11. e.Value = CInt(DirectCast(e.Value, Single) * TrackBar1.Maximum)
      12. End Sub
      14. Private Sub _Bnd_Parse(ByVal sender As Object, ByVal e As ConvertEventArgs) Handles _Bnd.Parse
      15. e.Value = CSng(DirectCast(e.Value, Integer) / TrackBar1.Maximum)
      16. ADataBindingSource.EndEdit()
      17. End Sub

      OwnerDrawing - Progressbar
      Das Datagridview_CellPainting - Event ist bisserl schlecht designed, sodaß man schon recht kompliziert filtern muß, bevor man ühaupt anfangen kann, die gewünschte Zelle zu zeichnen.
      Daher habich eine Wrapper-Klasse gemacht (DGVDataPaintEventArgs(Of T)), die bereits einige Vor-Filterungen durchführt, und auch noch praktischere Zeichen-Funktionen mitbringt. Die Klasse liegt bei, das Tut zeigt nur die Verwendung:

      VB.NET-Quellcode

      1. Imports DgvProgressCell.PrgDts ' Klassen des typisierten Datasets importieren
      3. Public Class frmDgvProgressCell
      5. Private WithEvents _Painter As New DGVDataPaintEventArgs(Of aDataRow)
      7. Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
      8. _Painter.SetGrid(ADataDataGridView)
      9. End Sub
      11. Private Sub _Painter_Painting(ByVal e As DGVDataPaintEventArgs(Of PrgDts.aDataRow)) Handles _Painter.Painting
      12. If e.Column IsNot PercentColumn Then Return
      13. e.PaintBackground()
      14. Dim rct = e.CellBounds
      15. rct.Location += New Size(2, 2)
      16. rct.Size -= New Size(5, 5)
      17. Dim rctF As RectangleF = rct
      18. rctF.Width *= Math.Min(1.0F, e.Row.Numb)
      19. e.Graphics.FillRectangle(Brushes.LightGreen, rctF)
      20. rctF.X += rctF.Width
      21. rctF.Width = rct.Width - rctF.Width
      22. e.Graphics.FillRectangle(Brushes.WhiteSmoke, rctF)
      23. With PercentColumn.DefaultCellStyle
      24. TextRenderer.DrawText( _
      25. e.Graphics, String.Format("{0:N0}%", e.Row.Numb * 100), _
      26. .Font, rct, Color.Gray)
      27. End With
      28. e.Handled = True
      29. End Sub
      31. End Class
      Erläuterung:
      Zunächst wird nix gepaintet, wenn e.Column nicht die PercentColumn ist (so habe ich im Designer die DGV-Column genannt, in der ich die Progressbar malen will)
      Dann wird der Standard-Hintergrund gemalt.
      Dann wird ein Rectangle innerhalb der Zelle ermittelt, welches nach oben und links einen Abstand von 2 Pixeln hat, und nach untenrechts 3 Pixel.
      Ein ebensogroßes RectangleF wird gebildet - der Unterschied ist, dass RectangleF seine Abmaße in Single bestimmt, nicht in Integer wie Rectangle. Dessen Breite wird durch Multiplikation mit dem Datenwert (der ja zw. 0.0 und 1.0 liegt) verkleinert.
      Jo, dieses RectangleF wird dann als Fortschrittsbalken gezeichnet - in LightGreen.
      Aber um den Rest der Progressbar auch zu zeichnen (also wo der Fortschrittsbalken nicht ist), wird das RectangleF nach rechts verschoben, und in der Breite so angepasst, dasses genau den Rest der PB darstellt. Und dann natürlich zeichnen - in WhiteSmoke.
      Dann wollemer den Wert aber auch als Prozentzahl formatiert reinmalen - in Gray, wenns recht ist ;).
      Ganz zum Abschluß wird dem Grid noch mitgeteilt, dasses diese Zelle nicht mehr malen muß, denn e.Handled = True

      Das komplette Form, mit Databinding und Ownerdrawing (und zusätzlich mit Abspeichern)

      VB.NET-Quellcode

      1. Imports System.IO
      2. Imports DgvProgressCell.PrgDts
      4. Public Class frmDgvProgressCell
      6. Private _Saver As New DataSetSaver(Me, "..\..\prgDts.xml")
      7. Private WithEvents _Painter As New DGVDataPaintEventArgs(Of aDataRow)
      8. Private WithEvents _Bnd As Binding
      10. Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
      11. _Painter.SetGrid(ADataDataGridView)
      12. _Bnd = TrackBar1.DataBindings.Add("Value", ADataBindingSource, "Numb", _
      13. False, DataSourceUpdateMode.OnPropertyChanged)
      14. _Saver.Load(PrgDts)
      15. End Sub
      17. Private Sub _Bnd_Format(ByVal sender As Object, ByVal e As ConvertEventArgs) Handles _Bnd.Format
      18. e.Value = CInt(DirectCast(e.Value, Single) * TrackBar1.Maximum)
      19. End Sub
      21. Private Sub _Bnd_Parse(ByVal sender As Object, ByVal e As ConvertEventArgs) Handles _Bnd.Parse
      22. e.Value = CSng(DirectCast(e.Value, Integer) / TrackBar1.Maximum)
      23. ADataBindingSource.EndEdit()
      24. End Sub
      26. Private Sub MenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) _
      27. Handles ReloadToolStripMenuItem.Click, SaveToolStripMenuItem.Click, btAdd.Click
      28. Select Case True
      29. Case sender Is ReloadToolStripMenuItem
      30. _Saver.Load(PrgDts)
      31. Case sender Is SaveToolStripMenuItem
      32. _Saver.Save(PrgDts)
      33. Case sender Is btAdd
      34. ADataBindingSource.AddNew()
      35. End Select
      36. End Sub
      38. Private Sub Form_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
      39. _Saver.HandleFormClosing(PrgDts, e)
      40. End Sub
      42. Private Sub _Painter_Painting(ByVal e As DGVDataPaintEventArgs(Of PrgDts.aDataRow)) Handles _Painter.Painting
      43. If e.Column IsNot PercentColumn Then Return
      44. e.PaintBackground()
      45. Dim rct = e.CellBounds
      46. rct.Location += New Size(2, 2)
      47. rct.Size -= New Size(5, 5)
      48. Dim rctF As RectangleF = rct
      49. rctF.Width *= Math.Min(1.0F, e.Row.Numb)
      50. e.Graphics.FillRectangle(Brushes.LightGreen, rctF)
      51. rctF.X += rctF.Width
      52. rctF.Width = rct.Width - rctF.Width
      53. e.Graphics.FillRectangle(Brushes.WhiteSmoke, rctF)
      54. With PercentColumn.DefaultCellStyle
      55. TextRenderer.DrawText( _
      56. e.Graphics, String.Format("{0:N0}%", e.Row.Numb * 100), _
      57. .Font, rct, Color.Gray)
      58. End With
      59. e.Handled = True
      60. End Sub
      62. End Class

      Und noch Bildchen:



      Letzter Link
      Steuerelemente mit integrierter Ownerdrawing-Unterstützung - erläutert das Konzept grundlegender - gilt ja auch für andere Controls
      .
      Dateien

      Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Facebook
    Telefonspende