Voici mon programme :
Quand PlaySound fonctionne, impossible de cliquer et faire fonctionner la souris
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Option Explicit Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _ (ByVal lpszName As String, _ ByVal hModule As Long, _ ByVal dwFlags As Long) As Long Private Const SND_SYNC = &H0 Private Const SND_MEMORY = &H4 End Option Dim s s = StrConv(LoadResData(101, "SOUND"), vbUnicode) PlaySound s, 0, SND_MEMORY
Partager