Problema programare

[luke999]

in vb8 nu stiu cum sa fac sa controlez volumul wave...

as vrea sa fac un programel si mi-ar fi foarte folositor...sper sa stie cineva

SEARCH nu m-ai inteles...intra la volum si vezi ca ai: Volume control , Wave , front , center ....etc

eu vreau sa micsorez/maresc volumul wave

Edited December 24, 2010 by luke999

[search]

  Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
    (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
    ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click

        mciSendString("close myWAV", Nothing, 0, 0)

        Dim fileName1 As String = "c:\test1.wav"
        mciSendString("open " & fileName1 & " type mpegvideo alias myWAV", Nothing, 0, 0)
        mciSendString("play myWAV", Nothing, 0, 0)

        'min Volume is 1, max Volume is 1000
        Dim Volume As Integer = 100
        mciSendString("setaudio myWAV volume to " & Volume, Nothing, 0, 0)

    End Sub

Try this:
Click Project, Add Reference, Click on the .NET Tab, scroll down and look for Microsoft.DirectX.AudioVideoPlayBack, Select that then click "Ok"

Then Add this at the very top of your project:

Code:

Imports Microsoft.DirectX.AudioVideoPlayback

Ok then add this under your button or whatever event you want this the file to play on:

Code:

Dim AudioPlay As Audio
AudioPlay = New Audio("C:\sounds\mouseclick2.wav")
AudioPlay.Volume = 50
AudioPlay.Play()