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!
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
- Private Sub Button_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Save1.Click
- With Button_Save
- .FlatAppearance.BorderSize = 0
- .Text = "text1"
- .BackColor = Color.Orange
- .Enabled = False
- .FlatAppearance.BorderColor = Color.Orange
- Wait(1)
- .Text = "text2"
- .BackColor = Color.Red
- .FlatAppearance.BorderColor = Color.Red
- Wait(1)
- .ForeColor = Color.White
- .Text = "text3"
- .BackColor = Color.DarkRed
- .FlatAppearance.BorderColor = Color.DarkRed
- .Refresh()
- Wait(1)
- End With
- End Sub
- ''' <summary>
- ''' progamm anhalten
- ''' </summary>
- ''' <param name="seconds"></param>
- Public Sub Wait(ByVal seconds As Double)
- Static start As Double
- start = Microsoft.VisualBasic.Timer
- Dim start2 As Double = start
- Do While Microsoft.VisualBasic.Timer < start + seconds
- Try
- System.Windows.Forms.Application.DoEvents()
- Catch
- End Try
- Loop
- End Sub
VB.NET VB2017