منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معلومة ::: FontDialog - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : معلومة ::: FontDialog (/showthread.php?tid=5311)

معلومة ::: FontDialog - RaggiTech - 06-10-12

كاتب الموضوع : BADRMEDIA


مربع الحوار الخاص بالخطوط


موجود بصندوق الأدوات


أدرجه على الفورم

ضع زر أمر Button

ضع مربع نص Textbox


أضف هذا الكود فى حدث Click لزر الأمر



كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If FontDialog1.ShowDialog = DialogResult.OK Then
TextBox1.Font = FontDialog1.Font()
End If

End Sub


نفذ المشروع واضغط على زر الأمر اختار خط معين وغير حجمه وراقب مربع النص

معلومة ::: FontDialog - RaggiTech - 06-10-12

الملف المرفق به مثال على الكود السابق




صفحة الكائن فى مكتبة مايكروسوفت



http://msdn2.microsoft.com/en-us/lib...og(VS.90).aspx

معلومة ::: FontDialog - RaggiTech - 06-10-12

ممكن تجعل مربع الحوار الخط لما يفتح يكون واقف على خط معين

مثل أنه يكون واقف على خط مربع النص نفسه المراد تغيير له


بهذا الكود قبل أمر الفتح


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FontDialog1.Font = TextBox1.Font

If FontDialog1.ShowDialog = DialogResult.OK Then
TextBox1.Font = FontDialog1.Font()
End If

End Sub


معلومة ::: FontDialog - RaggiTech - 06-10-12

ممكن أيضا نجعل مربع حوار الخطوط يظهر الخطوط الرأسية مثل الخطوط الصينية


بأن نستدعي الخاصية بهذا الشكل قبل فتح مربع الحوار




كود :
FontDialog1.AllowVerticalFonts = True


معلومة ::: FontDialog - RaggiTech - 06-10-12

لو دققنا فى مربع الحوار اللى بيظهر - سنجد أن هناك زرين أمر - واحد Ok والأخر Cancel


طيب فين Apply هو اتلغي ولا أيه

طيب نستدعيه قبل فتح مربع الحوار




كود :
FontDialog1.ShowApply = True

معلومة ::: FontDialog - RaggiTech - 06-10-12

اضافة جديدة على موضوع مربع حوار الخطوط

لما نفتح مربع حوار الخطوط لا نجد لون الخط

اذن نحضر لون الخط وبعد ذلك لما نضغط موافق نطبق ذلك على مربع النص


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FontDialog1.ShowColor = True

If FontDialog1.ShowDialog = DialogResult.OK Then
TextBox1.Font = FontDialog1.Font()
TextBox1.ForeColor = FontDialog1.Color
End If

End Sub

معلومة ::: FontDialog - RaggiTech - 06-10-12

ولنفرض تريد تحصر حجم الخط للمستخدم بين حدين


إذن نرسل خاصية أكبر وأصغر قبل فتح المربع

ونظهر رسالة لما يضغط المستخدم موافق تظهر حجم الخط




كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FontDialog1.MinSize = 20
FontDialog1.MaxSize = 32

If FontDialog1.ShowDialog = DialogResult.OK Then
MessageBox.Show(FontDialog1.Font.Size.ToString())
End If

End Sub