سوالف للجميع - مساعدة في هذا الكود

ateq1

04-01-2002, 10:30 PM

السلام عليكم ورحمة الله وبركاته

اخوتي الرجاء مساعدتي في هذا الكود !!

حيث قمت بعمل برنامج صغير مكون من فورم واحد

و 2 كوماند .

فكرة البرنامج :

عندما اضغط على الكوماند الاول يفتح لي صورة محدده في الجهاز " ولتكن موجوده في C " .

عند الضغط على الكوماند الثاني يقوم بتشغيل برنامج ذو امتداد exe ولنفرض وجوده في C .

ارجو مساعدتي في هذا الكود .

ــــــــــــــــــــــــــــــــــــــــــــــــــ
ـــــــــــــــــــــــــــــــــــ

طلب اخر وهو انني انتهيت من برنامج مكون من عدد 5 فورم حيث ان الاول هو الرئيسي .

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

تحياتي

في امان الله

مهره

05-01-2002, 01:24 AM

انا ما اعرف شي بالبرمجه
وذا تقصد كيف عمل الاوتو رن شف الرابط هذا
http://www.swalif.net/sforum1/showthread.php?threadid=98444

ateq1

05-01-2002, 02:57 AM

مشكورة اخت مهره !!

اذا مالك في البرمجة والله يكفي وجودك المثمر هنا في المنتدى ,,

اما عن Auto run بحاول فيه ان شاء الله ...

ــــــــــــــــــــــــــــــــ

الف شكر وما زلت انتظر رد اخوتي عن الاكواد الله لا يهينكم .

في امان الله

الخمشي

05-01-2002, 09:16 PM

السلام عليكم ورحمة الله وبركاته:
أخي اعذرني على التأخير، ولكن الاختبارات لم تدع لنا متسعاً من الوقت.
سوف أشرح لك باختصار، الكود اللازم لعمل برنامجك. واعذرني على عدم الإطالة في الشرح. فأنا مشغول. لكن اسأل إن كان هناك شيء لم يتضح لك.
إجابة السؤال الأول:
أنشئ على الفورم كائن رسمه image لكي تعرض فيه الصورة التي تريدها، ثم ضع هذا الكود في حدث النقر على زر command الأول. مع ملاحظة تغيير مسار الصورة الموجود بين علامتي التنصيص.
Image1.Picture = LoadPicture("C:\WINDOWS\سطح المكتب\cooll.gif")

بالنسبة للسؤال الثاني:
انسخ السطر المكتوب بالأحمر إلى قسم التصريحات في النافذة، أما السطر الأخضر فانسخه وضعه في إجراء النقر على زر COMMAND الثاني. هذا الأمر الذي وضعته أنا يقوم بفتح برنامج الدفتر، كل ماعليك هو أن تضع بين علامتي التنصيص مسار البرنامج الذي تريده فتحه.

<FONT COLOR =RED>Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long</FONT>

<FONT COLOR =GREEN>WinExec "C:\Program Files\Accessories\WORDPAD.EXE", 1</FONT>

ateq1

05-01-2002, 11:51 PM

جزاك الله خير

وبالتوفيق في الاختبارات :)

تحياتي لك

في امان الله

الخمشي

06-01-2002, 12:29 AM

كيف الكود؟ هل اشتغل معك من دون مشاكل؟

ateq1

06-01-2002, 04:19 AM

اخي الكريم لقد وصلني هذا الكود وجربته ونجح العمل معي :

هناك اداة اسمها picture box

code:--------------------------------------------------------------------------------
Picture1.Picture = LoadPicture("مسار الملف")
استخدم
Picture1.AutoSize = True
لتجعل الأداة بحجم الصورة الطبيعية
--------------------------------------------------------------------------------

ويمكنك استخدام أداة Image

code:--------------------------------------------------------------------------------
Image1.Picture = LoadPicture("مسار الملف")
--------------------------------------------------------------------------------

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

code:--------------------------------------------------------------------------------
Image1.Stretch = True
--------------------------------------------------------------------------------

أما تشغيل ملف ذو امتداد EXE

code:--------------------------------------------------------------------------------
Shell "مسار الملف", vbNormalFocus
--------------------------------------------------------------------------------

جزاك الله خيرا وشكرا على اهتمامك وحرصك على المساعده

في امان الله