From 06c4f15bdb7dd27cec004fad6b19d4cecb2461e9 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Tue, 1 Nov 2022 15:27:02 +0700 Subject: [PATCH] MainMenu --- .../MainForms/ShiftOS Menu.Designer.vb | 140 ++++++++++++++++++ .../{ => MainForms}/ShiftOS Menu.resx | 0 ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb | 27 ++++ .../My Project/Resources.Designer.vb | 65 ++++++-- ShiftOS-TheRevival/My Project/Resources.resx | 26 +++- .../Resources/ShiftOSBuildLab.txt | 4 + ShiftOS-TheRevival/ShiftOS Menu.Designer.vb | 83 ----------- ShiftOS-TheRevival/ShiftOS Menu.vb | 3 - ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj | 12 +- 9 files changed, 254 insertions(+), 106 deletions(-) create mode 100644 ShiftOS-TheRevival/MainForms/ShiftOS Menu.Designer.vb rename ShiftOS-TheRevival/{ => MainForms}/ShiftOS Menu.resx (100%) create mode 100644 ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb create mode 100644 ShiftOS-TheRevival/Resources/ShiftOSBuildLab.txt delete mode 100644 ShiftOS-TheRevival/ShiftOS Menu.Designer.vb delete mode 100644 ShiftOS-TheRevival/ShiftOS Menu.vb diff --git a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.Designer.vb b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.Designer.vb new file mode 100644 index 0000000..4e27707 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.Designer.vb @@ -0,0 +1,140 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.btn_Aboot = New System.Windows.Forms.Button() + Me.lbl_BuildString = New System.Windows.Forms.Label() + Me.btn_StoryMode = New System.Windows.Forms.Button() + Me.btn_FreeRoam = New System.Windows.Forms.Button() + Me.btn_Exit = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Consolas", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(12, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(206, 56) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "ShiftOS" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Consolas", 12.0!) + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(18, 65) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(162, 19) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Shift is your way" + ' + 'btn_Aboot + ' + Me.btn_Aboot.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_Aboot.ForeColor = System.Drawing.Color.White + Me.btn_Aboot.Location = New System.Drawing.Point(22, 166) + Me.btn_Aboot.Name = "btn_Aboot" + Me.btn_Aboot.Size = New System.Drawing.Size(158, 23) + Me.btn_Aboot.TabIndex = 2 + Me.btn_Aboot.Text = "About" + Me.btn_Aboot.UseVisualStyleBackColor = True + ' + 'lbl_BuildString + ' + Me.lbl_BuildString.AutoSize = True + Me.lbl_BuildString.ForeColor = System.Drawing.Color.White + Me.lbl_BuildString.Location = New System.Drawing.Point(13, 416) + Me.lbl_BuildString.Name = "lbl_BuildString" + Me.lbl_BuildString.Size = New System.Drawing.Size(39, 13) + Me.lbl_BuildString.TabIndex = 3 + Me.lbl_BuildString.Text = "Label3" + ' + 'btn_StoryMode + ' + Me.btn_StoryMode.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_StoryMode.ForeColor = System.Drawing.Color.White + Me.btn_StoryMode.Location = New System.Drawing.Point(22, 108) + Me.btn_StoryMode.Name = "btn_StoryMode" + Me.btn_StoryMode.Size = New System.Drawing.Size(158, 23) + Me.btn_StoryMode.TabIndex = 2 + Me.btn_StoryMode.Text = "Story Mode" + Me.btn_StoryMode.UseVisualStyleBackColor = True + ' + 'btn_FreeRoam + ' + Me.btn_FreeRoam.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_FreeRoam.ForeColor = System.Drawing.Color.White + Me.btn_FreeRoam.Location = New System.Drawing.Point(22, 137) + Me.btn_FreeRoam.Name = "btn_FreeRoam" + Me.btn_FreeRoam.Size = New System.Drawing.Size(158, 23) + Me.btn_FreeRoam.TabIndex = 2 + Me.btn_FreeRoam.Text = "Free Roam Mode" + Me.btn_FreeRoam.UseVisualStyleBackColor = True + ' + 'btn_Exit + ' + Me.btn_Exit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_Exit.ForeColor = System.Drawing.Color.White + Me.btn_Exit.Location = New System.Drawing.Point(22, 195) + Me.btn_Exit.Name = "btn_Exit" + Me.btn_Exit.Size = New System.Drawing.Size(158, 23) + Me.btn_Exit.TabIndex = 2 + Me.btn_Exit.Text = "Exit" + Me.btn_Exit.UseVisualStyleBackColor = True + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(624, 441) + Me.Controls.Add(Me.lbl_BuildString) + Me.Controls.Add(Me.btn_FreeRoam) + Me.Controls.Add(Me.btn_StoryMode) + Me.Controls.Add(Me.btn_Exit) + Me.Controls.Add(Me.btn_Aboot) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.MaximizeBox = False + Me.Name = "Form1" + Me.ShowIcon = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Main Menu" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents btn_Aboot As Button + Friend WithEvents lbl_BuildString As Label + Friend WithEvents btn_StoryMode As Button + Friend WithEvents btn_FreeRoam As Button + Friend WithEvents btn_Exit As Button +End Class diff --git a/ShiftOS-TheRevival/ShiftOS Menu.resx b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.resx similarity index 100% rename from ShiftOS-TheRevival/ShiftOS Menu.resx rename to ShiftOS-TheRevival/MainForms/ShiftOS Menu.resx diff --git a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb new file mode 100644 index 0000000..ebfe7f2 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb @@ -0,0 +1,27 @@ +Imports System.IO + +Public Class Form1 + + Public Shared ActualBuildLab As String + Public Shared BuildLab() As String + + Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + BuildLab = File.ReadAllLines("D:\ShiftOSBuildLab.txt") + If BuildLab(0) = "No" Then + Dim BuildNum As Integer = BuildLab(1) + BuildNum = BuildLab(1) + 1 + ActualBuildLab = "ShiftOS_TheRevival." & BuildLab(3) & "." & BuildNum & "." & Date.Today.Year & Date.Today.Month & Date.Today.Day + BuildLab(1) = BuildNum + File.WriteAllLines("D:\ShiftOSBuildLab.txt", BuildLab) + End If + lbl_BuildString.Text = ActualBuildLab + Catch ex As Exception + MsgBox("Why? Because of " & ex.Message) + End Try + End Sub + + Private Sub btn_Exit_Click(sender As Object, e As EventArgs) Handles btn_Exit.Click + Close() + End Sub +End Class diff --git a/ShiftOS-TheRevival/My Project/Resources.Designer.vb b/ShiftOS-TheRevival/My Project/Resources.Designer.vb index 380d2f1..1b5c31f 100644 --- a/ShiftOS-TheRevival/My Project/Resources.Designer.vb +++ b/ShiftOS-TheRevival/My Project/Resources.Designer.vb @@ -11,9 +11,10 @@ Option Strict On Option Explicit On +Imports System Namespace My.Resources - + 'This class was auto-generated by the StronglyTypedResourceBuilder 'class via a tool like ResGen or Visual Studio. 'To add or remove a member, edit your .ResX file then rerun ResGen @@ -21,20 +22,20 @@ Namespace My.Resources ''' ''' A strongly-typed resource class, for looking up localized strings, etc. ''' - _ + _ Friend Module Resources - + Private resourceMan As Global.System.Resources.ResourceManager - + Private resourceCulture As Global.System.Globalization.CultureInfo - + ''' ''' Returns the cached ResourceManager instance used by this class. ''' - _ + _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then @@ -44,19 +45,59 @@ Namespace My.Resources Return resourceMan End Get End Property - + ''' ''' Overrides the current thread's CurrentUICulture property for all ''' resource lookups using this strongly typed resource class. ''' - _ + _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get - Set(ByVal value As Global.System.Globalization.CultureInfo) + Set resourceCulture = value End Set End Property + + ''' + ''' Looks up a localized string similar to ewindows. + ''' + Friend ReadOnly Property BuildLab() As String + Get + Return ResourceManager.GetString("BuildLab", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized string similar to 8. + ''' + Friend ReadOnly Property BuildNumber() As String + Get + Return ResourceManager.GetString("BuildNumber", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized string similar to No. + ''' + Friend ReadOnly Property ReleasedExe() As String + Get + Return ResourceManager.GetString("ReleasedExe", resourceCulture) + End Get + End Property + + ''' + ''' Looks up a localized string similar to No + '''12 + '''Enter your username for the build lab below : + '''ewindows + '''. + ''' + Friend ReadOnly Property ShiftOSBuildLab() As String + Get + Return ResourceManager.GetString("ShiftOSBuildLab", resourceCulture) + End Get + End Property End Module End Namespace diff --git a/ShiftOS-TheRevival/My Project/Resources.resx b/ShiftOS-TheRevival/My Project/Resources.resx index af7dbeb..bbfb66c 100644 --- a/ShiftOS-TheRevival/My Project/Resources.resx +++ b/ShiftOS-TheRevival/My Project/Resources.resx @@ -46,7 +46,7 @@ mimetype: application/x-microsoft.net.object.binary.base64 value : The object must be serialized with - : System.Serialization.Formatters.Binary.BinaryFormatter + : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter : and then encoded with base64 encoding. mimetype: application/x-microsoft.net.object.soap.base64 @@ -60,6 +60,7 @@ : and then encoded with base64 encoding. --> + @@ -68,9 +69,10 @@ - + + @@ -85,9 +87,10 @@ - + + @@ -109,9 +112,22 @@ 2.0 - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ewindows + + + 8 + + + No + + + + ..\Resources\ShiftOSBuildLab.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252 + \ No newline at end of file diff --git a/ShiftOS-TheRevival/Resources/ShiftOSBuildLab.txt b/ShiftOS-TheRevival/Resources/ShiftOSBuildLab.txt new file mode 100644 index 0000000..ec3424a --- /dev/null +++ b/ShiftOS-TheRevival/Resources/ShiftOSBuildLab.txt @@ -0,0 +1,4 @@ +No +12 +Enter your username for the build lab below : +ewindows diff --git a/ShiftOS-TheRevival/ShiftOS Menu.Designer.vb b/ShiftOS-TheRevival/ShiftOS Menu.Designer.vb deleted file mode 100644 index 5272cb6..0000000 --- a/ShiftOS-TheRevival/ShiftOS Menu.Designer.vb +++ /dev/null @@ -1,83 +0,0 @@ - _ -Partial Class Form1 - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.Label1 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.Button1 = New System.Windows.Forms.Button() - Me.SuspendLayout() - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Consolas", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.ForeColor = System.Drawing.Color.White - Me.Label1.Location = New System.Drawing.Point(12, 9) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(206, 56) - Me.Label1.TabIndex = 0 - Me.Label1.Text = "ShiftOS" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Consolas", 12.0!) - Me.Label2.ForeColor = System.Drawing.Color.White - Me.Label2.Location = New System.Drawing.Point(18, 65) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(162, 19) - Me.Label2.TabIndex = 1 - Me.Label2.Text = "Shift is your way" - ' - 'Button1 - ' - Me.Button1.Location = New System.Drawing.Point(13, 137) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(75, 23) - Me.Button1.TabIndex = 2 - Me.Button1.Text = "Exit" - Me.Button1.UseVisualStyleBackColor = True - ' - 'Form1 - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.Black - Me.ClientSize = New System.Drawing.Size(624, 441) - Me.Controls.Add(Me.Button1) - Me.Controls.Add(Me.Label2) - Me.Controls.Add(Me.Label1) - Me.MaximizeBox = False - Me.Name = "Form1" - Me.ShowIcon = False - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Main Menu" - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - - Friend WithEvents Label1 As Label - Friend WithEvents Label2 As Label - Friend WithEvents Button1 As Button -End Class diff --git a/ShiftOS-TheRevival/ShiftOS Menu.vb b/ShiftOS-TheRevival/ShiftOS Menu.vb deleted file mode 100644 index 17d6595..0000000 --- a/ShiftOS-TheRevival/ShiftOS Menu.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class Form1 - -End Class diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj index 72da875..48676cf 100644 --- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj +++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj @@ -72,10 +72,10 @@ - + Form - + ShiftOS Menu.vb Form @@ -102,7 +102,7 @@ My.Resources Designer - + ShiftOS Menu.vb @@ -118,5 +118,11 @@ + + + + + + \ No newline at end of file