Integrer des données dans un projet VB (VB6)

Bonjour,
Sandrine wrote:

Bonjour,

Est-il possible d'ajouter un fichier, comme par exemple un fichier wav
directement dans le projet ? (qui serait integré à l'executable après
compilation) ?

Merci.

Oui, à condition de disposer d'une version de VB gérant les fichiers de
resources. Tu peux vérifier via le menu VB :

Compléments => Gestionnaire de compléments ... => Editeur de resources

Il y a une autre méthode, mais celle la est la plus simple.

--
Cordialement,

Jacques.

Jacques93 a présenté l'énoncé suivant :

Oui, à condition de disposer d'une version de VB gérant les fichiers de
resources. Tu peux vérifier via le menu VB :

Compléments => Gestionnaire de compléments ... => Editeur de resources

Il y a une autre méthode, mais celle la est la plus simple.

Ok merci.

Bonsoir,
Sandrine wrote:

Jacques93 a présenté l'énoncé suivant :

Oui, à condition de disposer d'une version de VB gérant les fichiers
de resources. Tu peux vérifier via le menu VB :

Compléments => Gestionnaire de compléments ... => Editeur de resources

Il y a une autre méthode, mais celle la est la plus simple.

Ok merci.

Extrait du fil WINMM du 27/03/2005 21:54 :

========================================== Ci-dessous un code de module qui joue un son .wav à partir d'un buffer
renseigné par le fichier resource du projet :

Option Explicit

Private Const SND_ALIAS = &H10000
Private Const SND_ALIAS_ID = &H110000
Private Const SND_ALIAS_START = 0
Private Const SND_APPLICATION = &H80
Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Const SND_LOOP = &H8
Private Const SND_MEMORY = &H4
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_PURGE = &H40
Private Const SND_RESERVED = &HFF000000
Private Const SND_RESOURCE = &H40004
Private Const SND_SYNC = &H0
Private Const SND_TYPE_MASK = &H170007
Private Const SND_VALID = &H1F
Private Const SND_VALIDFLAGS = &H17201F

Private Declare Function sndPlaySound Lib "winmm.dll" Alias
"sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Declare Function PlaySoundA Lib "winmm.dll" (ByVal lpszName As
String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Dim m() As Byte

Public Sub PlaySound(ResName, Optional Wait As Boolean = False)
Dim resErr As Long

On Error Resume Next
Err.Clear
m = LoadResData(ResName, "WAVE")
resErr = Err.Number
If resErr = 0 Then
PlaySoundAsByte m, Wait
End If

End Sub

Private Sub PlaySoundAsByte(m() As Byte, Optional Wait As Boolean = False)
Dim flags As Long

flags = SND_NODEFAULT Or SND_MEMORY Or SND_SYNC
If Wait = False Then flags = flags Or SND_ASYNC

sndPlaySound m(0), flags
End Sub

Private Sub PlaySoundAsFile(fName As String, Optional Wait As Boolean =
False)
Dim flags As Long

flags = SND_NODEFAULT Or SND_FILENAME Or SND_SYNC
If Wait = False Then flags = flags Or SND_ASYNC
PlaySoundA fName, 0&, flags
End Sub


--
Cordialement,

Jacques.

Jacques93 a couché sur son écran :

Extrait du fil WINMM du 27/03/2005 21:54 :

========================================== > Ci-dessous un code de module qui joue un son .wav à partir d'un buffer
renseigné par le fichier resource du projet :

Dommage qu'une ressource externe est limitée à 64ko.

Bonjour,
Sandrine wrote:

Jacques93 a couché sur son écran :

Extrait du fil WINMM du 27/03/2005 21:54 :

========================================== >> Ci-dessous un code de module qui joue un son .wav à partir d'un buffer
renseigné par le fichier resource du projet :

Dommage qu'une ressource externe est limitée à 64ko.

Où as tu cette limite, j'utilise des fichiers resources de plusieurs
centaines de Ko. J'ai fait un essai avec un .wav de près de 400K et pas
de problème ...

--
Cordialement,

Jacques.