Signalton mal anders

Forumthread: Signalton mal anders
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Signalton mal anders

28.04.2003 14:36:50

Jule

da ich den doofen beep-ton nicht so toll finde, wollte ich mal fragen ob jemand weiß, wie ich mein makro dazu kriege auf eine wav-datei zuzugreifen (so wie das auch bei den windows signaltönen funktioniert, wenn irgendwelche aktionen ablaufen) und mir eine melodie abzuspielen.

mit bestem Dank,
Jule

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Signalton mal anders

28.04.2003 14:38:13

PeterA
Re: Signalton mal anders

28.04.2003 14:54:28

Michael Scheffler
Re: Signalton mal anders

28.04.2003 15:09:27

jule
Re: Signalton mal anders

28.04.2003 15:10:58

jule
Re: Signalton mal anders

28.04.2003 15:53:13

Michael Scheffler

Re: Signalton mal anders

28.04.2003 14:38:13

PeterA

Hallo Jule

Ich bin mir sicher, so eine Frage schon mal in der Recherche gesehen zu haben.

Versuchs doch dort einmal

Peter

Re: Signalton mal anders

28.04.2003 14:54:28

Michael Scheffler

Hallo Jule,

lang nichts mehr gehört von Dir - mit der API geht das. Welches Betriebssystem hast Du?

Gruß

Micha

Re: Signalton mal anders

28.04.2003 15:09:27

jule

Hallo Micha, ja tut mir leid, dass ich mich so lang nich gemeldet hab. Ich werd dir mal wieder schreiben. Ganz doll versprochen.
Mittlerweile hab ich XP. Was meinst du mit API

Re: Signalton mal anders

28.04.2003 15:10:58

jule

ja ich hab dort auch nachgeschaut. Leider nichts gefunden. Aber vielleicht hab ich auch nur nicht den richtigen suchbegriff erwischt

Re: Signalton mal anders

28.04.2003 15:53:13

Michael Scheffler

Hi Jule,

aus dem API-Guide:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Activate()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Cnt As Long
For Cnt = 0 To 5000 Step 10
'play a tone of 'Cnt' hertz, for 50 milliseconds
Beep Cnt, 50
Me.Caption = Cnt
DoEvents
Next Cnt
End Sub

Liebe Grüße

Micha

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!