تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
الدرس التاسع عشر - التحكم في الطابعة
#1
كاتب الموضوع : أحمد جمال

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


سنتجاوز القائمة الفرعية ( النسخ الاحتياطي ) مؤقتاً حتى اكمال باقي عناصر القائمة .


تجهيز الطابعة .
سيحتوي فورم تجهيز الطابعة على قائمة بالطابعات الموجودة اضافة إلى زر ( تمكين الطابعة ) والذي يقوم بجعلها الطابعة الافتراضية . وزر آخر لالغاء الأمر .
والآن صمم هذا الفورم واسمه Frm_Printer .
وكما هي العادة مع كل الفورمات ، قم وضعه في المنتصف ، وأزل الشريط العلوي .

والآن إلى خطوات كتابة الكود :
* أولاً في أمر اظهار هذه الشاشة نتأكد أولاً من وجود طابعات .

كود :
Case 5
If Printers.Count = 0 Then
MsgBox "لا توجد أي طابعات متصلة بالجهاز", vbExclamation + arabic, "لا توجد طابعة"
Exit Sub
End If
Frm_Printer.Show 1
* في حدث
Form_Load لهذه الشاشة لا بد أن نضع الطابعات المتصلة بالجهاز في القائمة :


كود :
List1.Clear
Dim I
For I = 0 To Printers.Count - 1
List1.AddItem Printers(I).DeviceName
Next I
* في كود ( تمكين الطابعة ) سنعينها طابعة افتراضية للكومبيوتر ، ومن ثم نغلق الشاشة :

كود :
If List1.ListIndex < 0 Then Exit Sub
Set Printer = Printers(List1.ListIndex)
Unload Me
* وفي زر الغاء الأمر :

كود :
Unload Me
يحتوي الكائن Printer اضافة لما سبق على أهم الوظائف المتعلقة بالطابعة ويمكنك تصفحها بنفسك ، ويمكنك أيضاً استخدام المجموعة Printers ، ولمعرفة المزيد حول كائن الطباعة يمكن مراجعة درس الأستاذ تركي العسيري ( كائن الطباعة للمبتدئن ) والموجود في قسم فيجوال بيسك الرئيسي . ، كما أن بامكانك العثور على بعض المعلومات في كتاب ( نحو برمجة كائنية التوجه ) .



والله الموفق ...
والسلام عليكم ورحمة الله وبركاته ...
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الدرس الرابع والثلاثون والأخير - نبذة عن العملية العكسية + تجهيز البرنامج على Cd RaggiTech 0 1,445 15-10-12, 09:10 AM
آخر رد: RaggiTech
  الدرس الثالث والثلاثون - كيفية عمل اعداد Setup للبرنامج RaggiTech 0 1,238 15-10-12, 09:08 AM
آخر رد: RaggiTech
  الدرس الثاني والثلاثون - التحويل إلى exe RaggiTech 0 1,170 15-10-12, 09:07 AM
آخر رد: RaggiTech
  الدرس الحادي والثلاثون - تعددية المستخدمين - البحث وطباعة الفواتير - التعليمات ... RaggiTech 2 1,765 15-10-12, 09:05 AM
آخر رد: RaggiTech
  الدرس الثلاثون - التعامل مع شريط الأدوات ToolBar RaggiTech 0 1,000 15-10-12, 08:59 AM
آخر رد: RaggiTech
  الدرس التاسع والعشرون - التعامل مع أشرطة الحالة Statues Bar RaggiTech 0 844 15-10-12, 08:57 AM
آخر رد: RaggiTech
  الدرس الثامن والعشرون -الطباعة في البرنامج . RaggiTech 4 1,570 15-10-12, 08:56 AM
آخر رد: RaggiTech
  الدرس السابع والعشرون - مقدمة إلى التعامل مع التقارير من خلال DataReport RaggiTech 2 1,722 15-10-12, 08:45 AM
آخر رد: RaggiTech
  الدرس السادس والعشرون - التقارير اليومية ، والتقارير بين تاريخين RaggiTech 1 1,233 15-10-12, 08:39 AM
آخر رد: RaggiTech
  الدرس الخامس والعشرون - الإحصائيات والرسوم البيانية RaggiTech 0 1,106 15-10-12, 08:37 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم