سلام دوستان
يك سوال داشتم ان هم اينكه
كد يا تابعي هست كه بتوان صدا يا صوت mp3 را بخش كرد
سلام دوستان
يك سوال داشتم ان هم اينكه
كد يا تابعي هست كه بتوان صدا يا صوت mp3 را بخش كرد
سلام .
در بخش References تیک ActiveMove Control Type library رو بزنید (البته اگه dll اون در سیستمتون باشه که احتمالآ هست) . یک دکمه در فرم ایجاد کنید و این کد ها رو وارد کنید:
Dim MediaCtl As IMediaControl
Private Sub Command1_Click()
Set MediaCtl = New FilgraphManager
MediaCtl.RenderFile "آدرس فایل"
MediaCtl.Run
End Sub
فقط باید آدرس رو عوض کنید و آدرس فایل مورد نظر رو وارد کنید.
فکر میکنم راههای دیگه ای هم هست . مثلآ از کامپوننت windows media player استفاده کنید.
آخرین ویرایش به وسیله amin32 : دوشنبه 10 مهر 1391 در 01:46 صبح
سلام عليکم
ميتونيد از تابع API هم استفاده کنيد:
ويا از کنترل Windows Media Playerنوشته شده توسط آقاي محسن واژدي:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
Dim FileName$
FileName = "C:\test.mp3"
mciSendString "close my_alias_nam", 0, 0, 0
If mciSendString("open " & FileName & " type MPEGVideo alias my_alias_nam", 0, 0, 0) = 0 Then
mciSendString "play my_alias_nam from 0", 0, 0, 0
End If
End Sub
Private Sub Command2_Click()
mciSendString "stop my_alias_nam", 0, 0, 0
mciSendString "close my_alias_nam", 0, 0, 0
End Sub
Private Sub Command3_Click()
mciSendString "pause my_alias_nam", 0, 0, 0
End Sub
Private Sub Command4_Click()
mciSendString "play my_alias_nam", 0, 0, 0
End Sub
موفق باشيد
آخرین ویرایش به وسیله MohammadGh2011 : دوشنبه 10 مهر 1391 در 12:38 عصر
سلامممممممممممممم
ببخشید من 1 برنامه نوشتم که تو از مدیا پلیر استفاده میکنم و چند فایل mp3 رو اجرا میکنم
اما وقتی که setup برنامه رو درست میکنم و روی سیستم دیگه ای اجراش میکنم فایل ها باز نمیشه
اگه لطف کنید و کمکم کنید ممنون میشم
(فقط 1 خورده عجله دارم :(((((( )
سلام
اصلا خطا نمیده برنامه کامل نصب و اجرا میشه
ولی وقتی میخاد اون فایل صوتی اجرا بشه، نمیشه انگار که هبچ ادرسی دهی نشده
سلام عليکم
از چه کامپوننتي استفاده کرديد؟Windows Media Player ؟
اگه از ويندوز 7 استفاده ميکنيد و برنامه رو تو 7 نصب کرديد ،تِم ويندوز رو حالت شيشه اي کنيد اين مشکل من هم بوده .
شاید آدرس فایل رو ثابت در نظر گرفتی! منظورم اینه مثلا آدرس رو این جوری داده باشی:
"C:\Program Files\My Program\File.mp3"
ولی موقع نصب مسیرش یه جا دیگ باشه