2月21日更新

Main/AboutMe.vb

@@ -1,6 +1,6 @@
 Public Class AboutMe
     Private Sub AboutMe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
+        Label11.Text = Application.ProductVersion
     End Sub
 
 #Region "QQ和Mail的点击事件"

Main/ChangeLogDisplay.vb

@@ -1,12 +1,6 @@
 Public Class ChangeLogDisplay
     Private Sub ChangeLogDisplay_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MaximizeBox = False
-        Me.MinimizeBox = False
-        Me.BackColor = Color.White
-        Me.Text = ""
-        Me.FormBorderStyle = FormBorderStyle.FixedDialog
-
         TextBox1.Text = System.IO.File.ReadAllText(Application.StartupPath & "\ChangeLog - 更新日志.md")
-        Label1.Focus()
+        TextBox1.Select(0, 0)
     End Sub
 End Class

Main/Contributors.vb

@@ -5,6 +5,7 @@ Public Class Contributors
         CheckForIllegalCrossThreadCalls = False
         Dim 加载名单线程 As New Threading.Thread(AddressOf 加载名单)
         加载名单线程.Start()
+        TextBox1.Select(0, 0)
     End Sub
 
     Private Sub 加载名单()
@@ -17,6 +18,7 @@ Public Class Contributors
             If IO.File.Exists(Application.StartupPath & "\Contributors.txt") Then
                 IO.File.Delete(Application.StartupPath & "\Contributors.txt")
             End If
+            TextBox1.Select(0, 0)
         Catch ex As Exception
             TextBox1.Text = "获取失败"
         End Try

Main/Form1.vb

@@ -35,7 +35,7 @@ Public Class Form1
             End If
         Next
 
-
+        Label3.Text = Application.ProductVersion
         Label4.Font = New Font("Century Gothic", 24)
 
 

Main/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 '通过使用 "*"，如下所示:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.4")>
-<Assembly: AssemblyFileVersion("1.4")>
+<Assembly: AssemblyVersion("1.5")>
+<Assembly: AssemblyFileVersion("1.5")>