ProgressBar in DataGridView Zelle einfügen

  • VB.NET

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

    ProgressBar in DataGridView Zelle einfügen

    Hallo liebe Community,

    ich hab vor einen Downloader zu erstellen. Do nun habe ich die Auflistung der jeweiligen Links mit Hilfe des DataGridView erstellt.
    Jetzt habe ich eine Frage:
    Mit welchem Befehl, kann ich ihm denn sagen, dass er in die Zellen der Spalte XY immer ProgressBars einfügen soll und diese natürlich auch irgendwie nummeriert/benannt sein müssen, da man ihnen ja den jeweiligen Valuewert sagen muss.

    Irgendwie muss das ja möglich sein.

    MfG, lace

    omg ich kann doch nicht für jede zelle so einen riesigen einfügen. ich steig da außerdem null durch.
    gibts jemanden der etwas merh zeit hat und mir einen kurzen und knackigen code zeigen kann?
    ich will doch nur eine progressbar in jede zelle in der spalte xy und nicht adobe photoshop programmieren -.-

    EDIT:

    ich hab jetz sowas gebastelt aber es gibt mir nene error:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    4. Dim col As New ProgressColumn
    5. DataGridView1.Columns.Add(col)
    6. DataGridView1.AllowUserToAddRows = False
    7. DataGridView1.RowCount = 5
    8. Dim x As Integer = 1
    9. For Each row As DataGridViewRow In DataGridView1.Rows
    10. row.Cells(0).Value = x * 20
    11. x += 1
    12. Next
    13. End Sub
    14. End Class



    VB.NET-Quellcode

    1. Public Class ProgressColumn
    2. Inherits DataGridViewColumn
    3. Public Sub New()
    4. MyBase.New(New ProgressCell())
    5. End Sub
    7. Public Overrides Property CellTemplate() As DataGridViewCell
    8. Get
    9. Return MyBase.CellTemplate
    10. End Get
    11. Set(ByVal Value As DataGridViewCell)
    12. ' Ensure that the cell used for the template is a ProgressCell.
    13. If Value IsNot Nothing And Not TypeOf (Value) Is ProgressCell Then
    14. Throw New InvalidCastException("Must be a ProgressCell")
    15. End If
    16. MyBase.CellTemplate = Value
    17. End Set
    18. End Property
    19. End Class
    21. Public Class ProgressCell
    22. Inherits DataGridViewImageCell
    23. Protected Overrides Function GetFormattedValue(ByVal value As Object, ByVal rowIndex As Integer, ByRef cellStyle As System.Windows.Forms.DataGridViewCellStyle, ByVal valueTypeConverter As System.ComponentModel.TypeConverter, ByVal formattedValueTypeConverter As System.ComponentModel.TypeConverter, ByVal context As System.Windows.Forms.DataGridViewDataErrorContexts) As Object
    24. ' Create bitmap.
    25. Dim bmp As Bitmap = New Bitmap(Me.Size.Width, Me.Size.Height)
    27. Using g As Graphics = Graphics.FromImage(bmp)
    29. ' Percentage.
    30. Dim percentage As Double = 10
    31. Double.TryParse(Me.Value.ToString(), percentage)
    32. Dim text As String = percentage.ToString() + " %"
    34. ' Get width and height of text.
    35. Dim f As Font = New Font("Verdana", 10, FontStyle.Regular)
    36. Dim w As Integer = CType(g.MeasureString(text, f).Width, Integer)
    37. Dim h As Integer = CType(g.MeasureString(text, f).Height, Integer)
    39. ' Draw pile.
    40. g.DrawRectangle(Pens.Black, 2, 2, Me.Size.Width - 6, Me.Size.Height - 6)
    41. g.FillRectangle(Brushes.Blue, 3, 3, CInt((Me.Size.Width - 6) * percentage / 100), CInt(Me.Size.Height - 7))
    43. Dim rect As RectangleF = New RectangleF(0, 0, bmp.Width, bmp.Height)
    44. Dim sf As StringFormat = New StringFormat()
    45. sf.Alignment = StringAlignment.Center
    46. g.DrawString(text, f, Brushes.Red, rect, sf)
    47. End Using
    49. Return bmp
    50. End Function
    53. End Class


    für Zeile 31 in der unteren box hier, zeigt er mir folgenden error den ich nich kapier:

    Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „lace“ ()

    VB.NET-Quellcode

    1. Public Class Form2
    3. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    4. DataGridView1.RowCount = 6
    5. For y = 0 To 5
    6. DataGridView1(0, y).Value = y * 20
    7. Next
    8. End Sub
    10. Private Sub DataGridView1_CellPainting(ByVal sender As Object, ByVal e As DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
    11. If e.ColumnIndex <> 0 OrElse e.RowIndex < 0 Then Return
    12. Dim mask = DataGridViewPaintParts.All Xor DataGridViewPaintParts.ContentBackground _
    13. Or DataGridViewPaintParts.ContentForeground Or DataGridViewPaintParts.SelectionBackground
    14. e.Paint(e.CellBounds, e.PaintParts And mask)
    15. e.Handled = True
    16. Dim rct = e.CellBounds
    17. rct.Inflate(-3, -3)
    18. rct.Width = rct.Width * CInt(DataGridView1(0, e.RowIndex).Value) \ 100
    19. e.Graphics.FillRectangle(Brushes.YellowGreen, rct)
    20. End Sub
    22. End Class

Facebook