VB.NET 時間を改めるプロジェクト

6月20日

VB.NET 　時間を改めるプロジェクト（改时间的小软件）　

日本語：

この小さいプログラムは、名前はTimer。作りわけは、私の彼女のプロジェクトは、いつもひとつ別のプログラムをよく使います。そして、毎回は必ずシステムの時間をあらためます。とても、面倒です。だから、余裕を利用して、この小さいプログラムを開発していまいた。簡単です、たっだ自分がしているのことを書きたいです。それだけです。時間を改めた、後３秒を示して、後最小化します。

 

コット：

Public Class Form1     Private _time As Date     Private _timetarget As Date     Private _timetext As Integer = 3     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Me.Button2.Enabled = False         Me.Label2.Text = ""     End Sub     Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing         Timer1.Stop()         If _time <> _timetarget Then             Today = _time         End If     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Try             _time = Date.Today             _timetarget = DateTimePicker1.Text             Timer1.Start()             If _time = _timetarget Then                 Me.Label2.Text = "すみません、この期日は今日です。"                 Timer1.Stop()             Else                 Today = _timetarget                 Me.Button1.Enabled = False                 Me.Button2.Enabled = True                 Me.Label2.Text = "お楽しみ開発なさい！"                 Me.DateTimePicker1.Enabled = False             End If         Catch             Today = _time             Close()         End Try     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Timer1.Stop()         Today = _time         Me.Button1.Enabled = True         Me.Button2.Enabled = False         Me.DateTimePicker1.Enabled = True         Me.Label2.Text = ""         Me.Label4.Text = ""         _timetext = 3     End Sub     Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize         If Me.WindowState = FormWindowState.Minimized Then             Me.Hide()             Me.Label4.Text = ""         End If         If Me.WindowState = FormWindowState.Minimized And _timetext < 3 Then             Timer1.Stop()             Me.Hide()             Me.Label4.Text = ""         End If     End Sub     Private Sub NotifyIcon1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.Click         Me.ShowInTaskbar = True         Me.Show()         Me.WindowState = FormWindowState.Normal     End Sub     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         Me.Label4.Text = Char.Parse(_timetext) + "秒后最小化... "         _timetext = _timetext - 1         If _timetext < 0 Then             Timer1.Stop()             Me.Label4.Text = ""             Me.WindowState = FormWindowState.Minimized             Me.Hide()         End If     End Sub End Class