Datagridview global select backcolor

  • VB.NET
  • .NET (FX) 4.0

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von michl75.

    Datagridview global select backcolor

    Hallo,

    suche seit über einer Stunde nach einen Artikel den ich mal gefunden habe, wo man global für alle Datagridview die select backcolor farbe ändern konnte. Soweit ich mich erinnern kann, konnte man da so ziemlich alles an Farben festlegen...

    Kennt den zufällig jemand?


    Wäre sehr dankbar wenn mir einer, wenn kennt... den Artikel nennen könnte, danke!

    Gruß Michl

    @michl75 Designer, Spalte hinzufügen, DefaultCellstyle, SelectionBackColor.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    ich hab ein Modul mit einer Methode dafür:

    VB.NET-Quellcode

    1. Public Class ControlStyling
    3. Public Shared Sub StyleControls(frm As Form)
    4. Dim getChilds As Func(Of Control, IEnumerable) = Function(ctl) ctl.Controls '.Controls
    5. For Each ctl In getChilds.All(frm)
    6. Dim grd = TryCast(ctl, DataGridView)
    7. If grd.NotNull Then
    8. Dim tbl = DirectCast(DirectCast(grd.DataSource, BindingSource).List, DataView).Table
    9. For Each dgvCol As DataGridViewColumn In grd.Columns
    10. Dim propName = dgvCol.DataPropertyName
    11. If propName = "" Then Continue For
    12. Dim dataCol = tbl.Columns(propName)
    13. If dataCol.DataType = GetType(Decimal) Then
    14. With dgvCol.DefaultCellStyle
    15. .Alignment = DataGridViewContentAlignment.MiddleRight
    16. .Format = "c"
    17. .Font = New Font("Courier New", If(.Font, If(grd.DefaultCellStyle.Font, grd.Font)).Size)
    18. End With
    19. End If
    20. Next
    21. grd.RowHeadersWidth = 25
    22. grd.Attach.UnFocusedSelectionColor()
    23. grd.CellBorderStyle = DataGridViewCellBorderStyle.None
    24. AddHandler grd.KeyDown, AddressOf DatagridViewBehavior.DefaultValueOnDelete_KeyDown
    25. End If
    26. Dim tb = TryCast(ctl, TextBox)
    27. If tb.NotNull Then
    28. ' man kann hier auch andere Controls stylen, nicht nur DGV
    29. End If
    30. Next
    31. End Sub
    33. End Class
    Hmm - aber GetChilds.All() ist auch wieder eine rekursive Methode, die alle Controls des Forms durchläuft:

    VB.NET-Quellcode

    1. <Extension()> _
    2. Public Function AllChilds(Of T)( _
    3. GetChilds As Func(Of T, IEnumerable), _
    4. Roots As IEnumerable) As IEnumerable(Of T)
    5. Dim Enumerate As Func(Of IEnumerable(Of T), IEnumerable(Of T)) = Nothing
    6. Enumerate = Function(enmbl) enmbl.Concat(enmbl.SelectMany(Function(nd) Enumerate(GetChilds(nd).Cast(Of T))))
    7. Return Enumerate(Roots.Cast(Of T))
    8. End Function
    10. <Extension()> _
    11. Public Function All(Of T)( _
    12. GetChilds As Func(Of T, IEnumerable), Root As T) As IEnumerable(Of T)
    13. 'Root wird in die Enumeration hineingenommen, indem ein es enthaltendes IEnumerable(Of T)
    14. 'geschaffen wird, dessen Kinder ( = nur Root ) rekursiv enumeriert werden
    15. Return GetChilds.AllChilds(New T() {Root})
    16. End Function
    Das ist bischen nervig an meine Helpers, dass alles mit allem zusammenhängt.

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

    @ErfinderDesRades
    das hatte ich zwar so nicht im Sinn bzw. mehr in Erinnerung, aber habe es mir durchgelesen... denke mit einem Modul und auf diese Weise könnte ich eigentlich ja "alle" Voreinstellungen gleich mal einstellen.
    Die Idee gefällt mir sehr gut :) VIELEN DANK!

    Manchmal braucht man einen ordentlichen Ruck oder nen "Bums" auf den Kopf, dann läuft man wieder rund :)

    Nochmal Danke... ich werde mich daran mal probieren und es implementieren

Facebook
Telefonspende