كود الأستخدام لتغير لون الزر عند مرور الفأرة عليه
كود الأستخدام لتغير لون الزر عند مرور الفأرة عليه
الأدوات :button كود: Public Class Form1 Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover Button1.BackColor = Color.DodgerBlue End Sub End Class الأستخدام:الزر الخفي الأدوات :3button+1label Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = "هل أعجبتك الأكواد " Button1.Text = "لا" Button3.Text = "لا" Button2.Text = "نعم" End Sub Private Sub Button3_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.MouseHover Button3.Visible = False Button1.Visible = True End Sub Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover Button3.Visible = True Button1.Visible = False End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click MsgBox("مع تحيات المهندس المدني:محمد إياد شرارة" & Chr(13) & "تمتعوا بالمزيد قريبا للتواصل xxxxxxxxxx", MsgBoxStyle.MsgBoxRight, "وداعا") End End Sub End Class |
الساعة الآن 08:54 PM |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO ©2010, Crawlability, Inc. TranZ By
Almuhajir