?? splashscreen1.vb
字號:
?Public NotInheritable Class SplashScreen1
'TODO: 可輕松將此窗體設置為應用程序的初始屏幕,方法是轉到
' “項目設計器”的“應用程序”選項卡(“項目”菜單下的“屬性”)。
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'根據應用程序的程序集信息在運行時設置對話框文本。
'TODO: 在項目屬性對話框(“項目”菜單下)中的“應用程序”面板
' 中自定義應用程序的程序集信息。
'應用程序標題
If My.Application.Info.Title <> "" Then
' ApplicationTitle.Text = My.Application.Info.Title
ApplicationTitle.Text = "包裝機在線監測系統"
Else
'若應用程序標題丟失,則使用不帶擴展名的應用程序名
ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If
'使用在設計時作為格式字符串設置到 Version 控件中的文本格式化版本信息。
' 以便根據需要進行有效的本地化。
' 使用以下代碼,將Version 控件的設計時文本
' 更改為“Version {0}.{1:00}.{2}.{3}”或類似格式,將內部版本和修訂信息包括在內。
' 有關更多信息,請參閱幫助中的 String.Format()。
'
' Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)
Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
'版權信息
'Copyright.Text = My.Application.Info.Copyright
Copyright.Text = "昆山中慈工控科技開發有限公司"
End Sub
Private Sub MainLayoutPanel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MainLayoutPanel.Click
MDIParent1.ShowDialog()
Me.Close()
With Me
.MaximizeBox = False
.MinimizeBox = False
.TopMost = True
.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
.WindowState = System.Windows.Forms.FormWindowState.Maximized
End With
End Sub
Private Sub MainLayoutPanel_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MainLayoutPanel.Paint
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -