الدرس السادس طباعة الاشكال من خلال اداة PrintDocument

الإثنين أكتوبر 15, 2012 9:45 am

الحقيقة هذا الدرس خفيف وبسيط وهو يمكن من طباعة شكل دائرى او مربع مملوء لو مفرغ فى وسط الورقة تماما بالابعاد التى يحددها المستخدم بالسنتيمتر:
الادوات المطلوبة :
form
2 radiobutton
2 button
checkbox
textbox
PrinrDocument
PrintPreviewdailog

فى قسم التصاريح العامة اعلن عن متغير لاستقبال قيمة عرض الشكل

رموز PHP:
Dim width_shape As Single

فى حدث change لـ textbox اكتب الكود التالى راعى اننا غيرنا اسم textbox

رموز PHP:
Private Sub txt_rate_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_rate.TextChanged
width_shape = Val(txt_rate.Text) * 10 * 3.94
End Sub

فى حدث Print_page لاداة PrintDocument ( وهو الحدث المسئول عن الطباعة ) اكتب الاكواد التالية

رموز PHP:
Dim lft As Single
Dim tp As Single

lft = ((e.PageBounds.Width - width_shape) / 2)

tp = ((e.PageBounds.Height - width_shape) / 2)

If rdo_circle.Checked = True Then
If chk_shado.Checked = True Then e.Graphics.FillEllipse(Brushes.Gray, lft, tp, width_shape, width_shape)
e.Graphics.DrawEllipse(Pens.Black, lft, tp, width_shape, width_shape)
End If

If rdo_square.Checked = True Then
If chk_shado.Checked = True Then e.Graphics.FillRectangle(Brushes.Gray, lft, tp, width_shape, width_shape)
e.Graphics.DrawRectangle(Pens.Black, lft, tp, width_shape, width_shape)
End If

فى حدث click لزر المعاينة اكتب الكود التالى :

رموز PHP:
If width_shape > 0 And width_shape < 20 * 10 * 3.94 Then
prnt_prev.ShowDialog()
Else
MsgBox("يجب ادخال قيمة صحيحة فى مربع عرض العمود")
txt_rate.Select() : txt_rate.SelectAll()
End If

فى حدث click لزر الطباعة اكتب الكود التالى :

رموز PHP:
If width_shape > 0 And width_shape < 20 * 10 * 3.94 Then
prnt_doc.print()
Else
MsgBox("يجب ادخال قيمة صحيحة فى مربع عرض العمود")
txt_rate.Select() : txt_rate.SelectAll()
End If

المشروع المثال موجود على الرابط
http://www.4shared.com/file/12573565...nt_shapes.html