Form verdunkeln

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Form verdunkeln

    Hallo Leute,

    ich möchte eine Form auf klicken eines Buttons abdunkeln. (bei magix video deluxe 2008 ist das glaub ich auch so :) ). Ich hatte folgenden Ansatz:

    VB.NET-Quellcode

    1. Dim g As Graphics = Me.CreateGraphics
    2. g.FillRectangle(New SolidBrush(Color.FromArgb(200, 0, 0, 0)), 0, 0, Me.Width, Me.Height)


    Der Code zeichnet ein Rechteck auf die Form das etwas durchlässig ist. Dummerweise deckt es die Controls nicht ab :( sodass der code keinen Sinn hat.
    Hat jemand einen Tipp?

    Danke!

    Hi

    VB.NET-Quellcode

    1. Private clrLayerColor As Color = Color.FromArgb(200, Color.Black)
    2. Private bEnableLayer As Boolean
    4. Public Overridable Property LayerColor() As Color
    5. Get
    6. Return clrLayerColor
    7. End Get
    8. Set(ByVal value As Color)
    9. clrLayerColor = value
    10. Me.Refresh()
    11. End Set
    12. End Property
    14. Public Overridable Property EnableLayer() As Boolean
    15. Get
    16. Return bEnableLayer
    17. End Get
    18. Set(ByVal value As Boolean)
    19. bEnableLayer = value
    20. Me.Refresh()
    21. End Set
    22. End Property
    24. Private Sub Control_ControlAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles Me.ControlAdded
    25. EnlistControls(e.Control)
    26. End Sub
    28. Private Sub EnlistControls(ByVal control As Control)
    29. AddHandler control.ControlAdded, AddressOf Control_ControlAdded
    30. AddHandler control.Paint, AddressOf Control_Paint
    31. For Each c As Control In control.Controls
    32. EnlistControls(c)
    33. Next
    34. End Sub
    36. Private Sub DelistControls(ByVal control As Control)
    37. RemoveHandler control.ControlAdded, AddressOf Control_ControlAdded
    38. RemoveHandler control.Paint, AddressOf Control_Paint
    39. For Each c As Control In control.Controls
    40. DelistControls(c)
    41. Next
    42. End Sub
    44. Private Sub MyControlContainer_ControlRemoved(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles Me.ControlRemoved
    45. DelistControls(e.Control)
    46. End Sub
    48. Private Sub Control_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    49. If bEnableLayer Then
    50. e.Graphics.FillRectangle(New SolidBrush(LayerColor), e.ClipRectangle)
    51. End If
    52. End Sub


    sollte funktionieren.

    Gruß
    ~blaze~

    Danke ~blaze~,

    der code funktioniert eigentlich prima! Viel dank für deine mühe. Leider ist gdi+ etwas langsam:

    VB.NET-Quellcode

    1. Do
    2. Me.EnableLayer = True
    3. trans += 5
    4. System.Threading.Thread.Sleep(100)
    5. Loop Until trans = 150


    So dunkelt die form ab d.h. es wird langsam immer schwarzer.
    Aber es flackert unmenschlich ;(

    Es gibt keine Möglichkeit das flüssiger zu machen oder? Weil gleich auf directx umsteigen ist vlt. ein bisschen übertrieben....

    Also das ganze über Threading.Thread.Sleep zu lösen ist nicht so toll ;)
    Mach das lieber über nen Timer. Z.B. so: Der Timer ist timDimmingTimer genannt:

    VB.NET-Quellcode

    1. Private clrLayerColor As Color = Color.FromArgb(200, Color.Black)
    2. Private bEnableLayer As Boolean
    3. Private intA As Integer
    5. Public Overridable Property LayerColor() As Color
    6. Get
    7. Return clrLayerColor
    8. End Get
    9. Set(ByVal value As Color)
    10. clrLayerColor = value
    11. Me.Refresh()
    12. End Set
    13. End Property
    15. Public Overridable Property EnableLayer() As Boolean
    16. Get
    17. Return bEnableLayer
    18. End Get
    19. Set(ByVal value As Boolean)
    20. bEnableLayer = value
    21. timDimmingTimer.Start()
    22. End Set
    23. End Property
    25. Private Sub Control_ControlAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles Me.ControlAdded
    26. EnlistControls(e.Control)
    27. End Sub
    29. Private Sub EnlistControls(ByVal control As Control)
    30. AddHandler control.ControlAdded, AddressOf Control_ControlAdded
    31. AddHandler control.Paint, AddressOf Control_Paint
    32. For Each c As Control In control.Controls
    33. EnlistControls(c)
    34. Next
    35. End Sub
    37. Private Sub DelistControls(ByVal control As Control)
    38. RemoveHandler control.ControlAdded, AddressOf Control_ControlAdded
    39. RemoveHandler control.Paint, AddressOf Control_Paint
    40. For Each c As Control In control.Controls
    41. DelistControls(c)
    42. Next
    43. End Sub
    45. Private Sub MyControlContainer_ControlRemoved(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles Me.ControlRemoved
    46. DelistControls(e.Control)
    47. End Sub
    49. Private Sub Control_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    50. e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(intA, LayerColor)), e.ClipRectangle)
    51. End Sub
    53. Private Sub timDimmingTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timDimmingTimer.Tick
    54. If EnableLayer Then
    55. If intA - 5 >= clrLayerColor.A Then
    56. intA = clrLayerColor.A
    57. timDimmingTimer.Stop()
    58. Else
    59. intA += 5
    60. End If
    61. Else
    62. If intA - 5 <= 0 Then
    63. intA = 0
    64. timDimmingTimer.Stop()
    65. Else
    66. intA -= 5
    67. End If
    68. End If
    69. Me.Refresh()
    70. End Sub
    72. Protected Overrides Sub OnCreateControl()
    73. MyBase.OnCreateControl()
    74. MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint, True)
    75. End Sub


    Schau dir den Code aber gut an ;). Hab irgendwie zur Zeit meine Sourcecodephase...

    Gruß
    ~blaze~

    Hi,
    cool! Großen Dank!

    Ich hab den Code jetzt etwas erweitert:
    Ich lasse nach dem verdunkeln den clientbereich der form screenshoten und in einer picturbo anzeigen die über die ganze form gezogen sit. das verdindert das man noch buttons oder andere steurelletmet anklicken kann.

    Und jetzt würde ich gerne eine andere form auf der abgedunkelten form anzeigen lassen. Ich dachte an mdichild aber die form wird dann von der picbox abgedunkelt und auch von der picturbeox abgedeckt(diese form soll ja benutzbar sein. wie könnte ich das verwirklichen?

    DANKE blaze!
    du hast mir sehr geholfen! ich benutze jetzt deinen Code und Screenshote das Ergebnis. kommt aber aus gleiche raus wei wenn ich ein recatangel auf die picbox male :D

    Aber die Eigenschaft istopcontrol find ich nicht... wie mache ich das die einen in der anderen dirnn ist. weil mdi container sind ja auch verdunkelt und das soll die form eben nicht sein?

    Sorry, hab den falschen Namen im Kopf gehabt. Der richtige lautet TopLevel... Habs eigentlich noch mal nachgeschaut, aber trotzdem falsch abgeschickt. Also wenn du den Code trotzdem verwenden willst, machs so:
    Verbesser einfach EnlistControls und DelistControls

    VB.NET-Quellcode

    1. Private Sub EnlistControls(ByVal control As Control)
    2. If Not (TypeOf control Is Form OrElse control.GetType.IsSubclassOf(GetType(Form))) Then
    3. AddHandler control.ControlAdded, AddressOf Control_ControlAdded
    4. AddHandler control.Paint, AddressOf Control_Paint
    5. For Each c As Control In control.Controls
    6. EnlistControls(c)
    7. Next
    8. End If
    9. End Sub
    11. Private Sub DelistControls(ByVal control As Control)
    12. If Not (TypeOf control Is Form OrElse control.GetType.IsSubclassOf(GetType(Form))) Then
    13. RemoveHandler control.ControlAdded, AddressOf Control_ControlAdded
    14. RemoveHandler control.Paint, AddressOf Control_Paint
    15. For Each c As Control In control.Controls
    16. DelistControls(c)
    17. Next
    18. End If
    19. End Sub


    Das sollte die Forms ausschließen aus dem Verdunklungsprozess.

    Gruß
    ~blaze~

    PS: Ich befürworte eigentlich die selbstständige Arbeit :rolleyes:

    Sorry das ich das hier nochmal hochhole, aber ich brauche genau das gleiche gerade auch in meinem Projekt. Der Code funktioniert auch wunderbar. Es wird alles abgedunkelt außer die Textboxen, welche ich auf der Form habe. Ne Idee woran das liegen kann?

    WÜrde mich freuen, wenn mir jemand helfen könnte.