@@ -84,21 +84,21 @@ Public Class Form2
8484 Form1.Timer2.Interval = TextBox1.Text * 1000
8585 Form1.Timer2.Enabled = True
8686 Form1.NotifyIcon1.Visible = True
87- Form1.NotifyIcon1.ShowBalloonTip( 7000 , "时钟小工具 " , "时钟小工具当前已隐藏到系统托盘 ,双击托盘图标或在设定的时间(" & TextBox1.Text & "秒)之后重新显示。" , ToolTipIcon.Info)
87+ Form1.NotifyIcon1.ShowBalloonTip( 7000 , "时间小工具 " , "时间小工具当前已隐藏到系统托盘 ,双击托盘图标或在设定的时间(" & TextBox1.Text & "秒)之后重新显示。" , ToolTipIcon.Info)
8888 Form1.Hide()
8989 Me .Close()
9090 ElseIf ComboBox1.SelectedIndex = 1 Then '分
9191 Form1.Timer2.Interval = TextBox1.Text * 1000 * 60
9292 Form1.Timer2.Enabled = True
9393 Form1.NotifyIcon1.Visible = True
94- Form1.NotifyIcon1.ShowBalloonTip( 7000 , "时钟小工具 " , "时钟小工具当前已隐藏到系统托盘 ,双击托盘图标或在设定的时间(" & TextBox1.Text & "分钟)之后重新显示。" , ToolTipIcon.Info)
94+ Form1.NotifyIcon1.ShowBalloonTip( 7000 , "时间小工具 " , "时间小工具当前已隐藏到系统托盘 ,双击托盘图标或在设定的时间(" & TextBox1.Text & "分钟)之后重新显示。" , ToolTipIcon.Info)
9595 Form1.Hide()
9696 Me .Close()
9797 ElseIf ComboBox1.SelectedIndex = 2 Then '时
9898 Form1.Timer2.Interval = TextBox1.Text * 1000 * 60 * 60
9999 Form1.Timer2.Enabled = True
100100 Form1.NotifyIcon1.Visible = True
101- Form1.NotifyIcon1.ShowBalloonTip( 7000 , "时钟小工具 " , "时钟小工具当前已隐藏到系统托盘 ,双击托盘图标或在设定的时间(" & TextBox1.Text & "小时)之后重新显示。" , ToolTipIcon.Info)
101+ Form1.NotifyIcon1.ShowBalloonTip( 7000 , "时间小工具 " , "时间小工具当前已隐藏到系统托盘 ,双击托盘图标或在设定的时间(" & TextBox1.Text & "小时)之后重新显示。" , ToolTipIcon.Info)
102102 Form1.Hide()
103103 Me .Close()
104104 End If
@@ -208,7 +208,7 @@ errcode:
208208 ComboBox4.SelectedText = "自定义背景"
209209 End If
210210
211- Label1.Text = "时钟小工具 版本:" & My.Application.Info.Version.ToString & vbCrLf & "版权所有 © 2022-2024 CJH。"
211+ Label1.Text = "时间小工具 版本:" & My.Application.Info.Version.ToString & vbCrLf & "版权所有 © 2022-2024 CJH。"
212212 Call formatcolorcurset()
213213 End Sub
214214 Private Sub TextBox1_KeyPress( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
@@ -448,7 +448,7 @@ errcode:
448448 End Sub
449449
450450 Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
451- If (MessageBox.Show( "确定退出时钟小工具吗 ?" , "时钟小工具 " , MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes) Then
451+ If (MessageBox.Show( "确定退出时间小工具吗 ?" , "时间小工具 " , MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes) Then
452452 End
453453 End If
454454 End Sub
@@ -1162,7 +1162,7 @@ errcode:
11621162
11631163 Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
11641164 Form1.NotifyIcon1.Visible = True
1165- Form1.NotifyIcon1.ShowBalloonTip( 7000 , "时钟小工具 " , "时钟小工具当前已隐藏到系统托盘 ,双击托盘图标重新显示。" , ToolTipIcon.Info)
1165+ Form1.NotifyIcon1.ShowBalloonTip( 7000 , "时间小工具 " , "时间小工具当前已隐藏到系统托盘 ,双击托盘图标重新显示。" , ToolTipIcon.Info)
11661166 Form1.Hide()
11671167 Me .Close()
11681168 End Sub
@@ -1645,7 +1645,7 @@ errcode:
16451645 End Sub
16461646
16471647 Private Sub LinkLabel3_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
1648- If MessageBox.Show( " " & vbCrLf & "确定要删除自定义配置并退出程序吗?" & vbCrLf & "执行该操作会删除本机时钟小工具的自定义设置并退出 ,相当于清除在本机的设置,此操作无法撤销。" & vbCrLf & vbCrLf & "你确定要继续吗?" & vbCrLf & " " , "警告 - 删除自定义配置并退出" , MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = Windows.Forms.DialogResult.Yes Then
1648+ If MessageBox.Show( " " & vbCrLf & "确定要删除自定义配置并退出程序吗?" & vbCrLf & "执行该操作会删除本机时间小工具的自定义设置并退出 ,相当于清除在本机的设置,此操作无法撤销。" & vbCrLf & vbCrLf & "你确定要继续吗?" & vbCrLf & " " , "警告 - 删除自定义配置并退出" , MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = Windows.Forms.DialogResult.Yes Then
16491649 If Form1.UnSaveData = 0 Then
16501650 RegKeyModule.DelKey( "Software\CJH\TimeControl" , True , "HKCU" )
16511651 End If
@@ -1662,7 +1662,7 @@ errcode:
16621662 End Sub
16631663
16641664 Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click
1665- If (MessageBox.Show( "确定重启时钟小工具吗 ?" , "时钟小工具 " , MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes) Then
1665+ If (MessageBox.Show( "确定重启时间小工具吗 ?" , "时间小工具 " , MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes) Then
16661666 System.Diagnostics.Process.Start(Application.ExecutablePath)
16671667 End
16681668 End If
0 commit comments