تشغيل برنامجك من خلال الضغط على الملفات مباشرة (معلومة(command line)
السلام عليكم ورحمه الله
ما هو command line
وما هو وظيفة command line
وازاى ممكن نستخدمه فى برامجنا
كل هذه الاسئله هتلقى اجابتها فى المثال الصغير الى احنا هنعمله دا
وفى المثال دا هنتعلم ازاى نشغل برنامجنا من خلال الضغط على الملفات مباشرة
عايز الكل يركز معايا فى المثال وهو مثال بسيط جدا
افتح مشروع جديد وبعد ذلك ضع
اداه imagebox
واكتب هذا الكود فى حدث form _load
كود:
Private Sub Form_Load()
On Error GoTo ahmed
Dim s As String
s = Command$
If s <> "" Then
s = Mid(s, 2, Len(s) - 2)
Image1.Picture = LoadPicture(s)
Exit Sub
End If
ahmed:
MsgBox "هذا الملف لا يصلح"
End Sub
عن طريق الضغط على make project .exe من قائمة file
بعد كدا هيطلب منك المكان الى هتحفظ فى ملف exe اختار اى مكان وليكن على desktop مثلا
بعدين روح على اى صورة عندك على الهارد دسك ودوس عليها كليك يمين
ثم open whit >>>>> choose program
هتظهرلك شاشة وفيها زرار مكتوب عليه browse اضغط عليه ثم اختار برنامجنا الى كنا محولينه exe
ثم بعد ذلك هتلقى مربع اختيار مكتوب جانبه always use the selected قم بالضغط عليه
ثم اضغط ok
هتلاحظ ان البرنامج اشتغل وراح محملك الصورة فى الاداه imagebox
طب نيجى بقا الى شرح الكود
كود:
Dim s As String
هنا حجزنا متغير من النوع string يعنى نص واسمه s
كود:
s = Command$
بص بقا command$ هترجعلنا مسار الملف الذى المستخدم شغل برنامجك من خلاله
يعنى كدا هيجيب المسار ويحطه فى المتغير s
كود:
If s <> "" Then
هنا انا بشرط عليه بقوله لو s لاتساوى "" معنها انها مش فاضية هيعمل ايه
كود:
s = Mid(s, 2, Len(s) - 2)
هنا استخدمنا الداله mid مع الداله len
احنا قولنا فوق ان command $ بترجع المسار بتاع الملف بس بترجعو بين العلامتبن التنصيص ""
وعلشان كدا استخدمنا الداله mid مع الداله len علشان نشيل علامتين التنصيص
كود:
Image1.Picture = LoadPicture(s)
فى هذا السطر انا بطلب من الاداه image انها تحمل الصورة الموجودة مسارها فى المتغير s
كود:
Exit Sub
علشان يطلع برة sub وماينفذ بقيت الاوامر
طب واحد دلوقتى هيسالنى ويقلى طب ايه لازمة جمله
On Error GoTo ahmed
اقولك بكل بساطة نفترض ان المستخدم عايز يشغل صورة على البرنامج طبعا هنا الصورة هتظهر فى image
بدون اى مشاكل طب لو المستخدم شغل اى ملف تانى على البرنامج ومكنش صورة ايه الى هيحصل ؟؟؟
صح هيطلعله error وعلشان كدا بقوله لما يحصل error روح للسطر الى مكتوب فيه ahmed
هيقوم نازل على السطر الى مكتوب فى ahmed وبعدين هينفذ الى تحتيه الى هى msgbox
بعدين هيخرج بارة sub
بهذا المثال الصغير اكون عرفتك ازاى نستخدم command line فى برنامجك
على فكرة انا والله دوخت لحد ما وصلت لهذه المعلومة
كنت عمال افكر ازاى اشغل الملفات على برنامجى بمجرد ان المستخدم يدوس على الملف
وسالت الدكتور الى بيدرسلى وكانت اجابته
لا اعرف
بس هو قلى كدا علشان افكر فيها واقدر اعرفها لوحدى لحد ما الحمد لله قدرت اوصل للطريقة
الى انتو شوفتوها دى
وعلى فكرة command line هتحتاجها فى برامج كتير جدا
يعنى على سبيل المثال لو انت بتعمل برنامج مالتى ميديا وعايز لما المستخدم يضغط على الملف
يشتغل على برنامجك
اخيرا اتمنى ان اكون اقدرت انى اوصل المعلومة بشكل بسيط ومفهوم
واى سوال او اسفسار انا جاهز
الموضوع منقول من منتديات برامج برو ولاكن ايظاً لمن لديهم اي سؤال فأنا جاهز لكنت اعددت التقرير ولاكن لضيق الوقت ولا كن الموضوع هذا يفي بالغرض على اكمل وجه
" ======================================================= "
" انتهى الاعلان او الموضوع او الخبر "
خبير سيو تواصل معي : خبير سيو
ميز اعلانك من هنا : اعلان رابط نصي دو فلو على منتديات هندسة بلا حدود 5$ فقط لشهر واحد - متجر خدمة لي
اعلان مميز : امتلك متجر الكتروني احترافي مع منصة استقل
خدمات تحسين سيو المواقع
" فضلا وليس امرا شارك الموضع مع الجميع عبر المواقع لتعم الفائدة "
البلد
الاوسمة الخاصة
الجنس : 
عدد المساهمات : 
الإثنين 08 سبتمبر 2014, 7:30 am
هام جداً: قوانين المساهمة في المواضيع. انقر هنا للمعاينة 
