Thema Datum  Von Nutzer Rating
Antwort
04.08.2010 21:46:02 Sascha
NotSolved
Blau Aw:blimkendes Label
 08.08.2010 10:04:58 Holger
NotSolved
12.08.2010 15:25:21 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
08.08.2010 10:04:58		 Views:
851		 Rating:
     
Antwort:
  Ja
Thema:
Aw:blimkendes Label
Hallo Sascha,
mit einer Do-Loop-Schleife, die mit DoEvents unterbrochen werden kann und abbricht, wenn die Zeit größer wird als der Start-Timer + 1 Sekunde, kann man das Problem am schnellsten lösen, belastet aber die CPU sehr, weil die Schleife ununterbrochen läuft. Besser geht das m.E. mit der OnTime-Funktion, auch wenn der Code aufwändiger ist:

Schreibe z.B. folgende Subs in ein Modul, das automatisch mit dem Makro geladen wird. Ersetze UserForm durch den Namen deiner UserForm, Label1, Modul, Projekt usw. entsprechend.

Sub Userform_laden()
Load UserForm
UserForm.Show vbModeless 'Modeless laden!!
End Sub

Sub Zeitsteuerung_ein()
Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="Projekt.Modul.Blinker_ein"
End Sub

Sub Zeitsteuerung_aus()
UserForm.Label.BackColor = UserForm.BackColor
Application.OnTime When:=Now, Name:="Projekt.Modul.Blinker_aus"
End Sub

Sub Blinker_ein()
If UserForm.Label.BackColor = vbRed Then
UserForm.Label.BackColor = vbGreen
Else
UserForm.Label.BackColor = vbRed
End If
Projekt.Modul.Zeitsteuerung_ein
End Sub

Sub Blinker_aus()
UserForm.Label.BackColor = UserForm.BackColor
End Sub

Füge einen Commandbutton_Ein_Aus in deine Userform mit diesem Code ein:

Private Sub CommandButton_Ein_Aus_Click()
Static st
If st = True Then
st = False
Projekt.Modul.Zeitsteuerung_aus
Else
st = True
Projekt.Modul.Zeitsteuerung_ein
End If
End Sub

Gruß
Holger


Sascha schrieb am 04.08.2010 21:46:02:

Hallo,

ich habe eine UserForm auf der sich ein cmdbutton sowie ein Label befindet. Das Label ist Standart weiß.
Nun möchte ich über diesen Button das Label im takt ca. 1Sec., dass Label im wechsel grün und rot blinken lassen, bis wieder über diesen Button das Blinken abschalte.
Kann mir einer bei diesem problem helfen? Versuche das schon den ganzen Tag.
Danke und Gruß
Sascha

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
04.08.2010 21:46:02 Sascha
NotSolved
Blau Aw:blimkendes Label
 08.08.2010 10:04:58 Holger
NotSolved
12.08.2010 15:25:21 Holger
NotSolved