تغییر فونت کنترل در runtime

[roya_hh]

سلام. کسی میدونه چطوری در runtime میشه فونت یک کنترل را عوض کرد؟
این کد هیچ کاری انجام نمی دهد

Private Sub myButton_Click(sender As Object, e As EventArgs)
Dim myFontDialog As FontDialog
myFontDialog = New FontDialog()

If myFontDialog.ShowDialog() = DialogResult.OK Then
' Set the control's font.
myDateTimePicker.Font = myFontDialog.Font
End If
End Sub

[anooshiran]

سلام دوست عزيز

اين كه نوشتي مشكلش كجاست؟

[Mani_rf]

به نظر من تنها چیزی که کم داره اینه که بعد از Private Sub myButton_Click(sender As Object, e As EventArgs) هندل نوشته نشده . اینجوری :

Private Sub myButton_Click(sender As Object, e As EventArgs) Handles MyButton.Click

[roya_hh]

ممنون. مشکلم حل شد. sender را اشتباهی می فرستادم

[anooshiran]

سلام دوست عزيز

اين كه نوشتي مشكلش كجاست؟
سلام دوست عزيز

به همين دليل بود كه سئوال فوق را مطرح كردم. چون خود اين كد كاملا درست است