Keskustelu: Koodit: VB6: waw tiedoston soittaminen ilman moduulia

Tämä on osaksi otettu waw tiedoston soittaminen jutusta mutta tässä on hieman muutoksia siihen. Mutta mitä järkeä tehdä jotakin moduulia kuin voi tehdä sen helpommallakin tavalla.

waw tiedoston soittaminen ilman moduulia

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Sub SoitaWAV(tiedosto As String) 'waw tiedoston generaattori
    Dim x As Long
    x = sndPlaySound(tiedosto, 1)
End Sub

Private Sub Command1_Click()
SoitaWAV "esimerkki.wav" 'soittaa waw tiedoston
End Sub

Moduulissa on järkeä sitten kun haluaa määritellä saman funktion useammalle formille. Yhden formin kanssa toimii Private Declare ihan hyvin.