Hallo,
wie soll es denn noch lauter werden, wenn die Lautstärke
vielleicht schon auf Maximum steht? Man könnte eher den
Sound durch einen "durchdringenderen" ersetzen, aber da
reichen meine rudimentären Scriptingkenntnisse nicht aus,
um so in die Systemsteuerung einzugreifen. Und falls der
User den Brüllwürfel leiser gedreht hat, hilft das eh nix.
Hast du denn den Vorschlag realisiert, den Standardsound
bis zum Anklicken des Buttons im 1- oder 2-Sekunden-Takt
ständig abzuspielen? Das dürfte auch schon Motivation genug
zum Mausklick sein. Ich würde meine Hilfestellung jetzt
erst mal darauf konzentrieren wollen.
Diesen Code in das Modul einfügen, wo die Sub PopUp steht,
die dabei ebenfalls ergänzt wird:
Public dteNextBeep As Date
Public Sub PopUp()
UserForm1.Show vbModeless
Beep
dteNextBeep = Now + TimeSerial(0, 0, 2)
Application.OnTime EarliestTime:=dteNextBeep, _
Procedure:="xBeep", Schedule:=True
End Sub
Public Sub xBeep()
Beep
dteNextBeep = Now + TimeSerial(0, 0, 2)
Application.OnTime EarliestTime:=dteNextBeep, _
Procedure:="xBeep", Schedule:=True
End Sub
Im Bereich UserForm wird die Sub CommandButton1_Click
wie folgt ergänzt:
Application.OnTime EarliestTime:=dteNextBeep, _
Procedure:="xBeep", Schedule:=False
Damit wird der Timer für das wiederholte Beep gestoppt.
Diese Anweisung kannst du nach dem Neustart des Timers
für die Sub PopUp einfügen.
Gruß
|