Tester la presence d'une carte son

Description

Comment puis-je tester la présence d'une carte son ?

Mettez ce code dans un module :

Source / Exemple :


Declare Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" () As Long

' Puis mettez ce code dans votre Form_Load par exemple :

Sub Form_Load()
    Dim Carte As Integer

    Carte = waveOutGetNumDevs()

    If Carte > 0 Then 
        MsgBox "Carte Son Présente.", vbInformation, "Test de la Carte Son" 
    Else 
        MsgBox "Pas de Carte Son Présente.", vbInformation, "Test de la Carte Son" 
    End If
End Sub

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.