استفاده از پنجره های انتخاب فونت و انتخاب رنگ

[rezapassword]

سلام دوستان میشه کد این دو نجره رو برای من بزارید

در ضمن ایا این پنجره رنگ کامپوننتی برای این کار داره یا نه ؟
ممنون:بوس:

[mostafaaa]

Dim CD As New ColorDialog
CD.ShowDialog()
Me.BackColor = CD.Color

Dim FD As New FontDialog
FD.ShowDialog()
Me.Font = FD.Font

[morteza_261]

سلام
این کد برای انتخاب رنگ


Dim ColorBox As ColorDialog = New ColorDialog()
Dim Result As DialogResult
ColorBox.FullOpen = True
Result = ColorBox.ShowDialog
If Result = Windows.Forms.DialogResult.Cancel Then
Return
EndIf
Me.BackColor = ColorBox.Color

در آخر بجای Me.BackColor اونی که میخوای رنگش عوض شه رو بزارید

برای فونت هم میتونید به این صورت عمل کنید:



FontDialog1.ShowColor = True
If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.Font = FontDialog1.Font
Me.ForeColor = FontDialog1.Color
End If




در ضمن ایا این پنجره رنگ کامپوننتی برای این کار داره یا نه ؟

چه کامپوننتی؟؟؟

ایام به کام

[rezapassword]

به جوابم رسیدم مرتضا جان
از هردوتون ممنونم