06-10-12, 09:58 PM
كاتب الموضوع : 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
نفذ المشروع واضغط على زر الأمر اختار خط معين وغير حجمه وراقب مربع النص