الدرس الاول : برمجة الازرار

[جموح]

: الــدرس الأول : تكملة البـرنامج .
* بــرمـجــة الإزرار Notepad :
" وظيفة هذا الزر هي تشغيل برنامج المفكره الذي يأتي مع الويندوز والمثبت في جهاز المستخدم "
- لتشغيل برنامج آخر عن طريق برنامجنا نستخدم الأمر ****l .
- نكتب الأمر التالي في نافذة البرمجة داخل حدث الأزرار Notepad :
Dim X as Integer
X = ****l ("notepad.exe", AppWinStyle.NormalFocus ) a
- في السطر الأول من الأمر السايق ، عرفنا عن المتغير X .
- الأمرين AppWinStyle و NormalFocus أمرين إظافيين لتحديد نمط نافذة برنامج المفكره ، وحجمها عند فتحها .

================================================== ==================
- لكتابة الأمر بدون الإظافات كالتالي :
Dim X as Integer
X = ****l ("notepad.exe") a
" سيفتح برنامج المفكرة في نافذه مصغره أسفل شريط المهام "
================================================== ==================
* يسهل علينا فيجوال بيسك الحصول على التعليمات التي نريدها ، فالصوره التاليه توضح لنا كيف أننا بمجرد أن كتبنا كلمة AS عرض علينا البرنامج قائمه من الأعضاء المتاحة .
* نلاحظ هنا أني قمت بكتابة الثلاثة احرف الاولى من الأمر فقربني فيجوال بيسك من ما أردته .

اظغط مفتاح Tab من لوحة المفاتيح لاختيار الأمر بدلاً من كتابته بنفسك .
================================================== ==================
* الصورة التالية توضح لنا كيف انه بمجرد كتابة الأمر ****l داخل نافذة البرمجة ثم فتح القوس ظهر لنا مستطيل يبين لنا الوسائط المطلوبه للأمر ويحدد نوعها .

================================================== ==================
* وبعد كتابة أسم البرنامج "notepad.exe" ثم حرف الفاصلة ، ظهرت لنا قائمة أخرى أعلى الأمر تعرض لنا جميع الخيارات المتاحه للوسيط الثاني Style الذي يحدد نمط نافذة البرنامج الذي سيقوم أمر ****l بتشغيله .

================================================== ==================
================================================== ==================
* بـــرمجة الأزرارين Import & Export " استيراد وتصدير " :
" تعمل كزرين نسخ ولصق "
= زر تصدير Export " نسخ " :
" وظيفته هي نسخ محتويات مربع النص إلى حافظة الويندوز "
- نكتب الأمر التالي :
Clipboard . SetDataObject ( ****box1.**** ) a

= زر إستيراد Import " لصق " :
" وظيفته هي لصق محتويات الحافظة إلى مربع النص "
- الأمر التالي :
Dim txtdata As IDataObject = Clipboard . GetDataObject ( ) a
a ' Check to see if the Clipboard holds ****
If ( txtdata . GetDataPresent (DataFormats.**** ) ) then
****Box1.**** = txtdata.GetData(DataFormats.****) a
End If

نهاية الدرس الاول

[ضمتني الين طاح عقالي]

تسلم يمينك اخت ميركوداندس على الدرس الرائع

[جموح]

الله يسلم قليبك

اسعدني تواجدك الدائم

[عنـ الشوق ـاد]

تسلم يمناك اخت ميركوداندس

[محايد1]

تسلمين اختي ميركوداندس

درس رائع

تحيتي لك