اول از همه 5 کامند بزارید یکی واسه open ویکی واسه پلی واستوپ و دوتاهم واسه کم و زیاد کردن صدا یک timer ویک commandialogو یکmediaplayer ویک sliderرا از قسمت component به فرم خود وارد کنیدروی دکمه open کلیک نموده واین کد را برای آن بنویسید
op3.Filter = "Open(*.MP3 , *.Wav)|*.mp3;*.wav"
op3.ShowOpen
Mpl.FileName = op3.FileName
sl1.Value = 0
If op3.FileName <> "" Then
sl1.Max = Mpl.Duration
Timer1.Enabled = True
End If
op3=commandialog
sl1=sliderاین در بخش کومپونینت وجود دارد
mpl=mediaplayer
روی play کلیک نمایید واین کد را برایش بنویسید
On Error Resume Next
Mpl.Play
وروی سومین کانمد کلیک نمایید وبنویسید
Timer1.Enabled = False
sl1.Value = 0
Mpl.Stop
Mpl.FileName = ""
توی کامند چهار وپنج هم این هارا کپی نمایید برا کم وزیاد شدن صدا
Private Sub Command4_Click()
1 Mpl.Volume = Mpl.Volume + 100
If Mpl.Volume >= 0 Then Command4.Enabled = False Else If Not Mpl.Volume <= 0 Then GoTo 1
End Sub
Private Sub Command5_Click()
Mpl.Volume = Mpl.Volume + -100
Command4.Enabled = True
End Sub
وبعد روی slider دابل کلیک نمایید و این کد را برایش بنویسید
Mpl.CurrentPosition = sl1.Value
وبعد تو timerهم این کد را بنویسید
sl1.Value = Mpl.CurrentPosition
Me.Caption = "VBpLaYer Ver 1.0" & " >> " & sl1.Value
از این که خوانا نیست من را ببخشید عجله داشتم حتما نظر بدید
