تغییر فونت نوشته ها

[nasiiiiiii]

سلام دوستان
من یه فرم دارم که چک باکسا ی زیادی داره که با تب می تونم بین این چکباکسا حرکت کنم می خوام کاری کم تا با ایستادن تب روی هر کدوم از چک باکسا فونتش تغییر کنه اما نتونستم :خجالت:اگه می دونید لطفا به منم بگین چه چوریه؟؟؟؟؟؟؟؟؟؟؟؟؟
مرسی

[RamezanBeik]

درود بر شما.
شما با استفاده از رویداد GotFocuse کنترل checkBoxهاتون به راحتی می توانید این کار رو انجام دهید.
موفق با شید.
بدرود.

[alimanam]

با سلام

میتونی از این سورس استفاده کنی .

Public Class Form1

Private Sub CheckBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Enter, CheckBox2.Enter, CheckBox3.Enter, CheckBox4.Enter, CheckBox5.Enter, CheckBox6.Enter, CheckBox7.Enter, CheckBox8.Enter, CheckBox9.Enter
Dim fn As New Font("Tahoma", 8, FontStyle.Bold)
Dim ctr As Control
For Each ctr In Me.Controls
If TypeOf ctr Is CheckBox Then
ctr.Font = New Font("Tahoma", 8, FontStyle.Regular)
End If
Next
Me.ActiveControl.Font = fn
End Sub

Private Sub CheckBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Leave, CheckBox2.Leave, CheckBox3.Leave, CheckBox4.Leave, CheckBox5.Leave, CheckBox6.Leave, CheckBox7.Leave, CheckBox8.Leave, CheckBox9.Leave
Dim fn As New Font("Arial", 10, FontStyle.Regular)
Dim ctr As Control
For Each ctr In Me.Controls
If TypeOf ctr Is CheckBox Then
ctr.Font = fn
End If
Next
End Sub

End Class

موفق باشید ./