18-04-18, 09:41 PM
18-04-18, 10:10 PM
في حدث mouseoverm الخاص بال button اكتب اي كودتريدتنفيذه
18-04-18, 10:15 PM
اريد كود لتكبير الزر عند الوقوف عليه
18-04-18, 10:19 PM
كود :
Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.MouseHover
Button1.BackColor = Color.Red
Button1.Size = New Size(50, 50)
'Button1.Font = New Font("arial", 18)
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.MouseLeave
Button1.BackColor = Color.Transparent
Button1.Size = Button1.PreferredSize
End Sub