[RaggiTech]

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

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

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

كود :

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