تقييم الموضوع :
  • 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 ك ب / التحميلات : 48)
}}}
تم الشكر بواسطة:
#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
}}}
تم الشكر بواسطة:



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


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