ياسر العربى

رابط الفيجوال بيسك 6 كامل من رفعي لمن يعانون من مشاكل التنصيب يرجى تشغيلة كمسئول يعمل علي ويندوز 8 64 و7 32 واكس بي بجميع اصدراتها هذا ما تم تجربته عليه http://www.mediafire.com/download/b7r034dv0vcba0h/VB6.0+Enterprise.rar

رابط الفيجوال بيسك 6 كامل من رفعي لمن يعانون من مشاكل التنصيب يرجى تشغيلة كمسئول يعمل علي ويندوز 8 64 و7 32 واكس بي بجميع اصدراتها هذا ما تم تجربته عليه http://www.mediafire.com/download/b7r034dv0vcba0h/VB6.0+Enterprise.rar يتبع

اخي الغالي وضح وجهه تعاملك هل هي مع الفيجوال6 ام الاكسيل اذا كنت تقصد الفيجوال6 فانا لم اشرح الفريم بعد اما الاكسيل فتستطيع ايجاد طلبك في هذه السلسة http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/ لاخي الصقر او ان ترفق مثال فيه توضيح مشكلتك لحلها

بسم الله الرحمن الرحيم هنشرح اليوم كيفية التعامل مع ادوات DriveListBox DirListBox FileList Box أسماء المشغلات DriveListBox : وهذه الأداة تتعامل مع محركات الأقراص الصلبة. عرض المجلدات DirListBox: تظهر كل المجلدات الموجودة داخل أحد المجلدات أو أحد المجلدات الموجودة داخل أحد المشغلات و تعطينا إمكانية الاختيار منها. عرض الملفات FileList Box : تعرض لنا قائمة من الملفات الموجودة داخل مجلد معين و تعطينا إمكانية اختيار أحدها. و التعامل معها. ما الفائدة من هذه الادوات: نستطيع عن طريق استخدام هذه الادوات الثلاث الوصول لاي ملف نحتاجه وكأنك تتصفح الكمبيوتر للوصول لملف انت بحاجه له او لتشغيله ايا كان فيديو صوت ملف فلاش ملف كتابي الخ طيب وايه لزمتها ما انا ممكن اتصفح وخلاص من خارج البرنامج واجيب اللي انا محتاجه طيب متفكر كدا معايا بما ان معانا داخل برنامجنا هذه الادوات نقدر نستغلها في تشغيل الملفات اللي محتاجنها داخل برنامجنا علي سبيل المثال نعمل برنامج لتشغيل الصوتيات مثلا او الفيديو او مشغل فلاش او تصفح ملفات كتابيه مثلا الخ طريقة العمل سيتم تحديد الدريف من اول اداة DriveListBox وبناء عليها يتم سرد المجلدات في الاداة الثانية DirListBox ويتم الاختيار من الاداة الثانية المجلد الهدف وبناء على المجلد الهدف يتم سرد الملفات الموجودة به في الاداة الثالثة FileList Box وبناء علي اختيار الملف من الاداة الثالثة يتم تشغيل الملف تلقائي داخل برنامجنا خلاص توكلنا علي الله ونعمل برنامج مشغل صوتيات وفيديو كمان ودا مجرد مثال لشرح طريقة عمل الادوات وصولا لتشغيل الملف الهدف في النهاية يلا كله يفتح البرنامج الادوات مشروع جديد الاداوت الثلاثة المذكورة كما بالصورة طيب يلا كدا نربط الثلاثة ادوات ببعض عشان لما نقوله هات البارتشن كذا تروح الاداة الاخرى تلقائي تفتح المجلدات اللي في نفس البارتشن وعند الضغط علي المجلد المحدد يتم فتح الملفات بداخله وعند الضغط علي الملف يتم تشغيله اكواد ربط الادوات Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub شرح الاكواد في حدث التغيير عند اختيار احد الدريفات يبقي مسار الاداة الثانية بيساوي مسار الدريف ويبقي كدا ظهر لنا ملفات الدريف في الاداة الثانية الكود الثاني عند اختيار مجلد من الاداة الثانية يبقي مسار الاداة الثالثة بيساوي مسار الاداة الثانية ويتم عرض الملفات الموجودة به طيب كدا الملفات كلها هتظهر واحنا عاوزين نخصص برنامجنا لبعض الامتدادات فقط كيف نخصص امتدادات تظهر فقط عن طريق الكود التالى Private Sub Form_Load() File1.Pattern = "*.mp3;*.mp4;*.flv;*.mkv" End Sub نضع هذا الكود مثلا في حدث تحميل الفورم وهنا قمت بتحديد الامتدادات المراد عرضها وهي امتداد الصوت وبعض امتدادات الفيديو وبامكانكم وضع اي امتدادات اخرى طيب احنا كدا وصلنا لاخر شئ بالنسبة للادوات وناقص شئ واحد وهو عند الضغط علي الملف يتم تشغيله لعمل هذا نضيف هذه الاداة للفورم بتاعنا كلنا عارفين الاداة دي وهيا ويندوز ميديا بلير ودا تقريبا في كل نسخ الويندوز يعني مش هنقابل مشكلة تسجيل الاداة ومش موجودة ومش بتفتح معايا لا ابدا البرنامج دا هيفتح باذن الله علي معظم الاجهزة بدون مشاكل نيجي لاكواد التشغيل الملفات التي يتم اختيارها داخل الميديا بلير Private Sub File1_DblClick() WindowsMediaPlayer1.URL = Dir1.Path & "\" & File1.FileName WindowsMediaPlayer1.Controls.play End Sub عملت الكود في حدث الدبل كليك داخل الفايل ليست بوكس عشان مش كل ما اختار ملف يشتغل من اول كليك لا الملف اللي محتاج تشغله دبل كليك عليه يشتغل معاك وطبعا ممكن نعمل ازرار تحكم لايقاف وتشغيل ما نريد وطبعا الكل هيبدع في الموضوع دا وبلمسات المواضيع اللي فاتت هيبقي اجمل وادي الكود كامل عشان تعرفو باقل كود ممكن نعمل حاجه كبيرة ومميزة Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub File1_DblClick() WindowsMediaPlayer1.URL = Dir1.Path & "\" & File1.FileName WindowsMediaPlayer1.Controls.play End Sub Private Sub Form_Load() File1.Pattern = "*.mp3;*.mp4;*.flv;*.mkv" End Sub وبكدا نكون انتهينا من نقطة تحديد الملفات وتشغيلها وقريبا باذن الله مثال اخر لملفات اخرى لتأكيد المعلومة وتداولها في اكثر من مسار نرجو من الاخوة الكرام الرد علي الرابط التالي http://www.officena.net/ib/topic/65630-الردود-والاستفسارات-عن-دروس-الفيجوال-بيسك6-والاكسيل-ياسر-العربي/ مرفق ملف الشرح خالص تحياتي ياسر العربي يتبع drive.rar

