[لسه مبتدئ]

(17-03-19, 12:18 AM)trakktour كتب :

(16-03-19, 09:27 PM)لسه مبتدئ كتب : اقصد اخي 
اني اضغط مثلا على صورة علامة خطأ 
فتظهر مكانها صورة علامة صح 
ويبدأ الوقت بالعد في ليبل 
وبعد ذلك اقم بالضغط على صورة علامة صح فتظهر مكانها صورة علامة خطأ 
ويتوقف الوقت ويسجل في تيكست بوكس

السلام عليكم
تفضل

كود :

Public Class Form1
   Private temps As TimeSpan

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
     
       Me.Timer1.Interval = 999
       Me.temps = New TimeSpan(0, 0, 0)
       Me.DisplayTime()

   End Sub
   Private Sub DisplayTime()
       Dim s As String = Me.temps.ToString
       s = Replace(s, ":", "H", 1, 1)
       s = Replace(s, ":", "min", 1, 1)
       s &= "s"
       Me.Label1.Text = s
   End Sub


   Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
       If Timer1.Enabled = False Then
           PictureBox1.Image = My.Resources._on 'صورة زر صح
           Timer1.Start()
       Else
           PictureBox1.Image = My.Resources.off 'صورة زر خطأ
           Timer1.Stop()
           TextBox1.Text = Label1.Text

       End If
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Me.temps = TimeSpan.op_Addition(Me.temps, New TimeSpan(0, 0, 1))
       Me.DisplayTime()
   End Sub
End Class

وعليكم السلام 
اعجز أخي عن الشكر 
بارك الله لك وجعله الله في ميزان حسناتك 
ومتعك في الدارين