最近在自学VB.NET的基础,有些东西没人指引确实不好入门,希望能寻个明师,只需要在我不懂的时候可以请教一下就可以了,另外初入门的新手也可以加我,一起交流学习。
我扣扣68203121
另附我学习3天的成果,秒表的代码,但是不知道怎么控制秒表的转速和实际转速一致,请指教。
Public Class Form1
Dim minutes, seconds As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.Button1.Visible = True Then
Me.Timer1.Enabled = True
Me.Button2.Visible = True
Else : Me.Timer1.Enabled = False
End If
Me.Button1.Visible = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Me.Button2.Visible = True Then
Me.Timer1.Enabled = False
Me.Button1.Visible = True
Me.Button2.Visible = False
Else : Me.Timer1.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Button2.Visible = True
Me.Label1.Text = minutes & "分" & seconds & "秒"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If seconds >= 60 Then
seconds = 0
minutes += 1
Else
seconds += 1
End If
If minutes >= 60 Then
minutes = 0
End If
Label1.Text = minutes & "分" & seconds & "秒"
End Sub
End Class
我扣扣68203121
另附我学习3天的成果,秒表的代码,但是不知道怎么控制秒表的转速和实际转速一致,请指教。
Public Class Form1
Dim minutes, seconds As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.Button1.Visible = True Then
Me.Timer1.Enabled = True
Me.Button2.Visible = True
Else : Me.Timer1.Enabled = False
End If
Me.Button1.Visible = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Me.Button2.Visible = True Then
Me.Timer1.Enabled = False
Me.Button1.Visible = True
Me.Button2.Visible = False
Else : Me.Timer1.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Button2.Visible = True
Me.Label1.Text = minutes & "分" & seconds & "秒"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If seconds >= 60 Then
seconds = 0
minutes += 1
Else
seconds += 1
End If
If minutes >= 60 Then
minutes = 0
End If
Label1.Text = minutes & "分" & seconds & "秒"
End Sub
End Class