سلام.
کسی روش پخش فایل های mp3 از طریق برنامه نویسی رو بلده.
Printable View
سلام.
کسی روش پخش فایل های mp3 از طریق برنامه نویسی رو بلده.
پیمان عزیز، میتونید برای دریافت پاسخ خود به این پست مراجعه کنید. البته این فقط یکی از راههای ممکن هست:نقل قول:
[HTML]http://forum.p30world.com/showpost.php?p=1425399&postcount=6[/HTML]
سلام.
من که گفتم از طریق برنامه نویسی. نمیخوام از dll های متفرقه استفاده کنم.
کد:Option Explicit
Dim File_name As String
Dim pp As Boolean
Private Sub Command1_Click()
Call Form_Load
End Sub
Private Sub Command2_Click()
On Error Resume Next
If pp = False Then
pp = True: Command2.Caption = "Play"
MediaPlayer1.Pause
Else
pp = False: Command2.Caption = "Pause"
MediaPlayer1.Play
End If
End Sub
Private Sub Form_Initialize()
MsgBox "http://vbh.blogfa.com", vbInformation, "}{ /\ S /\ /\/"
Me.Move 4000, 4000, 5000, 1100
Command1.Move 10, 10, 700, 330
Command2.Move 10, 340, 700, 330
Slider1.Move 800, 110, 3000, 1000
Label1.Move 3900, 240, 1500, 1000
Command1.Caption = "Open"
Command2.Caption = "Pause"
End Sub
Private Sub Form_Load()
On Error Resume Next
pp = False
Timer1.Interval = 100
Me.BorderStyle = 3
CommonDialog1.Filter = "mp3 File|*.mp3|All File|*.*"
CommonDialog1.ShowOpen
File_name = CommonDialog1.FileName
Me.Caption = File_name
MediaPlayer1.FileName = File_name
MediaPlayer1.Play
Slider1.Max = MediaPlayer1.Duration
End Sub
Private Sub Slider1_Scroll()
MediaPlayer1.CurrentPosition = Slider1.Value
End Sub
Private Sub Timer1_Timer()
Slider1.Value = MediaPlayer1.CurrentPosition
Label1.Caption = Int(MediaPlayer1.CurrentPosition) & " Seconds"
End Sub
با سلامنقل قول:
Mp3Player.rarکد:http://uploadbazar.com/238TreeView
رو هم که اقا سیاوش قبلا گذاشته بودن رو هم ببینید حتما مورد قبول واقع میشه
سلام majj جان.
ممنون از کمکت. ولی مشکلم چند روز پیش حل شد. از ای پی آی mciSendStringA استفاده کردم.