كل عام وانت الى الله اقرب اخي الغالي

وكل عام ونحن الى الله اقرب

حاولت اعدل شوية في اوجه المقارنة تقبل تحياتي

اخ الغالي سأبحث لك في هذا الموضوع لاني لم اقم بتثبيت البرنامج علي نظام 10 سواء 32 او 64 وارجو من الاخوة المتابعين ان يذكرو نظام التشغيل لديهم لنعرف مدى عمل البرنامج ولا اظن انه يوجد نسخه محمولة بكل ادواتها ومكتباتها ومراجعها لان البرنامج يقوم بزرع هذه الاداوت داخل نظام التشغيل وتسجيلها في الريجستري فظني انه اذا جائت نسخه محمولة بردو ستجد مشكلات المكتبات والاداوت ممكن تريح دماغك حاليا وتعمل نسخة اكس بي فير(شوال) علي ويندوز 10 ايه رأيك وتسطب عليها البرنامج لانه مثل هذه البرامج فات عليها زمن احنا متأخرين جامد انا كنت بشتغل علي ويندوز ميلينوم و98 وكان الفيجوال6 ساعتها له بريقه ولمعانه اما الان فهذا هو الموجود VB.NET والتي تعتمد في عملها علي مجموعات النت فريم وورك باصداراتها بجانب انك تستطييع اضافة بعض الادات الاخرى ايضا ومن المعلوم ان اصدارات انظمة التشغيل الاخيره كلها تعتمد علي حزم النت فريم وورك بذلك تتجنب نقص الادوات وتسجيل الادوات والكلام دا كله

شكرا حبيبي علي الهدية الجميلة والحمد لله ان ال SKIN اشتغلت معاك كل الشكر والتقدير لك اخي الغالي ولمن يعاني من تسجيل الادوات هذه اداة اخرى لتسجيل الاداوات http://up.top4top.net/downloadf-559jzni1-rar.html

عند الضغط كليك يتم تنفيذ الطلب عند الضغط علي احد الارقام الموجودة بالكمبوبوكس او التحرك بالاسهم لاعلى او لاسفل لاختيار من قائمة الكمبو ام حدث التغيير يتم بالكتابة داخل الكمبو بوكس ويتم جلب بيانات ما تكتب ولا يمكن لحدث التغيير عمل وظيفة ما يعملها الكليك فالحل الافضل وضع نفس الكود في التغيير والكليك ويبقي كدا ضمنت كل طرق الاختيار من الكمبوبوكس اما باختيار من القائمة والتحرك بالاسهم او الكتابةداخل الكمبوبوكس او اختيار اي حدث يتناسب مع طريقة عملك

