منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ابي كود تكرار
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

ابي كود يخلي البرنامج يظغط على على زر كل 5 ثواني

او زر يكرر لي عمليه الظغط على الزر
اضف زرين وتايمر واجعل interval of timer = 5000

وضع هذا الكود

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("سبحان الله وبحمده سبحان الله العظيم", MsgBoxStyle.Exclamation, "التكرار")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
Button1_Click(Button1, e)
Timer1.Enabled = True
End Sub
End Class