Thema Datum  Von Nutzer Rating
Antwort
22.08.2019 18:02:29 Stephan
NotSolved
22.08.2019 18:14:55 Gast32767
NotSolved
Rot Textbox Userform blinken
 22.08.2019 18:51:13 Gast87794
Solved
22.08.2019 19:15:06 Stephan
NotSolved
23.08.2019 18:34:04 Gast54242
NotSolved
22.08.2019 19:50:57 Gast43734
NotSolved

Ansicht des Beitrags:
Von:
Gast87794		 Datum:
22.08.2019 18:51:13		 Views:
541		 Rating:
     
Antwort:
 Nein
Thema:
Textbox Userform blinken

Hallo,

ok, kann man machen, Code kommt in Dein UserForm-Module:

Option Explicit

Private mblnRun As Boolean

Private Sub TextBox1_Change()
If TextBox1.Value = "x" Then
   Call Blinker
Else
   mblnRun = False
End If
End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If TextBox1.Value <> "x" Then mblnRun = False
End Sub

Private Sub UserForm_Terminate()
mblnRun = False
End Sub

Private Sub Blinker()
    Dim sngTimer As Single
    Dim sngOn_Time As Single
    Dim sngOff_Time As Single
    Dim lngOn_Color As Long
    Dim lngOff_Color As Long
   
    sngOn_Time = 0.5
    lngOn_Color = vbRed
   
    sngOff_Time = 0.5
    lngOff_Color = vbWhite
   
    mblnRun = True
   
    Do While mblnRun
        TextBox1.BackColor = lngOn_Color
        sngTimer = Timer: Do While Timer < sngTimer + sngOn_Time: DoEvents: Loop
        TextBox1.BackColor = lngOff_Color
        sngTimer = Timer: Do While Timer < sngTimer + sngOff_Time: DoEvents: Loop
    Loop
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.08.2019 18:02:29 Stephan
NotSolved
22.08.2019 18:14:55 Gast32767
NotSolved
Rot Textbox Userform blinken
 22.08.2019 18:51:13 Gast87794
Solved
22.08.2019 19:15:06 Stephan
NotSolved
23.08.2019 18:34:04 Gast54242
NotSolved
22.08.2019 19:50:57 Gast43734
NotSolved