تغيير الزر عند الضغط عليه فيجوال بيسك

تغيير الزر عند الضغط عليه في فيجوال بيسك

توجد طرق متعددة لتغيير الزر عند الضغط عليه في فيجوال بيسك، سأشرح لك بعضًا من أشهرها:

1. تغيير لون الزر:

استخدام خاصية BackColor:

VB.Net

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Button1.BackColor = Color.Red

End Sub

يُرجى استخدام الرمز البرمجي بحذر.

استخدام خاصية ForeColor:

VB.Net

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Button1.ForeColor = Color.Blue

End Sub

يُرجى استخدام الرمز البرمجي بحذر.

2. تغيير نص الزر:

VB.Net

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Button1.Text = "تم الضغط علي"

End Sub

يُرجى استخدام الرمز البرمجي بحذر.

3. تغيير صورة الزر:

VB.Net

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Button1.Image = Image.FromFile("C:\image.png")

End Sub

يُرجى استخدام الرمز البرمجي بحذر.

4. تغيير حجم الزر:

VB.Net

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Button1.Width = 100

    Button1.Height = 50

End Sub

يُرجى استخدام الرمز البرمجي بحذر.

5. تعطيل الزر:

VB.Net

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Button1.Enabled = False

End Sub

يُرجى استخدام الرمز البرمجي بحذر.

6. إظهار أو إخفاء الزر:

VB.Net

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Button1.Visible = False

End Sub

يُرجى استخدام الرمز البرمجي بحذر.

ملاحظة:

يمكنك استخدام أي مزيج من هذه الطرق لتغيير الزر عند الضغط عليه.

يمكنك أيضًا استخدام الأحداث الأخرى مثل MouseDown و MouseUp لتغيير الزر.

أمثلة إضافية:

تغيير لون الزر عند الضغط عليه ثم إعادته إلى لونه الأصلي عند تركه:

VB.Net

Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown

    Button1.BackColor = Color.Red

End Sub

Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp

    Button1.BackColor = Color.White

End Sub

يُرجى استخدام الرمز البرمجي بحذر.

تغيير نص الزر عند الضغط عليه ثم إعادته إلى نصه الأصلي عند تركه:

VB.Net

Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown

    Dim originalText As String = Button1.Text

    Button1.Text = "تم الضغط علي"

End Sub

Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp

    Button1.Text = originalText

End Sub

يُرجى استخدام الرمز البرمجي بحذر.

أرجو أن يكون هذا الشرح مفيدًا.