محمد الفرح
Well-Known Member
بسم الله الرحمن الرحيم
شروط الإنظمام للدرس :-
1- ان تكون مسجل (منه هنا)
2- ان يكون لك اكثر من 5 مشاركات والرجاء تكون في اكثر من موضوع وان تكون مفيددة . مشجعه .
(لاتحاول وضع المشاركات في موضوع واحد لانك سوف تعرض للطرد لامجال)
هذا الشرح خاص مقدم لشبكة كتاب العرب
www.arabsbook.com
الان نأتي للدرس:-
اولا:- افتح عمل جديد
ثانيا:-سوف نقوم بعمل قوائم وهذا شرح لعمل قائمة ملف.
اولا نضغط على Ctrl+E
سوف تظهر لنا هذه القائمة
1- اسم القائمة
2- اسم القائمة بالانجليزي(او اي حرف يدل عليها)
االان سوف نعمل قائمة ملف ينسدل اسفلها
فتح . حفظ . جديد . خروج
والطريقة سهله انظر للصورة واتبع الارقام
1-اسم القائمة المنسدلة (فتح حفظ جديد خروج)
2- اختصار لقائمة فتح (.open
3-لجعل قائمة فتح منسدلة اسفل ملف
4- لوضع اختصار لفتح
وهكذا على باقي القوائم
الان اعمل القوائم كالتالي ولا تنسى ان تضع نفس الاختصارات لانها الاختصارات المتعارفة دوليا :biggrin:
الان كلكم يتسائل كيف سوف نعمل مربع للكتابة فيه بحيث يمتد اذا كبر المستخدم البرنامج او يصغر اذا صغر المستخدم البرنامج .
سهل جدا قم بوضع text باي حجم .
اضغط مرتين على العمل لتفتح لك منطقة الاكواد
واجعل عملك على
Form ومكان Resize
وضع الكود كما بالصورة.
الان نعدل على خصائص text1 لنجعله يقبل الضغط على انتر (كمابالصورة)
هكذا انتهينا من الشكل الاساسي لنأتي الى الأكواد الخاصة
ــــــــــــــــــــــــــــــــــــ
الأن لنضع اداة commanDailong
وذلك عن طريق الضغط على ctrl+t واختيار الاداة كما بالصورة.
ضعها على عملك وحول اسمها الى cmd كما بالصورة.
الان الاكواد نضغط على قائمة ملف ثم نختار فتح
ونضع هذا الكود كما بالصورة.
شرح الكود
وهذا الرمز لتفادي الاخطاء وعدم اظهارها للمستخدم
2- intfile = FreeFile واضح ملف فارغ
3- cmd.InitDir اول ماتفتح لك نافذه لاختيار الملف هنا تحدد المجلد الذي سوف يفتح تلقائيا انا اخترت القرص D
-4
cmd.DefaultExt وهو نوع الملف الذي سوف نستوردة
5- cmd.Filter الكتابة التي تظهر عند الامتداد
6- cmd.ShowOpen وهذا لتحديد نوع النافذه التي سوف تظهر هل هي للفتح ام للحفظ.
7-
Open cmd.FileName For Input As #intfile
وهذا اصطلاح ويعني انه يفتح الملف المحدد .
Text1.Text = Input$(LOF(intfile), intfile)
وهذا تابع للسابق الا انه يرمز ان الملف الي بدوا ينفتح ينكتب محتواه داخل المستند النصي text1
8-
Close #intfile
skip:
نهاية الاوامر.
________________________
الأن الامر حفظ نفس السابق لكن بعض التعديلات بالاوامر التالية :-
1-
cmd.ShowOpen سوف تصبح cmd.Showsave
2-و
Open cmd.FileName For Input As #intfile
سوف تصبح
Open cmd.FileName For output As #intfile
3-و
سوف تصبح
Print #intfile, Text1.Text
وهذه الصورة النهائية لها
اما كود جديد فهو
text1.text=""
وهكذا انتهينا من قائمة ملف.
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
امر نسخ كودة
Clipboard.Clear
Clipboard.SetText Text1.SelText
وهذا يعني ان نفرخ الحافظة من المعلومات المنسوخة ثم ننسخ المحدد في مربع الحوار text1
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
امر لصق هو
Text1.SelText = Clipboard.GetText
وهذا امر انه يتم لصق البيانات بالمكان المحدد داخل text1
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
امر قص هو
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
نفس امر نسخ لكنه يقوم بحذف المنسوخ
هكذا نهي الدرس استغرق معي وقت طويل ارجوا انا ارى التفاعل جزاكم الله كل خير ادعوا لي .
شروط الإنظمام للدرس :-
1- ان تكون مسجل (منه هنا)
2- ان يكون لك اكثر من 5 مشاركات والرجاء تكون في اكثر من موضوع وان تكون مفيددة . مشجعه .
(لاتحاول وضع المشاركات في موضوع واحد لانك سوف تعرض للطرد لامجال)
هذا الشرح خاص مقدم لشبكة كتاب العرب
www.arabsbook.com
الان نأتي للدرس:-
اولا:- افتح عمل جديد
ثانيا:-سوف نقوم بعمل قوائم وهذا شرح لعمل قائمة ملف.
اولا نضغط على Ctrl+E
سوف تظهر لنا هذه القائمة
1- اسم القائمة
2- اسم القائمة بالانجليزي(او اي حرف يدل عليها)
االان سوف نعمل قائمة ملف ينسدل اسفلها
فتح . حفظ . جديد . خروج
والطريقة سهله انظر للصورة واتبع الارقام
1-اسم القائمة المنسدلة (فتح حفظ جديد خروج)
2- اختصار لقائمة فتح (.open
3-لجعل قائمة فتح منسدلة اسفل ملف
4- لوضع اختصار لفتح
وهكذا على باقي القوائم
الان اعمل القوائم كالتالي ولا تنسى ان تضع نفس الاختصارات لانها الاختصارات المتعارفة دوليا :biggrin:
الان كلكم يتسائل كيف سوف نعمل مربع للكتابة فيه بحيث يمتد اذا كبر المستخدم البرنامج او يصغر اذا صغر المستخدم البرنامج .
سهل جدا قم بوضع text باي حجم .
اضغط مرتين على العمل لتفتح لك منطقة الاكواد
واجعل عملك على
Form ومكان Resize
وضع الكود كما بالصورة.
الان نعدل على خصائص text1 لنجعله يقبل الضغط على انتر (كمابالصورة)
هكذا انتهينا من الشكل الاساسي لنأتي الى الأكواد الخاصة
ــــــــــــــــــــــــــــــــــــ
الأن لنضع اداة commanDailong
وذلك عن طريق الضغط على ctrl+t واختيار الاداة كما بالصورة.
ضعها على عملك وحول اسمها الى cmd كما بالصورة.
الان الاكواد نضغط على قائمة ملف ثم نختار فتح
ونضع هذا الكود كما بالصورة.
شرح الكود
Rich (BB code):
On Error GoTo skip:وهذا الرمز لتفادي الاخطاء وعدم اظهارها للمستخدم
2- intfile = FreeFile واضح ملف فارغ
3- cmd.InitDir اول ماتفتح لك نافذه لاختيار الملف هنا تحدد المجلد الذي سوف يفتح تلقائيا انا اخترت القرص D
-4
cmd.DefaultExt وهو نوع الملف الذي سوف نستوردة
5- cmd.Filter الكتابة التي تظهر عند الامتداد
6- cmd.ShowOpen وهذا لتحديد نوع النافذه التي سوف تظهر هل هي للفتح ام للحفظ.
7-
Open cmd.FileName For Input As #intfile
وهذا اصطلاح ويعني انه يفتح الملف المحدد .
Text1.Text = Input$(LOF(intfile), intfile)
وهذا تابع للسابق الا انه يرمز ان الملف الي بدوا ينفتح ينكتب محتواه داخل المستند النصي text1
8-
Close #intfile
skip:
نهاية الاوامر.
________________________
الأن الامر حفظ نفس السابق لكن بعض التعديلات بالاوامر التالية :-
1-
cmd.ShowOpen سوف تصبح cmd.Showsave
2-و
Open cmd.FileName For Input As #intfile
سوف تصبح
Open cmd.FileName For output As #intfile
3-و
Rich (BB code):
Text1.Text = Input$(LOF(intfile), intfile)Print #intfile, Text1.Text
وهذه الصورة النهائية لها
اما كود جديد فهو
text1.text=""
وهكذا انتهينا من قائمة ملف.
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
امر نسخ كودة
Clipboard.Clear
Clipboard.SetText Text1.SelText
وهذا يعني ان نفرخ الحافظة من المعلومات المنسوخة ثم ننسخ المحدد في مربع الحوار text1
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
امر لصق هو
Text1.SelText = Clipboard.GetText
وهذا امر انه يتم لصق البيانات بالمكان المحدد داخل text1
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
امر قص هو
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
نفس امر نسخ لكنه يقوم بحذف المنسوخ
هكذا نهي الدرس استغرق معي وقت طويل ارجوا انا ارى التفاعل جزاكم الله كل خير ادعوا لي .
