سوال

[Mohsen.Sh_PC]

سلام من با استفاده از دستورات زیر یک صدا رو در فرم پخش میکنم.این دستورات آهنگی که آدرسشو دادم پخش میکنه. اما مشکل اینجاست که با تغییر دادن محل نرم افزار دیگه آدرس آهنگ درست نیست. لطفا کمک کنید تا یجوری آدرس فعلی نرم افزار رو با اون بدست بیارم.
متشکرم.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[!Plus]

سلام من با استفاده از دستورات زیر یک صدا رو در فرم پخش میکنم.این دستورات آهنگی که آدرسشو دادم پخش میکنه. اما مشکل اینجاست که با تغییر دادن محل نرم افزار دیگه آدرس آهنگ درست نیست. لطفا کمک کنید تا یجوری آدرس فعلی نرم افزار رو با اون بدست بیارم.
متشکرم.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

هم می تونی از اشیاء خود VB استفاده کنی... و هم می تونی... از توابع API استفاده کنی...!؟!

من راه اول رو می گم... چون ساده تره...!؟!

یه شئ به اسم App تو VB وجود داره... که یه خاصیت داره که اسمش Path هستش...!؟!

هر بار که برنامه اجرا میشه... مقدار این خصلت برابر با مسیر برنامه میشه...!؟!

یعنی می تونی کد زیر رو برای اجراء اون آهنگ به کار ببری...!؟! :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

البته در صورتی درست کار می کنه که آهنگ تو یه فولدر به اسم Sound باشه...!؟!

واسه درک بهتر... این یه خط کد رو اجرا کن...!؟! :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

راستی... واسه پخش آهنگ بهتره که کتابخانه های Windows Media Player استفاده کنی...!؟! چون خیلی قوی تر و انعطاف پذیر تر هستند...!؟!

موفق باشی...!؟!

[Mohsen.Sh_PC]

متشکر
یک سوال دیگه داشتم
میخوام با خطاهای کار با فایل از طریق دستور Select Case مقابله کنم.
اما نمیدونم که کجا باید این دستور رو بنویسم.
مثلا به کد زیر نگاه کنید.
در این کد به مقابله با کد 76 یا مسیر پیدا نشد" پرداختم اما باز هم در صورت وجود نداشتن فولدر گیم در درایو سی پیغام خطا ظاهر میشه و برنامه بسته میشه.
حالا این Select Case رو کجا باید بزارم.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[!Plus]

اول باید به برنامه بگید که در صورت بروز خطا چه کار کنه...!؟! اینجوری...!؟! :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

ErrorLabel اسم یه برچسب ه که محل کد های کنترل خطا رو مشخص می کنه...!؟! (می تونید هر اسم دیگه ای براش انتخاب کنید...!؟!)

هر کدی که بعد از ErrorLabel قرار بگیره... در صورت بروز خطا اجرا میشه...!؟! (اگه از عبارات شرطی برای کنترل بروز خطا استفاده نکردید... قبل از این برچسب... دستور Exit Function یا Exit Sub رو اضافه کنید...!؟!)

برای مثال... بازنویسی کد شما... به این صورت میشه...!؟! :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

یه روش هم هست که تنبل ها ازش استفاده می کنن...!؟! (بعضی وقت ها هم که زمان واسه نوشتن برنامه محدوده... می تونید ازش استفاده کنید...!؟! ) اگر هم می خواید... خیلی ساده... همه خطا ها رو نادیده بگیرید... این یه خط کد رو به اول تابع یا زیر برنامه تون اضافه کنید...!؟! (من که بهتون توصیه نمی کنم...!؟! می تونه مشکلات زیادی رو به بار بیاره...!؟! )

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

البته توجه کنید... که تمام این روش ها... فقط جلوی خطا های زمان اجرا رو می گیره...!؟!

اگه مشکلی بود... من در خدمتم...!؟!

موفق باشید...!؟!