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

[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

EndIf

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

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

ایام به کام

[rezapassword]

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