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

سلام عليكم

اخواني كيف ممكن اربط

كود :

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        Label3.Text = sec.ToString

        sec = sec + 1

        If (sec = 10) Then

            sec = 0

            Timer3.Stop() 'Timer stops functioning

            Label3.Text = "Kicked"

        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Timer3.Interval = 1000

        Timer3.Start()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Timer3.Stop()

        Timer3.Interval = 1

        sec = 0

    End Sub

اريد اضافة ComboBox

وتكون حاملة توقيت يحددها المستخدم كيف يشاء

يعني

100

200

300

400

وتطبيقها ع كود اعلاه

مع كيفية عمل ريست

والعودة من جديد عبر زر بوتين

وشكراً

PHP كود :

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    If IsNumeric(ComboBox1.Text) Then Timer1.Interval = CInt(ComboBox1.Text)

End Sub 

PHP كود :

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

End Sub 

PHP كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Timer1.Start()

End Sub 

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

e-coder

mansoor