Beschreibung: Deklaration: Declare Function auxSetVolume Lib "winmm.dll" ( _ ByVal uDeviceID As Long, _ ByVal dwVolume As Long) As Long Parameter:
Rückgabewert: Const MMSYSERRR_NOERROR = 0 ' Kein Fehler Const MMSYSERR_BASE = 0 ' Basis Konstante Const MMSYSERR_BADDEVICEID = (MMSYSERR_BASE+ 2) ' Falscher Geräte ID Beispiel: Private Declare Function auxSetVolume Lib "winmm.dll" ( _ ByVal uDeviceID As Long, _ ByVal dwVolume As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" _ Alias "RtlMoveMemory" ( _ Destination As Any, _ Source As Any, _ ByVal Length As Long) Private Const MMSYSERR_NOERROR = 0 Private Const MMSYSERR_BASE = 0 Private Const MMSYSERR_BADDEVICEID = (MMSYSERR_BASE + 2) Private Sub Command1_Click() Dim Volume(1) As Integer, AuxSetVol As Long Dim Retval As Long, Gerät As Integer Gerät = 0 ' meist Wave ' Stumm schalten MsgBox "Die Lautstärke wird jetzt auf 0% geschaltet", vbInformation, _ "Stumm schalten" Volume(0) = 0 'Linker Kanal = ganz leise Volume(1) = 0 'Rechter Kanal = ganz leise Call CopyMemory(AuxSetVol, Volume(0), Len(Volume(0)) * 2) Retval = auxSetVolume(Gerät, AuxSetVol) If Retval = MMSYSERR_BADDEVICEID Then _ MsgBox "Gerät " & Gerät & " wurde nicht gefunden", _ vbCritical, "Fehler": Exit Sub ' Mittlere Lautstärke MsgBox "Die Lautstärke wird jetzt auf 50% geschaltet", vbInformation, _ "Mittlere Lautstärke" Volume(0) = 32767 'Linker Kanal = ca. 50% Volume(1) = 32767 'Rechter Kanal = ca. 50% Call CopyMemory(AuxSetVol, Volume(0), Len(Volume(0)) * 2) Retval = auxSetVolume(Gerät, AuxSetVol) If Retval = MMSYSERR_BADDEVICEID Then MsgBox "_ Gerät " & Gerät & " wurde nicht gefunden", _ vbCritical, "Fehler": Exit Sub ' Volle Lautstärke MsgBox "Die Lautstärke wird jetzt auf 100% geschaltet", vbInformation, _ "Volle Lautstärke" Volume(0) = -1 'Linker Kanal = 100% Volume(1) = -1 'Rechter Kanal = 100% Call CopyMemory(AuxSetVol, Volume(0), Len(Volume(0)) * 2) Retval = auxSetVolume(Gerät, AuxSetVol) If Retval = MMSYSERR_BADDEVICEID Then _ MsgBox "Gerät " & Gerät & " wurde nicht gefunden", _ vbCritical, "Fehler": Exit Sub ' Geteilte Lautstärke MsgBox "Die Lautstärke wird jetzt auf 100% / 0% geschaltet", vbInformation, _ "Geteilte Lautstärke" Volume(0) = -1 'Linker Kanal = 100% Volume(1) = 0 'Rechter Kanal = 0% Call CopyMemory(AuxSetVol, Volume(0), Len(Volume(0)) * 2) Retval = auxSetVolume(Gerät, AuxSetVol) If Retval = MMSYSERR_BADDEVICEID Then _ MsgBox "Gerät " & Gerät & " wurde nicht gefunden", _ vbCritical, "Fehler": Exit Sub End Sub Diese Seite wurde bereits 18.173 mal aufgerufen. |
vb@rchiv CD Vol.6 ![]() ![]() Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats ![]() Manfred Bohn IndexOf für mehrdimensionale Arrays Die generische Funktion "IndexOf" ermittelt das erste Auftreten eines bestimmten Wertes in einem n-dimensionalen Array Neu! sevCommand 4.0 ![]() Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. |
||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |