ابي كود تكرار - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : ابي كود تكرار (/showthread.php?tid=11352)

ابي كود تكرار - saudisgames - 07-02-15 السلام عليكم ابي كود يخلي البرنامج يظغط على على زر كل 5 ثواني او زر يكرر لي عمليه الظغط على الزر RE: ابي كود تكرار - Dr.Sherif Alazizi - 08-02-15 اضف زرين وتايمر واجعل 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