Change Controls Style On RunTime With AddHandler USING VB.NET
How to Change Button Style Using Code ,
With AddHandler For All Forms .
Facebook Group :
/ 557992827685165
Code :
Sub AddEvent(Obj As Control)
For Each Ctrl In Obj.Controls
If TypeOf Ctrl Is Button Then
Dim Btn As Button = DirectCast(Ctrl, Button)
AddHandler Btn.MouseEnter, AddressOf Mouse_ENTER
AddHandler Btn.MouseLeave, AddressOf Mouse_LEAVE
Else
For Each SubCtrl In Obj.Controls
AddEvent(SubCtrl)
Next
End If
Next
End Sub
Sub Mouse_ENTER(sender As Object, e As EventArgs)
Dim Btn As Button = DirectCast(sender, Button)
Btn.FlatStyle = FlatStyle.Standard
Btn.ForeColor = Color.Blue
Btn.BackColor = Color.LightGray
End Sub
Sub Mouse_LEAVE(sender As Object, e As EventArgs)
Dim Btn As Button = DirectCast(sender, Button)
Btn.FlatStyle = FlatStyle.Flat
Btn.ForeColor = Color.Black
Btn.BackColor = Color.Transparent
End Sub