تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة ::: FontDialog
#1
كاتب الموضوع : 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


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


}}}}
تم الشكر بواسطة:
#2
الملف المرفق به مثال على الكود السابق




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



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


الملفات المرفقة
.rar   BADRMEDIA.rar (الحجم : 45.45 ك ب / التحميلات : 23)
}}}}
تم الشكر بواسطة:
#3
ممكن تجعل مربع الحوار الخط لما يفتح يكون واقف على خط معين

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


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


كود :
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
}}}}
تم الشكر بواسطة:
#4
ممكن أيضا نجعل مربع حوار الخطوط يظهر الخطوط الرأسية مثل الخطوط الصينية


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




كود :
FontDialog1.AllowVerticalFonts = True
}}}}
تم الشكر بواسطة:
#5
لو دققنا فى مربع الحوار اللى بيظهر - سنجد أن هناك زرين أمر - واحد Ok والأخر Cancel


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

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




كود :
FontDialog1.ShowApply = True




}}}}
تم الشكر بواسطة:
#6
اضافة جديدة على موضوع مربع حوار الخطوط

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

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


كود :
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


}}}}
تم الشكر بواسطة:
#7
ولنفرض تريد تحصر حجم الخط للمستخدم بين حدين


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

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




كود :
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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معلومة ::: ListBox Blue Sky 14 2,455 14-11-16, 11:32 PM
آخر رد: فارس جراح
  معلومة مهمه فى المصفوفات ali.alfoly 2 798 30-08-13, 02:25 AM
آخر رد: ali.alfoly
  من المنتدى القديم - معلومة ::: ProgressBar ( للاخ BADRMEDIA ) المبرمج علي نوري 2 1,269 23-08-13, 11:17 PM
آخر رد: nin9e
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 3 1,023 16-12-12, 06:25 PM
آخر رد: 3amo
  من المنتدى القديم - معلومة ::: CheckBox ( للاخ BADRMEDIA ) المبرمج علي نوري 1 576 30-11-12, 05:54 PM
آخر رد: مبرمج أوتار
  معلومة :: الحل لمشكلة الخطأ في الكود For Each i As Button In Me.Controls Aly El-Haddad 2 683 10-11-12, 09:15 PM
آخر رد: Mr. DotNet
  معلومة : Partial Class RaggiTech 1 545 06-10-12, 11:03 PM
آخر رد: RaggiTech
  معلومة : TryCast مهمة RaggiTech 0 462 06-10-12, 11:02 PM
آخر رد: RaggiTech
  معلومة : XML Comments مهمة RaggiTech 1 424 06-10-12, 11:01 PM
آخر رد: RaggiTech
  معلومة - الاستثناءات ( Exceptions ) RaggiTech 0 535 06-10-12, 11:00 PM
آخر رد: RaggiTech

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


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