بارك الله فيك اخي الغالي استاذ مختار فكرة جميلة ويمكن الاستفادة منها بطرق عدة تقبل مروري المتواضع

اخي تحتاج اما ان يتم تعديل بعض الاكواد ليعمل على نفس الاوفيس او تقوم بتغيير الاوفيس باصدار اخر ليعمل لانه مصمم علي اوفيس غير الموجودة يستحسن ارفاق مثال

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

معلش ياعم ابراهيم اسمع كلامي وشوف الامر اللي قولت لك عليه عارف ليه انت لما تعمل الفورم في وضع فكسد يتم اخفاءه من التاسك بار ولما يبقي فيه ازارا الخروج والماكس مايز والماين والاكس بيظهر عادي اما رسالة الكومبو بوكس لايتم التعدل علي الارتفاع التعديل يكون متناسب مع حجم الخط كبر الخط يكبر الكمبو وفيه ادوات الvba ممكن تستخدمها لو محتاج نفس ادوات اللي كنت بتستخدمها مع الاكسيل لو قصدك ملف الاكسل نفسه حط كود اظهاره وجرب YXL.Visible = True

انا معك حبيبي تفضل بوضع طريقة عملك لها والمشكلة التي تظهر لك بوضوح

اخي الغالي ابراهيم متى تحدث هذه المشكلة عند حفظ اي مشروع عموما ولا مشاريع معينة تحتوي ادوات غير الاساسية ثانيا لا تقم بتسمية الادوات او الفورم باللغة العربية لان بعض هذه المشاكل تكون ناتجه عن اللغة اذا كانت تظهر عند حفظ اي مشروع حاول تشيل البرنامج وتسطبه تاني

تفضل لعله المطلوب form1.rar لم ارى مشاركتك اخي الغالي عبد العزيز شكرا لمبادرتك انت نشنت المطلوب انا واضح اني لم افهم المطلوب جيدا حيث وضعت حذف الشريط كامل

ارجو منك محاولة تنزيل النسخة الكاملة حتى تستطيع التعامل مع معظم الادوات والمكتبات وانا موجود حاول انشاء الملف من الاول من جديد وسيبك من المثال وقم بتطبيقه عندك وبعد انتهائك من تنفيذه فلتخبرنا بالملاحظات

كل الشكر والتقدير لحبيبي الغالي ابو يوسف لهذه الهدية الجميلة الغالية والتلاوة الاجمل لكم مني فائق الاحترام ونفعنا واياكم بالقرآن وجعله شفيعا لنا اللهم امين اخي الغالي ابراهيم لو ركزت في الموضوع والردود ستجد اني قلت ان البرنامج غير قادر مع التعامل مع هذه الملفات حيث ان ملف الاكسيل بالفعل خارج الملف التنفيذي ومستقل بذاته فاالبرنامج هيستخرج ايه؟؟؟؟؟؟ اكمل موضوع التحدي وستجد الشرح

الموضوع تم ايقافه على اساس وضع البرنامج في نطاق للتحكم به وعدم انتشاره بين الجميع فيستخدمه الصالح والطالح فالاول يراعى ضميره في استخدامه والاخر ينتهز الفرصة لسرقة مجهود الاخوة الخلاصة اذا اردت فك ملف تنفيذي يتم ارساله لي او عمل موضوع مستقل فيه الملف المراد فكه ويتم رؤية مدى قابليه فك الملف من حيث حقوق المبرمج اذا توفرت شروط فك الملف يتم فكه وارساله لكم اما اذا لم تتوافر شروط الفك يتم تجاهل الملف ولكم كل الشكر والتقدير

تأكد انه تم اضافة المكتبة تأكد من ان ملف الاكسيل في نفس مسار البرنامج وبنفس الاسم والامتداد احفظ المشروع ثم افتحه مره اخرى قم بتحويل الملف لتنفيذي وشغل الملف التنفيذي جرب وابلغني وانت تقوم باضافة المكتبة هل من مكتبات اخرى مكتوب بجانبها missing من اللي متأشر عليهم بعلامة صح

هل من صورة للخطأ عشان احدد لك وياريت قبل تصوير الخطأ حول ملفك لتنفيذي على كدا وشوف نفس الخطأ ولا لا

والله اخي الغالي انا مكنتش لسه حطيت عناصر ونقط وبنود للمواضيع وبديت الدورة عشان خاطر الاخوة ميفتكروش اني ببخل عنهم بحاجه او ان انا مقصر معاهم وان شاء الله احاول انظم البنود والعناصر لك كل الشكر والتقدير حبيبي ابو يوسف تفضل بعمل الاتي وشغل المشروع بعد كدا وقولي الملاحظات