+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : قسم دورات المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=113)
+---- قسم : دورة بناء برنامج لإدارة السوبر ماركت من الألف إلى الياء (http://vb4arb.com/vb/forumdisplay.php?fid=128)
+---- الموضوع : الدرس التاسع عشر - التحكم في الطابعة (/showthread.php?tid=5707)
الدرس التاسع عشر - التحكم في الطابعة - RaggiTech - 15-10-12
كاتب الموضوع : أحمد جمال
بسم الله الرحمن الرحيم .
السلام عليكم ورحمة الله وبركاته .
السلام عليكم ورحمة الله وبركاته .
سنتجاوز القائمة الفرعية ( النسخ الاحتياطي ) مؤقتاً حتى اكمال باقي عناصر القائمة .
تجهيز الطابعة .
سيحتوي فورم تجهيز الطابعة على قائمة بالطابعات الموجودة اضافة إلى زر ( تمكين الطابعة ) والذي يقوم بجعلها الطابعة الافتراضية . وزر آخر لالغاء الأمر .
والآن صمم هذا الفورم واسمه Frm_Printer .
وكما هي العادة مع كل الفورمات ، قم وضعه في المنتصف ، وأزل الشريط العلوي .
والآن إلى خطوات كتابة الكود :
والآن صمم هذا الفورم واسمه 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والله الموفق ...
والسلام عليكم ورحمة الله وبركاته ...
والسلام عليكم ورحمة الله وبركاته ...