Userform flackert stark - DoEvents?

Hallo zusammen,
ich habe eine relativ große Userform, die extrem flackert bzw. die Steuerelemente auf der Userform flackern.
Ich habe in verschiedenen Enter- und Exit Events jeweils ein Me.Repaint verwendet, da das jeweils aktive Steuerelement eine andere Rahmenfarbe zugewiesen bekommt, damit es für den Nutzer erkennbar ist, in welchem Steuerelement er sich gerade befindet. Beim Verlassen des Steuerelementes wird die Rahmenfarbe zurückgesetzt.
Ich kann die Datei, die die Userform enthält, leider in dieser Form nicht hochladen, da hier viele sensible Daten enthalten sind.
Die Userform an sich ist auf ShowModul = True.
Ich habe bereits im Internet gelesen, dass wenn i.B. Schleifen ins Spiel kommen hier DoEvents helfen soll. Allerdings verwende ich keine relevanten Loops und ich wüsste in diesem Fall nicht so Recht, wo ich das DoEvents platzieren muss.
Ich weiß, dass das so recht magere Angaben sind. Vielleicht hatte jemand schon mal ein ähnliches Problem und kann trotzdem helfen.
Vielen Dank an Euch im Voraus.
Viele Grüße.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jojo,
das war jetzt ein wenig Knobelei, aber es ist ganz witzig. Dein Code:

Private Sub TextBox1_Enter()
TextBox1.BorderColor = vbBlack
DoEvents
DoEvents
End Sub

funktioniert nicht so wie gedacht. Aber jetzt füge ich nur eine Zeile hinzu:

Private Sub TextBox1_Enter()
TextBox1.BorderColor = vbBlack
    TextBox1.BackColor = vbWhite
DoEvents
DoEvents
End Sub

und nun klappt es so wie es soll. Bitte frag mich nicht warum. Irgendwo in den Untiefen der Excel-Programmierung werden wahrscheinlich Hintergrundfarben anders priorisiert als Rahmenfarben. Oder was ganz anderes, ich hab keine Ahnung.
Ich habe aber den Code noch etwas einfacher gemacht:

Option Explicit
Private Sub TextBox1_Enter()
Call Rahmenfarbe
End Sub
Private Sub TextBox2_Enter()
Call Rahmenfarbe
End Sub
Private Sub TextBox3_Enter()
Call Rahmenfarbe
End Sub
Private Sub Rahmenfarbe()
Dim cCont As Control
For Each cCont In Me.Controls
If TypeName(cCont) = "TextBox" Then
If ActiveControl.Name = cCont.Name Then
cCont.BorderColor = vbBlack
cCont.BackColor = vbWhite
Else
cCont.BorderColor = RGB(217, 217, 217)
cCont.BackColor = vbWhite
End If
End If
Next cCont
'Me.Repaint
DoEvents
DoEvents
End Sub

Wenn du diesen Code nimmst hast du 2 Vorteile:
1. Brauchst du keinen "Exit" Event. Somit müssen nicht 2 Events gleichzeitig abgearbeitet werden.
2. Ist der Code für alle Textboxen identisch. Somit lager ich die Änderungnen in eine Extra-Sub aus und dein TextBox_Enter ist ein Einzeiler geworden.
Gruß, Rainer

Beliebteste Forumthreads (12 Monate)

Userform flackert stark - DoEvents?

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

29 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform flackert stark - DoEvents?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

29 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread