Schieberegler DGV Farbe ändern

  • VB.NET

Es gibt 51 Antworten in diesem Thema. Der letzte Beitrag () ist von Peter329.

    @-Franky- Genau.
    @Peter329 Hier ist alles ohne Extra-Aufwand drinne:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Imaging
    2. Imports System.Runtime.InteropServices
    4. Friend Class ColorizedDGV : Inherits DataGridView
    5. Private Const WM_CTLCOLORSCROLLBAR As Integer = &H137
    7. <DllImport("gdi32.dll", EntryPoint:="CreatePatternBrush")> Private Shared Function CreatePatternBrush(ByVal hBitmap As IntPtr) As IntPtr : End Function
    8. <DllImport("gdi32.dll", EntryPoint:="CreateSolidBrush")> Private Shared Function CreateSolidBrush(ByVal crColor As Integer) As IntPtr : End Function
    9. <DllImport("gdi32.dll", EntryPoint:="DeleteObject")> Private Shared Function DeleteObject(ByVal hObject As IntPtr) As Integer : End Function
    11. Private ReadOnly hBmp As IntPtr = IntPtr.Zero
    12. Private ReadOnly hBrush As IntPtr = IntPtr.Zero
    13. Private ReadOnly hBmpBrush As IntPtr = IntPtr.Zero
    14. Private ReadOnly Bmp As Bitmap = Nothing
    16. Public Sub New()
    17. hBrush = CreateSolidBrush(&HFF00FF&)
    18. Bmp = New Bitmap(4, 4, PixelFormat.Format24bppRgb)
    19. Using G As Graphics = Graphics.FromImage(Bmp)
    20. G.FillRectangle(Brushes.Yellow, 0, 0, 2, 2)
    21. G.FillRectangle(Brushes.Red, 2, 2, 2, 2)
    22. End Using
    24. hBmp = Bmp.GetHbitmap
    25. hBmpBrush = CreatePatternBrush(hBmp)
    26. End Sub
    28. Protected Overrides Sub WndProc(ByRef m As Message)
    29. If m.Msg = WM_CTLCOLORSCROLLBAR Then
    30. Select Case m.LParam
    31. Case Controls(0).Handle '<-- das 1. Control im DGV ist die horizontale ScrollBar
    32. If Not Equals(hBrush, IntPtr.Zero) Then
    33. m.Result = hBrush
    34. End If
    35. Return
    36. Case Controls(1).Handle '<-- das 2. Control im DGV ist die vertikale ScrollBar
    37. If Not Equals(hBrush, IntPtr.Zero) Then
    38. m.Result = hBrush
    39. End If
    40. Return
    41. End Select
    42. End If
    43. MyBase.WndProc(m)
    44. End Sub
    46. Protected Overrides Sub Dispose(disposing As Boolean)
    47. If Not Equals(hBrush, IntPtr.Zero) Then DeleteObject(hBrush)
    48. If Not Equals(hBmpBrush, IntPtr.Zero) Then DeleteObject(hBmpBrush)
    49. If Not Equals(hBmp, IntPtr.Zero) Then DeleteObject(hBmp)
    50. Bmp.Dispose()
    52. MyBase.Dispose(disposing)
    53. End Sub
    54. End Class
    @'BitBrösel' Eine DLL lohnt sich erst bei mehreren Controls.
    Hier ist das kompakt in einer einzigen Datei, die lässt sich leicht überall einfügen.
    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!

    Okie dokie ... damit ist die Sache final gelöst. Und die korrekte Lösung steht auch hier im Thread. Ich bin mir ziemlich sicher, da werden sich noch sehr viele andere VB Programmierer drüber freuen. :)

    Ganz herzlichen Dank an alle Ratgeber, ohne deren Hilfe ich die Kiste nicht hinbekommen hätte. Daumen hoch und Problem gelöst.

    LG
    Peter

    @Peter329

    Ohne zusätzliche Klasse, man man, da musste ich jetzt aber auch überlegen und probieren. Muss man aber noch aufräumen, also den Brush wieder freigeben. Ich habe ja bereits erwähnt den Brush im Konstruktor zu erstellen, -Franky- hatte das auch erwähnt, aber auch Dispose zum aufräumen, solltest du unbedingt machen.

    Also Perter329, ich täte die abgeleitete DGV vorziehen, aber dein Ding, so geht es ohne:

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Public Class Form1
    4. Const GWL_WNDPROC As Integer = -4
    5. Const WM_CTLCOLORSCROLLBAR As Integer = &H137
    7. <System.Runtime.InteropServices.DllImport("user32.dll")>
    8. Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, nIndex As Integer, ByVal dwNewLong As MyWindowProc) As IntPtr
    9. End Function
    11. <DllImport("gdi32.dll", EntryPoint:="CreateSolidBrush")>
    12. Private Shared Function CreateSolidBrush(ByVal crColor As Integer) As IntPtr
    13. End Function
    15. <DllImport("user32.dll")>
    16. Private Shared Function CallWindowProc(ByVal wndproc As IntPtr, ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    17. End Function
    19. <DllImport("gdi32.dll")>
    20. Private Shared Function DeleteObject(ByVal hObject As IntPtr) As Integer
    21. End Function
    23. Private Delegate Function MyWindowProc(ByVal hWnd As IntPtr, ByVal uMsg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    25. Private WindowProc As MyWindowProc
    26. Private GDIBrush As IntPtr = IntPtr.Zero
    27. Private ProcHandle As IntPtr
    29. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    30. For i = 0 To 100
    31. DataGridView1.Rows.Add(i.ToString())
    32. Next
    33. GDIBrush = CreateSolidBrush(&HFF)
    34. WindowProc = New MyWindowProc(AddressOf DGV_WindowProc)
    35. ProcHandle = SetWindowLong(DataGridView1.Handle, GWL_WNDPROC, WindowProc)
    36. End Sub
    38. Private Function DGV_WindowProc(ByVal hWnd As IntPtr, ByVal uMsg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    39. If uMsg = WM_CTLCOLORSCROLLBAR Then
    40. Return GDIBrush
    41. End If
    42. Return CallWindowProc(ProcHandle, hWnd, uMsg, wParam, lParam)
    43. End Function
    45. Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
    46. DeleteObject(GDIBrush)
    47. End Sub
    49. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BitBrösel“ ()

    @BitBrösel Wo wird Dein GDIBrush aufgeräumt?
    Da üblicherweise ein Form-Code etwas umfangreicher ist, sehe ich in Deinem Code keinerlei Vorteil gegenüber einer separaten Klasse.
    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 ma RFGs Lösung an einigen Stellen vereinfacht, und den Dispose-Pattern korrigiert:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Imaging
    2. Imports System.Runtime.InteropServices
    4. Friend Class ColorizedDGV : Inherits DataGridView
    5. Private Const WM_CTLCOLORSCROLLBAR As Integer = &H137
    7. <DllImport("gdi32.dll", EntryPoint:="CreatePatternBrush")> Private Shared Function CreatePatternBrush(ByVal hBitmap As IntPtr) As IntPtr : End Function
    8. <DllImport("gdi32.dll", EntryPoint:="CreateSolidBrush")> Private Shared Function CreateSolidBrush(ByVal crColor As Integer) As IntPtr : End Function
    9. <DllImport("gdi32.dll", EntryPoint:="DeleteObject")> Private Shared Function DeleteObject(ByVal hObject As IntPtr) As Integer : End Function
    11. Private ReadOnly hBmp As IntPtr = IntPtr.Zero
    12. Private ReadOnly hBrush As IntPtr = IntPtr.Zero
    13. Private ReadOnly hBmpBrush As IntPtr = IntPtr.Zero
    14. Private Bmp As Bitmap = Nothing
    16. Public Sub New()
    17. hBrush = CreateSolidBrush(&HFF00FF&)
    18. Bmp = New Bitmap(4, 4, PixelFormat.Format24bppRgb)
    19. Using G As Graphics = Graphics.FromImage(Bmp)
    20. G.FillRectangle(Brushes.Yellow, 0, 0, 2, 2)
    21. G.FillRectangle(Brushes.Red, 2, 2, 2, 2)
    22. End Using
    24. hBmp = Bmp.GetHbitmap
    25. hBmpBrush = CreatePatternBrush(hBmp)
    26. End Sub
    28. Protected Overrides Sub WndProc(ByRef m As Message)
    29. If m.Msg = WM_CTLCOLORSCROLLBAR Then
    30. Select Case m.LParam
    31. Case Controls(0).Handle, Controls(1).Handle '<-- das 1. Control im DGV ist die horizontale ScrollBar '<-- das 2. Control im DGV ist die vertikale ScrollBar
    32. m.Result = hBrush
    33. Return
    34. End Select
    35. End If
    36. MyBase.WndProc(m)
    37. End Sub
    39. Protected Overrides Sub Dispose(disposing As Boolean)
    40. If Bmp Is Nothing Then Return ' mehrfach-Aufruf abwehren
    41. For Each hwnd In {hBrush, hBmpBrush, hBmp} : DeleteObject(hwnd) : Next ' unmanaged Resources freigeben
    42. If disposing Then Bmp.Dispose() ' managed Resources freigeben
    43. Bmp = Nothing
    44. MyBase.Dispose(disposing)
    45. End Sub
    46. End Class
    aber gibt noch mehr Fragen: Wozu sind eiglich Bmp und hBmpBrush ühaupt gut? Kann man den Select Case nicht ganz weglassen, und bei m.Msg = WM_CTLCOLORSCROLLBAR immer hBrush ins Result schreiben?


    BitBrösel schrieb:

    Ohne zusätzliche Klasse, man man..., ich täte die abgeleitete DGV vorziehen, aber dein Ding...
    Das hat natürlich nur Sinn, wenn man die Logik in einem Behavior ansiedelt, was mit einer Zeile zu- (und weg-?)schaltbar ist.
    Das ganze Gedöhns in jeder Form neu aufschreiben wäre ja Irrsinn.
    Übrigens heisst dieses Verfahren mit SetWindowLong(), CallWindowProc() "Subclassing".
    Und habich immer schlechte Erfahrungen mit gemacht, wenn ich debuggen wollte, mit Haltepunkt und so.
    Also auch wenn ich an ganz anderer Stelle debugt hab, fuhr da gerne mal son WinApi-Calllback dazwischen und das VS flog als ganzes raus.

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

    Da muss ich das korrigierte Dispose-Pattern auch noch mal korrigieren:

    VB.NET-Quellcode

    1. Protected Overrides Sub Dispose(disposing As Boolean)
    2. If Bmp Is Nothing Then Return ' mehrfach-Aufruf abwehren
    3. For Each hwnd In {hBrush, hBmpBrush, hBmp} : DeleteObject(hwnd) : Next ' unmanaged Resources freigeben
    4. If disposing Then
    5. Bmp.Dispose() ' managed Resources freigeben
    6. Bmp = Nothing
    7. End If
    8. MyBase.Dispose(disposing)
    9. End Sub
    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!

    @BitBrösel

    Wow ... das ist ja genau das was ich gesucht hatte ! Damit kann ich den Hintergrund der DGV Schieberegler einfärben, OHNE die DGV durch eine "Colorized DGV" zu ersetzen ! Ich hab den Code ein bissl ergänzt um ZWEI DGVs zu behandeln. Ich hoffe, dass ich deine Routine richtig verstanden habe und nicht zuviel Unsinn verzapft habe.

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. Const GWL_WNDPROC As Integer = -4
    5. Const WM_CTLCOLORSCROLLBAR As Integer = &H137
    6. <DllImport("user32.dll")>
    7. Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, nIndex As Integer, ByVal dwNewLong As MyWindowProc) As IntPtr
    8. End Function
    9. <DllImport("gdi32.dll", EntryPoint:="CreateSolidBrush")>
    10. Private Shared Function CreateSolidBrush(ByVal crColor As Integer) As IntPtr
    11. End Function
    12. <DllImport("user32.dll")>
    13. Private Shared Function CallWindowProc(ByVal wndproc As IntPtr, ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    14. End Function
    15. <DllImport("gdi32.dll")>
    16. Private Shared Function DeleteObject(ByVal hObject As IntPtr) As Integer
    17. End Function
    19. Private Delegate Function MyWindowProc(ByVal hWnd As IntPtr, ByVal uMsg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    20. Private GDIBrush As IntPtr = IntPtr.Zero
    21. Private WindowProc1 As MyWindowProc
    22. Private ProcHandle1 As IntPtr
    23. Private WindowProc2 As MyWindowProc
    24. Private ProcHandle2 As IntPtr
    26. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    27. For i = 0 To 100
    28. DataGridView1.Rows.Add(i.ToString(), "A", "B")
    29. DataGridView2.Rows.Add(i.ToString(), "C", "D")
    30. Next
    31. GDIBrush = CreateSolidBrush(&H4010)
    32. WindowProc1 = New MyWindowProc(AddressOf DGV_WindowProc1)
    33. ProcHandle1 = SetWindowLong(DataGridView1.Handle, GWL_WNDPROC, WindowProc1)
    34. WindowProc2 = New MyWindowProc(AddressOf DGV_WindowProc2)
    35. ProcHandle2 = SetWindowLong(DataGridView2.Handle, GWL_WNDPROC, WindowProc2)
    36. End Sub
    38. Private Function DGV_WindowProc1(ByVal hWnd As IntPtr, ByVal uMsg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    39. If uMsg = WM_CTLCOLORSCROLLBAR Then
    40. Return GDIBrush
    41. End If
    42. Return CallWindowProc(ProcHandle1, hWnd, uMsg, wParam, lParam)
    43. End Function
    45. Private Function DGV_WindowProc2(ByVal hWnd As IntPtr, ByVal uMsg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    46. If uMsg = WM_CTLCOLORSCROLLBAR Then
    47. Return GDIBrush
    48. End If
    49. Return CallWindowProc(ProcHandle2, hWnd, uMsg, wParam, lParam)
    50. End Function
    52. Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
    53. DeleteObject(GDIBrush)
    54. End Sub
    56. End Class


    @All

    Warum ist das so wichtig für mich, OHNE die Ersetzung der DGV auszukommen? Na sehr einfach: ich habe KEIN Problem damit eine Klassendefinition für die "Colorized DGV" in ein Projekt hineinzukopieren. Das ist ruck zuck erledigt. Aber ....

    .... aber das Ersetzen der "DGV" durch eine gleichartige "Colorized DGV" ist u.U. ein "abendfüllendes" Vorhaben ! Ich muss die Eigenschaften der DGV übernehmen (Size, Back/Foreground Colors, SelectionMode, DefaultCellStyle, etc. etc.) und dann muss ich möglicherweise ein Dutzend Spalten kopieren (Header, Designname, ReadOnly, Alignment, Format, SortMode, Width, etc. etc.) Für EINE DGV geht das ja gerade noch ... aber im dümmsten Fall sind das DUTZENDE von DGVs im Projekt ... Und dann hört der Spaß endgültig auf !

    Und das Ersetzen der Hintergrundfarbe ist für einige meiner DGVs eigentlich unerlässlich - mein Dictionary hat Tausende von Einträgen, mein HexEditor kann Files bis zu 2 GB verarbeiten, da habe ich mehr als 100.000 Segmente. Wenn der Schieberegeler in diesen Fällen nicht gut sichtbar ist, dann ist das Arbeiten damit sehr erschwert ! Meist nutze ich das Mouse-Wheel, um zu scrollen. Die Navigation mit dem Mouse-Wheel ist bei sehr großem Datenvolumen aber keine wirkliche Option !

    Deshalb bin ich von @BitBrösel's Lösung begeistert ! Recht herzlichen Dank für deine Mühe, du kennst dich in der Materie offensichtlich hervorragend aus !

    LG
    Peter

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

    @Peter329
    Weil ich gerade langeweile hatte. ;)
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Option Strict On
    3. Option Explicit On
    5. Imports System.Runtime.InteropServices
    7. Public Class Form1
    8. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    10. ColorizedDGV1.ScrollBarColor = Color.BlueViolet
    12. Dim Data = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    13. For k = 1 To 10
    14. For i = 0 To Data.Length - 1
    15. Dim digit = Data.Substring(i, 1)
    16. ColorizedDGV1.Rows.Add(digit)
    17. Next
    18. Next
    20. End Sub
    21. End Class
    23. Public Class ColorizedDGV : Inherits DataGridView
    25. Private Const WM_CTLCOLORSCROLLBAR As Integer = &H137
    27. <DllImport("gdi32.dll", EntryPoint:="CreateSolidBrush")> Private Shared Function CreateSolidBrush(ByVal crColor As Integer) As IntPtr : End Function
    28. <DllImport("gdi32.dll", EntryPoint:="DeleteObject")> Private Shared Function DeleteObject(ByVal hObject As IntPtr) As Integer : End Function
    30. Private m_hBrush As IntPtr = IntPtr.Zero
    31. Private m_ScrollBarColor As Color = SystemColors.ScrollBar
    33. Public Sub New()
    34. m_hBrush = CreateSolidBrush(m_ScrollBarColor.ToArgb And Not &HFF000000)
    35. End Sub
    37. Protected Overrides Sub Dispose(disposing As Boolean)
    38. If Not Equals(m_hBrush, IntPtr.Zero) Then DeleteObject(m_hBrush)
    39. MyBase.Dispose(disposing)
    40. End Sub
    42. Public Property ScrollBarColor As Color
    43. Get
    44. Return m_ScrollBarColor
    45. End Get
    46. Set(value As Color)
    47. m_ScrollBarColor = value
    48. If Not Equals(m_hBrush, IntPtr.Zero) Then
    49. DeleteObject(m_hBrush)
    50. m_hBrush = CreateSolidBrush(m_ScrollBarColor.ToArgb And Not &HFF000000)
    51. End If
    52. End Set
    53. End Property
    55. Protected Overrides Sub WndProc(ByRef m As Message)
    56. If m.Msg = WM_CTLCOLORSCROLLBAR Then
    57. If Not Equals(m_hBrush, IntPtr.Zero) Then m.Result = m_hBrush
    58. Else
    59. MyBase.WndProc(m)
    60. End If
    61. End Sub
    63. End Class

    Mfg -Franky-

    @Peter329 Das hWnd das reinkommt, ist das der DataGridView, kannst also testen welche DGV betroffen ist. Kannst also das gleiche Callback für alle DGV's nutzen. SetWindowLong gibt dir ja das alte WndProc(In diesem Fall), also das eigentliche der DGV's, daher brauchst du davon alle, die du aber wie erwähnt mit dem selben Callback verwenden kannst.

    VB.NET-Quellcode

    1. Const GWL_WNDPROC As Integer = -4
    2. Const WM_CTLCOLORSCROLLBAR As Integer = &H137
    4. <System.Runtime.InteropServices.DllImport("user32.dll")>
    5. Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, nIndex As Integer, ByVal dwNewLong As MyWindowProc) As IntPtr
    6. End Function
    8. <DllImport("gdi32.dll", EntryPoint:="CreateSolidBrush")>
    9. Private Shared Function CreateSolidBrush(ByVal crColor As Integer) As IntPtr
    10. End Function
    12. <DllImport("user32.dll")>
    13. Private Shared Function CallWindowProc(ByVal wndproc As IntPtr, ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    14. End Function
    16. <DllImport("gdi32.dll")>
    17. Private Shared Function DeleteObject(ByVal hObject As IntPtr) As Integer
    18. End Function
    20. Private Delegate Function MyWindowProc(ByVal hWnd As IntPtr, ByVal uMsg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    22. Private WindowProc As MyWindowProc
    23. Private GDIBrush As IntPtr = IntPtr.Zero
    24. Private ProcHandle As IntPtr
    25. Private ProcHandle1 As IntPtr
    27. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    28. For i = 0 To 100
    29. DataGridView1.Rows.Add(i.ToString())
    30. DataGridView2.Rows.Add(i.ToString())
    31. Next
    32. GDIBrush = CreateSolidBrush(&HFF)
    33. WindowProc = New MyWindowProc(AddressOf DGV_WindowProc)
    34. ProcHandle = SetWindowLong(DataGridView1.Handle, GWL_WNDPROC, WindowProc)
    35. ProcHandle1 = SetWindowLong(DataGridView2.Handle, GWL_WNDPROC, WindowProc)
    36. End Sub
    38. Private Function DGV_WindowProc(ByVal hWnd As IntPtr, ByVal uMsg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    39. If uMsg = WM_CTLCOLORSCROLLBAR Then
    40. Return GDIBrush
    41. End If
    42. Select Case hWnd
    43. Case DataGridView1.Handle
    44. Return CallWindowProc(ProcHandle, hWnd, uMsg, wParam, lParam)
    45. Case DataGridView2.Handle
    46. Return CallWindowProc(ProcHandle1, hWnd, uMsg, wParam, lParam)
    47. End Select
    48. End Function
    50. Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
    51. DeleteObject(GDIBrush)
    52. End Sub


    Peter329 schrieb:

    Recht herzlichen Dank für deine Mühe, du kennst dich in der Materie offensichtlich hervorragend aus !


    Habe mich reichlich mit WndProc in C++ rumgeärgert, in C++ muss das eine statische Funktion sein, versuch mal mit C++ von einer statischen Funktion auf was nicht statisches zuzugreifen. Das ist richtig kompliziert(musste GWL_USERDATA nutzen), aber das gehört jetzt nicht hier rein. Daher habe ich da Kenntnisse, aber könnte besser.

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „BitBrösel“ ()

    Jetzt sind wir doch wieder in der Form gelandet. ;(
    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 weiß nicht. Ein mal Unordnung immer Unordnung.
    Wenn ich ein älteres Projekt übernehme, räume ich zunächst auf.
    Und wenn das zwei Wochen dauert, danach habe ich einen recht guten Überblick über das Projekt.
    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!

    Peter329 schrieb:

    .... aber das Ersetzen der "DGV" durch eine gleichartige "Colorized DGV" ist u.U. ein "abendfüllendes" Vorhaben !

    Nicht unbedingt, ich täte einfach ein backup anlegen und in der Designerdatei die Standart-DGV's durch ColorizedDGV erstzen, so bleiben händisch veränderte Properties unverändert und das geht sogar schneller als überall meinen Code einzubauen ;)

    Ok ... dann braucht es also nur EINE DGV_WindowProc - das macht die Sache ein bissl übersichtlicher. Danke für den Hinweis.

    Zitiat "BitBrösel":

    "Nicht unbedingt, ich täte einfach ein backup anlegen und in der Designerdatei die Standart-DGV's durch ColorizedDGV erstzen"

    Das hab ich versucht - auch wenn mir bei solchen Sachen immer ein bissl mulmig wird, denn an der Form1.Designer.vb sollte man ja nicht unbedingt hemmungslos herumfummeln.

    Ich habe also neben der ColorizedDGV1 und ColorizedDGV2 noch die DataGridView3 und DatagridView4 angelegt.

    Sodann habe ich in der "Form1.Design.vb" den String "DataGridView3" durch "ColorizedDGV3" ersetzt und das Projekt neu geöffnet.


    Das Control hat jetzt den Namen "ColorizedDGV3" erhalten (wie gewünscht) ... aber im Designer wird das Dingens nach wie vor als "SystemWindows.Forms.DATAGRIDVIEW" angezeigt ! Das ist wohl nicht im Sinne des Erfinders.

    Man muss also noch folgende Änderung vornehmen:

    VB.NET-Quellcode

    1. 'Me.ColorizedDGV3 = New System.Windows.Forms.DataGridView()
    2. Me.ColorizedDGV3 = New TestColorScrollBar.ColorizedDGV()


    Dann funktioniert die Sache !

    Dieser Lösungsweg gefällt mir jetzt sehr gut. Eine KLASSE anlegen (wie RFG es anmanhnt) und dann im
    Designer mit geringem Aufwand die gewünschten DGVs in ColorizedDGVs umwandeln .... da scheint der Aufwand vertretbar zu sein.

    LG
    Peter

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

    Peter329 schrieb:

    .... aber das Ersetzen der "DGV" durch eine gleichartige "Colorized DGV" ist u.U. ein "abendfüllendes" Vorhaben ! Ich muss die Eigenschaften der DGV übernehmen (Size, Back/Foreground Colors, SelectionMode, DefaultCellStyle, etc. etc.) und dann muss ich möglicherweise ein Dutzend Spalten kopieren (Header, Designname, ReadOnly, Alignment, Format, SortMode, Width, etc. etc.) Für EINE DGV geht das ja gerade noch ... aber im dümmsten Fall sind das DUTZENDE von DGVs im Projekt ... Und dann hört der Spaß endgültig auf !
    nö.
    Du kannst einfacch im DesignerCode die Deklaration As DatagridView austauschen durch die Deklaration As ColoredDatagridview (oder wie das heisst).
    gerne vorher Backup machen, und sicherstellen, dass das Backup sich auch wieder restaurieren lässt.

    @Peter329 Natürlich mit Deinem Projekt-NameSpace, so vorhanden, nicht aber System.Windows.Forms.
    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!

    Jau, das habe ich ja auch verstanden. Ich habe inzwischen auf diese Weise eine ganze Reihe von Projekten umgestellt und das hat problemlos funktioniert ! Ich bin wirklich allen Ratgebern sehr dankbar - das ist eine Klasse Lösung !

    Jetzt würde ich das ganz gern noch für den Schieberegler einer Multiselect TEXTBOX verwenden. Dann sollten alle wesentlichen Controls abgehandelt sein. (s. Anhang)

    Die Struktur der Lösung könnte ja ganz ähnlich aussehen:

    1. Erstellen der Klassendefinition "ColorizedTBX" (analog zu ColorizedDGV)

    VB.NET-Quellcode

    1. Friend Class ColorizedTBX : Inherits TextBox
    3. Private Const WM_CTLCOLORSCROLLBAR As Integer = ?
    4. ...


    2. In der Designer.vb das Control austauschen:

    Me.TextBox1 = New System.Windows.Forms.TextBox() ersetzen durch
    Me.TextBox1 = ColorizedTBX()

    3. Und dann natürlich noch die WndProc auf das Textbox Control ausrichten:


    VB.NET-Quellcode

    1. Protected Overrides Sub WndProc(ByRef m As Message)
    2. If m.Msg = WM_CTLCOLORSCROLLBAR Then
    3. Select Case ...
    4. m.Result = hBrush
    5. Return
    6. End Select
    7. End If
    8. MyBase.WndProc(m)
    9. End Sub


    Das Lösungsschema ist klar ... nur fehlen mir die Details. Kann mir jemand weiterhelfen ?

    LG
    Peter
    Bilder

    • s 2022-08-30 20-22-137.jpg

      29,63 kB, 192×341, 14 mal angesehen

    Hi

    Zunächst: Der Wert für die Konstante WM_CTLCOLORSCROLLBAR ist immer gleich.

    Aber. Die MS Doku sagt auch: Die WM_CTLCOLORSCROLLBAR Nachricht wird nur von untergeordneten Bildlaufleistensteuerelementen verwendet. Bildlaufleisten, die an ein Fenster angefügt sind (WS_SCROLL und WS_VSCROLL), generieren diese Meldung nicht.

    Meine Vermutung ist das die Textbox eben mit diesen WS_xxx Konstanten erstellt wird (ungeprüft) und daher die Message WM_CTLCOLORSCROLLBAR nicht gefeuert wird.
    Mfg -Franky-

Facebook
Telefonspende