منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كاتب الموضوع : 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

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

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

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

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

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

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

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

كود :

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

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

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

كود :

FontDialog1.AllowVerticalFonts = True

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

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

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

كود :

FontDialog1.ShowApply = True

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

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

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

كود :

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

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

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

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

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech

RaggiTech

RaggiTech

RaggiTech

RaggiTech

RaggiTech

RaggiTech