مشكلة في ربط الملفات مع الفيجوال بيسك.نت

السلام عليك،

المشكل كله في المسار لانه ثابث ولا يتغير، والحل بسيط جدا وهو باستخراج المسار الذي ينفذ منه البرنامج لذلك استخدم Application.StartupPath

لكن يجب إضافة الرمز \ للمسار الذي ترجعه هذه الدالة

Dim Path as string

Path = Application.StartupPath & "\" ' example C:\Program File\MyAp

وبالتالي المسار الكامل للبرنامج هو المتغير النصي Path

من ChoclatB0y

:)

شكرا .. يا choclatboy

والله يعطيك ألف عافية

:D وماقصرت

السلام عليك

Path الذي حصلنا عليه من الكود السابق هو عبارة عن المسار الذي يوجد فيه برنامجك انطلاقا من \:C

وإذا اردت تشغيل الملف fly.swf الموجود في المجلد flash الموجود بدوره في نفس المجلد الذي يوجد به برنامجك فالكود يصبح كالتالي:

AxShockwaveFlash1.Movie = Path & "flash\fly.swf" 'play the flash file

أتمنى أن تكون قد وضحت الصورة.

ChoclatB0y

شكرا ماقصرت بس انا سويت نفس الاكواد اللي عطيتنياه بس ماضبط معي

وهذا هو الملف شوف ايش سالفته لانه جنني ماطلع بالكود أخطاء ومعناه ان الكود صحيح ماادري ليش ماضبط

تعبناك معانا

WindowsApplication6.zip

السلام عليك،

أولا لقد تم اشتغال البرنامج كما هو مطلوب بالضبط الصورة 1

المشكل هو أن البرنامج عندما نعمل عليه يكون موجودا في مجلد bin

والكود Application.StartupPath تعيد المسار من \:C حتى المجلد bin

لذا لتجاوز هذه المشكلة قومي بوضع نسخة من fly.swf في المجلد bin لمشروعك واستخدمي الكود الموجود في الصورة 2

ChoclatB0y

شكرا اخوي

:)

والله ماادري وش أقولك تعبناك معانا كثيررررررر

بس معليش كل هذا لعيون الفيجوال بيسك.نت

نتحمل وش نسوي بعد

ويعطيك ألف عافيه

وجزاك الله خيرررررررر

:D