Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Sound ein und ausschalten...
Autor: littlemephisto
Datum: 21.09.03 13:58
Hallo, versuchs mal so: Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, _ ByVal dwVolume As Long) As Long Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long Private Sub Check1_Click() Dim Var as long If Check1.Value = 1 Then Call waveOutGetVolume(0, lngVolume) Var= lngVolume 'In dieser Zeile sollte die Lautstaerken-Einstellung 'des Anwenders in eine Var gespeichert werden 'Aber ich weiss nicht wie man die rausfindet lngVolume = 0 ' Wave aus Else lngVolume = Var 'Wave ein End If 'Uebergabe: Aus oder Anwendereinstellung Call waveOutSetVolume(0, lngVolume) End Sub

Sound ein und ausschalten...	971	Semy	01.09.03 06:24
Re: Sound ein und ausschalten...	717	Semy	02.09.03 01:23
Re: Sound ein und ausschalten...	963	littlemephisto	21.09.03 13:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen