Eine bearbeitbare Projekt-Timeline als DGV erstellen

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

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Gelöschter Benutzer.

    Eine bearbeitbare Projekt-Timeline als DGV erstellen

    Hallo liebe Profis :)

    Ich brauchte mal wieder ein Problem und dachte mir ich versuche mich an einer Timeline - schwubbs war das Problem da :D
    Im Prinzip wollte ich das ganze mit einem DGV lösen - sollte das vollkommen falsch sein habt bitte Nachsicht mit mir und teilt mir einen besseren Weg mit :)

    Um das ganze mal grob zu umreißen - soweit bin ich bisher gekommen:
    • Man kann einen Zeitraum definieren (hab ich mit 2 DateTimePickern gemacht)
    • Die Differenz zwischen den Tagen wird ermittelt (Gesamttage), Wochenenden werden abgezogen (Arbeitstage)
    • Das DGV mit einer Reihe und entsprechend den Gesamttagen Spalten wird gefüllt. Headertext ist immer das Datum, nur am Wochenende steht WE im Header.
    • Im DGV lassen sich mehrere Zellen markieren und einfärben (damit möchte ich die verschiedenen Todo's darstellen)
    • Weitere Reihen lassen sich hinzufügen, falls sich Vorgänge überschneiden.
    • Weitere Tage lassen sich hinzufügen falls sich das Projekt verlängern sollte
    • Mit dem Mausrad lässt sich das DGV zur besseren übersicht bei längeren Timelines Zoomen
    Und hier komme ich nicht weiter:
    • Die letzte Spalte löschen
    • Von markierter Zelle an zb 5 Spalten einfärben (als Alternative anstatt selber zu markieren direkt "Blöcke" füllen - zB ToDo2 dauert immer 5 Tage)
    • Fast die wichtigste Frage :D : Kann man ein so erstelltes DGV überhaupt speichern ? :saint:
    Um sich das ganze besser vorstellen zu können hab ich mal einen Screenshot gemacht. Designtechnisch ists natürlich nicht der Brüller, aber hier gehts ja erstmal nur um Funktionalität ^^
    Links oben Start-Datum, rechts oben Ende-Datum.
    In der mitte die 3 Textfelder 1: Arbeitstage 2: Gesamttage 3: Welcher Todo und somit Farbe ist ausgewählt.
    Links 7 ToDo-Möglichkeiten samt Farben
    Unten das erstellte DGV in das ich bereits reingemalt habe.





    Ich weiß, jetzt werden viele erstmal wieder die Hände über ihrem Kopf zusammenschlagen, aber das ganze befindet sich ja noch in der Bastelphase - das wäre mein Code dazu:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim GesamtTage As Integer
    2. Dim Number As String = 0
    3. Dim addende As String = 0
    5. Private Function GetWorkDays(ByVal StartDate As Date, ByVal EndDate As Date) As Long
    6. Dim Tage As Long = DateAndTime.DateDiff(DateInterval.Day, StartDate, EndDate)
    8. For N As Long = 0 To Tage
    9. If DateAndTime.DateAdd(DateInterval.Day, N, StartDate).DayOfWeek <> DayOfWeek.Saturday And
    10. DateAndTime.DateAdd(DateInterval.Day, N, StartDate).DayOfWeek <> DayOfWeek.Sunday Then
    11. GetWorkDays += 1
    12. End If
    13. Next
    14. End Function
    16. Function ISWeekend(Datum As Date) As Boolean
    17. ISWeekend = (Weekday(Datum) Mod 6 = 1)
    18. End Function
    20. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    21. Panel1.BackColor = Color.Red
    22. Panel2.BackColor = Color.Blue
    23. Panel3.BackColor = Color.Yellow
    24. Panel4.BackColor = Color.Green
    25. Panel5.BackColor = Color.Purple
    26. Panel6.BackColor = Color.Brown
    27. Panel7.BackColor = Color.Orange
    28. End Sub
    30. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles tege_berech.Click
    32. TextBox1.Text = GetWorkDays(DateTimePicker1.Value, DateTimePicker2.Value).ToString
    34. Dim start As DateTime = DateTimePicker1.Value
    35. Dim ende As DateTime = DateTimePicker2.Value
    36. start = Strings.Left(start, 10)
    37. ende = Strings.Left(ende, 10)
    38. GesamtTage = ende.Subtract(start).Days
    39. TextBox3.Text = (GesamtTage.ToString)
    41. End Sub
    43. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles DGV_fill.Click
    45. Dim start As DateTime = DateTimePicker1.Value
    46. Dim ende As DateTime = DateTimePicker2.Value
    47. start = Strings.Left(start, 10)
    48. ende = Strings.Left(ende, 10)
    49. DataGridView1.Columns.Add(1, start)
    51. For i = 0 To GesamtTage - 1
    53. Dim DataDatum As Date
    54. Dim StartDate As String
    55. Dim days As Double
    56. Dim SecondDate As Date
    57. Dim IntervalType As DateInterval
    58. IntervalType = DateInterval.Day
    59. StartDate = start
    60. SecondDate = CDate(StartDate)
    61. Number = Number + 1
    62. days = Val(Number)
    63. DataDatum = DateAdd(IntervalType, days, SecondDate)
    64. DataDatum = Strings.Left(DataDatum, 10)
    66. If ISWeekend(DataDatum) Then
    67. DataGridView1.Columns.Add(1, "Wochenende")
    68. Else
    69. DataGridView1.Columns.Add(1, DataDatum)
    70. End If
    71. Next i
    73. For Each col As DataGridViewColumn In DataGridView1.Columns
    74. col.SortMode = DataGridViewColumnSortMode.NotSortable
    75. Next
    77. End Sub
    79. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles row_add.Click
    80. DataGridView1.Rows.Insert(0, 1)
    81. End Sub
    83. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles colorieren.Click
    85. DataGridView1.CurrentRow.DefaultCellStyle.BackColor = Color.White
    86. For Each cell As DataGridViewCell In DataGridView1.SelectedCells
    87. If TextBox2.Text = "" Then
    88. MessageBox.Show("Bitte Kategorie wählen", "info", MessageBoxButtons.OK, MessageBoxIcon.Error)
    89. Exit Sub
    90. End If
    91. If TextBox2.Text = "ToDo1" Then cell.Style.BackColor = Color.Red
    92. If TextBox2.Text = "ToDo2" Then cell.Style.BackColor = Color.Blue
    93. If TextBox2.Text = "ToDo3" Then cell.Style.BackColor = Color.Yellow
    94. If TextBox2.Text = "ToDo4" Then cell.Style.BackColor = Color.Green
    95. If TextBox2.Text = "ToDo5" Then cell.Style.BackColor = Color.Purple
    96. If TextBox2.Text = "ToDo6" Then cell.Style.BackColor = Color.Brown
    97. If TextBox2.Text = "ToDo7" Then cell.Style.BackColor = Color.Orange
    98. Next
    99. DataGridView1.ClearSelection()
    101. End Sub
    103. Private Sub DataGridView1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseWheel
    104. If My.Computer.Keyboard.CtrlKeyDown Then
    106. Dim newHeight As Int32 = DataGridView1.RowTemplate.Height + (e.Delta / 120) * 2
    107. DataGridView1.RowTemplate.Height = newHeight
    108. For Each row As DataGridViewRow In DataGridView1.Rows
    109. row.Height = newHeight
    110. Next
    111. For Each col As DataGridViewColumn In DataGridView1.Columns
    112. col.Width += (e.Delta / 120) * 40
    113. Next
    114. Dim newFont As Font
    115. Try
    116. newFont = New System.Drawing.Font(Me.DataGridView1.Font.FontFamily, Me.DataGridView1.Font.Size + (e.Delta / 120) * 1, Me.DataGridView1.Font.Style, Me.DataGridView1.Font.Unit)
    117. Catch ex As Exception
    118. newFont = Me.DataGridView1.Font
    119. End Try
    121. Me.DataGridView1.Font = newFont
    123. DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
    124. DataGridView1.AutoResizeColumns()
    126. End If
    127. End Sub
    129. Private Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click
    130. TextBox2.Text = "ToDo1"
    131. End Sub
    132. Private Sub Panel2_Click(sender As Object, e As EventArgs) Handles Panel2.Click
    133. TextBox2.Text = "ToDo2"
    134. End Sub
    135. Private Sub Panel3_Click(sender As Object, e As EventArgs) Handles Panel3.Click
    136. TextBox2.Text = "ToDo3"
    137. End Sub
    138. Private Sub Panel4_Click(sender As Object, e As EventArgs) Handles Panel4.Click
    139. TextBox2.Text = "ToDo4"
    140. End Sub
    141. Private Sub Panel5_Click(sender As Object, e As EventArgs) Handles Panel5.Click
    142. TextBox2.Text = "ToDo5"
    143. End Sub
    144. Private Sub Panel6_Click(sender As Object, e As EventArgs) Handles Panel6.Click
    145. TextBox2.Text = "ToDo6"
    146. End Sub
    147. Private Sub Panel7_Click(sender As Object, e As EventArgs) Handles Panel7.Click
    148. TextBox2.Text = "ToDo7"
    149. End Sub
    151. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles tage_add.Click
    153. Dim ende As DateTime = DateTimePicker2.Value
    154. addende = addende + 1
    155. ende = Strings.Left(ende, 10)
    156. ende = ende.AddDays(addende)
    158. Dim Column_X As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn()
    159. Column_X.HeaderText = ende
    160. DataGridView1.Columns.Add(Column_X)
    161. Dim txt As String = DataGridView1.Columns.Item(0).HeaderText
    163. End Sub




    LG und schonmal Danke für kommenden Input,
    DDD
    Bilder

    • 1.PNG

      69,22 kB, 1.149×873, 459 mal angesehen

    Hi!

    Dim Number As String = 0
    Warum nimmste da den String und kein Integer?
    Desweitern würde ich dir raten ein Dataset, mit DataTable zu nutzen, damit ist es um Welten einfacher deine Daten zu speichern.
    Somit beantwortet sich auch:
    Kann man ein so erstelltes DGV überhaupt speichern ?


    Die Lösung hierzu:
    Die letzte Spalte löschen

    wäre dann auch mit dem DataSet + zugehörigem DataTable abgehackt.
    Sprich: Daten aus dem Dataset löschen DGV einfach aktualiseren und feddich

Facebook
Telefonspende