Windows Mute

Declare Function auxSetVolume Lib \"winmm.dll\" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long


retval = auxSetVolume(0,0) 

Jeg prøvet at skrive den her

Option Explicit
Declare Function auxSetVolume Lib \"winmm.dll\" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long

Private Sub Command1_Click()
retval = auxSetVolume(0, 0)
End Sub

Jeg for en fejl !!

enten skal du dimme retval...eller oxo fjerne option xplicit....og en anden gang så gvi lige hvad for en fejl du får!

og declare tingen skal være i et modul!

Nu har jeg lavet dette stykke kode :

I et modul:
Declare Function auxSetVolume Lib \"winmm.dll\" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long

I en form:
Option Explicit
Dim retval As Variant
Private Sub Command1_Click()
retval = auxSetVolume(0, 0)
End Sub

Jeg for ingen fejl.... men den slå helle ikke mute fra eller til

Jeg kom til at vælge forkert !!!

Jeg har udgivet pointne...surt

Sådan går det når man er lidt for hurtig på tasterne !!!!!

ja

nææ .. hvis du ikke kunne bruge svaret så plejer vi da at være så \"dannede\" at vi giver pointene tilbage ... ikke mystiq ?

superinfojens:> `du skal jo sætte uDeviceID til dit lydkorts ID og ikke til 0&. og forøvrigt skal du Dim retval As Long istedet for As Variant.

blazer:> Declare linier behøver ikke at være i et modul. Du kan skrive Private Declare .. hvis du har det i en form .. og Public Declare hvis det skal være i et modul

Ok tdaugaard så langt så godt

Nu har jeg skrevet

Option Explicit
Private Declare Function auxSetVolume Lib \"winmm.dll\" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
Dim retval As Long

Private Sub Command1_Click()
retval = auxSetVolume(0, 0)
End Sub

Stadig ingen fejl og den slå helle ikke mute fra eller til

Du skrev noget med at sætte uDeviceID til min lydkorts ID ????????

Kan du lave noget kode eksempel på det ????

Desværre så ved jeg ikke hvordan man gør det ...  og jeg har ingen måde hvorpå jeg kan teste noget da jeg intet lydkort har :-(