Problem bei Farbe von Text im Button

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    Problem bei Farbe von Text im Button

    Ich will bei dem Button_Save alle Sekunde die Farbe ändern. Das funktioniert.
    Am Schluß wir die Farbe zu dunkel und ich möchte die Schriftfarbe auf weiss umschalten.
    Das funktioniert nicht.
    (Genau genommen kommt die Umstellung auf weiß erst viel später)
    refresh hat nicht geändert...
    Was mache ich da falsch?
    Danke!

    Quellcode

    1. Private Sub Button_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Save1.Click
    3. With Button_Save
    4. .FlatAppearance.BorderSize = 0
    5. .Text = "text1"
    6. .BackColor = Color.Orange
    7. .Enabled = False
    8. .FlatAppearance.BorderColor = Color.Orange
    9. Wait(1)
    11. .Text = "text2"
    12. .BackColor = Color.Red
    13. .FlatAppearance.BorderColor = Color.Red
    14. Wait(1)
    16. .ForeColor = Color.White
    17. .Text = "text3"
    18. .BackColor = Color.DarkRed
    19. .FlatAppearance.BorderColor = Color.DarkRed
    20. .Refresh()
    21. Wait(1)
    23. End With
    25. End Sub
    27. ''' <summary>
    28. ''' progamm anhalten
    29. ''' </summary>
    30. ''' <param name="seconds"></param>
    31. Public Sub Wait(ByVal seconds As Double)
    32. Static start As Double
    33. start = Microsoft.VisualBasic.Timer
    34. Dim start2 As Double = start
    35. Do While Microsoft.VisualBasic.Timer < start + seconds
    36. Try
    37. System.Windows.Forms.Application.DoEvents()
    38. Catch
    40. End Try
    41. Loop
    42. End Sub
    VB.NET VB2017

    Wenn man von der Herangehensweise und dem Sinn absieht, liegt es daran, dass Dir das Deaktivieren (.Enabled = False) einen Strich durch Deine Stylerechnung macht. Deaktivier mal späßleshalber jene Zeile und schau, ob es dann so aussieht, wie Du wolltest.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @Georg99 Willkommen im Forum. :thumbup:
    Streiche die Prozedur Wait() ersatzlos und ändere die Farben in einer Timer-Tick-Prozedur.
    Zieh Dir einfach einen Timer auf die GUI und feddich.
    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!

    Danke für eure Hinweise.
    @RodFromGermany: mit timer-tick ist es deutlich eleganter. Habe ich gemacht.
    @Vapori-Zed: du hast recht: .enable=false war das Problem. Da wäre ich nicht draufgekommen! Etwas verwunderlich finde ich, dass sich die Hintergrundfarbe im Gegensatz zur Textfarbe ändern läßt!
    Nochmal Danke!
    VB.NET VB2017

    Das Ändern der Textfarbe eines deaktivierten Buttons geht indem du den Text im Paint-Ereignis neu zeichnest.
    Changing Disabled Controls ForeColorsocial.msdn.microsoft.com/Foru…orecolor?forum=vblanguage

    VB.NET-Quellcode

    1. Private Sub btn_EnabledChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Button_Save.EnabledChanged
    2. Dim btn As Button = CType(sender, Button)
    3. btn.ForeColor = If(btn.Enabled, Color.Black, Color.White)
    4. End Sub
    6. Private Sub btn_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles Button_Save.Paint
    7. Dim btn As Button = CType(sender, Button)
    8. Dim drawBrush As SolidBrush = New SolidBrush(btn.ForeColor)
    10. Dim sf As New StringFormat
    11. Dim lNum As Int32 = CType(Math.Log(CType(btn.TextAlign, Double), 2), Int32)
    12. sf.LineAlignment = CType(lNum / 4, StringAlignment)
    13. sf.Alignment = CType(lNum Mod 4, StringAlignment)
    15. If btn.Text <> String.Empty Then
    16. btn.Tag = btn.Text
    17. btn.Text = String.Empty
    18. End If
    20. e.Graphics.DrawString(btn.Tag.ToString, btn.Font, drawBrush, e.ClipRectangle, sf)
    21. drawBrush.Dispose()
    22. sf.Dispose()
    23. End Sub

    @HenryV Dann wäre es deutlich eleganter, ein eigenes Button-Control zu schreiben.
    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!

    @HenryV das casten von sender zu Button ist nicht notwendig, wenn die Methode in der zugehörigem Form läuft und nur ein Button betroffen ist.

    Dim btn As Button = CType(sender, Button)

    CType und Co . Eignen sich für String, Integer und so. Statt CType nimm bei Controls besser DirectCast oder TryCast.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    RodFromGermany schrieb:

    @HenryV Dann wäre es deutlich eleganter, ein eigenes Button-Control zu schreiben.
    Find ich nicht - vor allem nicht "deutlich".
    Ist zwar iwie totschick, eigene Controls zu entwickeln, aber wenn man einen Job auch mit einem einfachen Eventhandler abfackeln kann, ist das wohl der "weniger invasive" Eingriff.

    ErfinderDesRades schrieb:

    is geschmackssache
    oder so ähnlich. ;)
    OOD, Kapselung, ...
    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!

    Ganz oben, rechts auf [Thema bearbeiten] klicken und dann auf ⌠als erledigt markieren⌡
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende