4 svar · 228 visningar · startad av Pellefant
Nybörjarfråga
Har fått denna enkla "alarmklocka" att fungera. :)
Hur lägger man till en popupruta och ett enkelt ljud(tex beep) istället för att öppna notepad ?
Private Sub Timer1_Timer()
Form1.Caption = Format(Now(), "hh:nn:ss")
Alarm = Combo2.Text & ":" & Combo3.Text
If (Format(Time, "hh:mm") = Format(Alarm, "hh:mm")) Then
Shell "c:\\windows\\notepad.exe", 1
End If
MsgBox "Hallå världen"
Hm...varför beepar inte datorn med detta(som är direkt hämtat från VB hjälpen)
Dim I
For I = 1 To 3 ' Loop 3 times.
Beep ' Sound a tone.
Next I
Detta funkar inte heller: beep :(
Om du har ett ljudkort så spelar "Beep" upp Windows defaultljud via detta, i annat fall piper den i den interna högtalaren. Om du har ett ljudkort så ger det åtminstone två felkällor:
1. Du har satt Windows defaultljud till (None).
2. Högtalarna är inte på.
