ذخیره فایل در پروژه [بایگانی]

king ag

پنج شنبه 21 بهمن 1389, 15:17 عصر

با سلام
من تازه واردم
یه سوال داشتم
فقط لطفا سریع پاسخ بدید که خیلی مهمه
هیچ راهی وجود نداره که برای پخش فایل موسیقی در ویژوال بیسیک نیاز به لینک نباشه و فایل تویه خود پروژه سیو بشه و دیگه نیاز به حمل اون نباشه؟
شنیدم سورسش هست
لطفا اگه میونید خیلی سریع راهنماییم کنید که خیلی عجله دارم

Slytherin

پنج شنبه 21 بهمن 1389, 16:02 عصر

بله، باید فایل های مورد نظرتان را resource کنید. سرچ کنید، نمونه تو سایت زیاده.

محسن واژدی

پنج شنبه 21 بهمن 1389, 17:03 عصر

سلام،
برای اینکار باید فایلتون رودر ریسورس برنامه قرار بدین سپس با دستور زیر اونو به جایی در خارج از برنامه منتقل کنین، سپس اونو با APIی PlaySound یا توابع mci اجرا کنین:

Dim dat() As Byte
dat = LoadResData("101", "CUSTOM")
Open "c:\my_snd.mp3" For Binary As #1
Put #1, , dat
Close

موفق باشید

king ag

جمعه 22 بهمن 1389, 20:29 عصر

یک سوال دیگه هم اشتم
الان من ریسورسش رو نوشتم
کد دادم بهش که بره مثلا تو درایو c سیو بشه
حالا میخوام بعد از این که سیو شد و بعد از بستن برنامه اون فایل خود به خود shift delete بشه
ممنون میشم کدش رو بنویسی
برا سیو از این کد استفاده کرم:
Private Sub Form_Load()

Dim c() As Byte

c = LoadResData(101, "CUSTOM")

Open "c:\FileName.mp3" For Binary As #1

Put #1, , c()

Close #1

End Sub

محسن واژدی

جمعه 22 بهمن 1389, 20:59 عصر

برای حذف خودکار بعد از بستن برنامه دستور زیر را در رویداد Unload فرم برنامه تون بنویسین:

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Kill "c:\FileName.mp3"
End Sub

موفق باشید

king ag

جمعه 22 بهمن 1389, 21:29 عصر

دیلیت میشه ولی موقع اجرا کردنش شانسی باز میشه
یعنی یه دور میزنه باز میشه
دو دور میزنی باز نمیشه
چی کار کنم؟

محسن واژدی

شنبه 23 بهمن 1389, 15:42 عصر

دیلیت میشه ولی موقع اجرا کردنش شانسی باز میشه
یعنی یه دور میزنه باز میشه
دو دور میزنی باز نمیشه
چی کار کنم؟

منظورتون رو متوجه نشدم میشه بیشتر توضیح بدین

king ag

شنبه 23 بهمن 1389, 16:11 عصر

خیلی ممنون
مشکلم ر. حل کردم
موفق باشید