MainMenu

ShiftOS-TheRevival/MainForms/ShiftOS Menu.Designer.vb

@@ -0,0 +1,140 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    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

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

ShiftOS-TheRevival/My Project/Resources.Designer.vb

@@ -11,6 +11,7 @@
 Option Strict On
 Option Explicit On
 
+Imports System
 
 Namespace My.Resources
     
@@ -21,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  A strongly-typed resource class, for looking up localized strings, etc.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -54,9 +55,49 @@ Namespace My.Resources
             Get
                 Return resourceCulture
             End Get
-            Set(ByVal value As Global.System.Globalization.CultureInfo)
+            Set
                 resourceCulture = value
             End Set
         End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to ewindows.
+        '''</summary>
+        Friend ReadOnly Property BuildLab() As String
+            Get
+                Return ResourceManager.GetString("BuildLab", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to 8.
+        '''</summary>
+        Friend ReadOnly Property BuildNumber() As String
+            Get
+                Return ResourceManager.GetString("BuildNumber", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to No.
+        '''</summary>
+        Friend ReadOnly Property ReleasedExe() As String
+            Get
+                Return ResourceManager.GetString("ReleasedExe", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to No
+        '''12
+        '''Enter your username for the build lab below :
+        '''ewindows
+        '''.
+        '''</summary>
+        Friend ReadOnly Property ShiftOSBuildLab() As String
+            Get
+                Return ResourceManager.GetString("ShiftOSBuildLab", resourceCulture)
+            End Get
+        End Property
     End Module
 End Namespace

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.
     -->
   <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
     <xsd:element name="root" msdata:IsDataSet="true">
       <xsd:complexType>
         <xsd:choice maxOccurs="unbounded">
@@ -68,9 +69,10 @@
               <xsd:sequence>
                 <xsd:element name="value" type="xsd:string" minOccurs="0" />
               </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="name" use="required" type="xsd:string" />
               <xsd:attribute name="type" type="xsd:string" />
               <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
             </xsd:complexType>
           </xsd:element>
           <xsd:element name="assembly">
@@ -85,9 +87,10 @@
                 <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
                 <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
               </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
               <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
               <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
             </xsd:complexType>
           </xsd:element>
           <xsd:element name="resheader">
@@ -109,9 +112,22 @@
     <value>2.0</value>
   </resheader>
   <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <data name="BuildLab" xml:space="preserve">
+    <value>ewindows</value>
+  </data>
+  <data name="BuildNumber" xml:space="preserve">
+    <value>8</value>
+  </data>
+  <data name="ReleasedExe" xml:space="preserve">
+    <value>No</value>
+  </data>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="ShiftOSBuildLab" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ShiftOSBuildLab.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
+  </data>
 </root>

ShiftOS-TheRevival/Resources/ShiftOSBuildLab.txt

@@ -0,0 +1,4 @@
+No
+12
+Enter your username for the build lab below :
+ewindows

ShiftOS-TheRevival/ShiftOS Menu.Designer.vb

@@ -1,83 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class Form1
-    Inherits System.Windows.Forms.Form
-
-    'Form overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    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.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    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

ShiftOS-TheRevival/ShiftOS Menu.vb

@@ -1,3 +0,0 @@
-Public Class Form1
-
-End Class

ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj

@@ -72,10 +72,10 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="ShiftOS Menu.vb">
+    <Compile Include="MainForms\ShiftOS Menu.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="ShiftOS Menu.Designer.vb">
+    <Compile Include="MainForms\ShiftOS Menu.Designer.vb">
       <DependentUpon>ShiftOS Menu.vb</DependentUpon>
       <SubType>Form</SubType>
     </Compile>
@@ -102,7 +102,7 @@
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
       <SubType>Designer</SubType>
     </EmbeddedResource>
-    <EmbeddedResource Include="ShiftOS Menu.resx">
+    <EmbeddedResource Include="MainForms\ShiftOS Menu.resx">
       <DependentUpon>ShiftOS Menu.vb</DependentUpon>
     </EmbeddedResource>
   </ItemGroup>
@@ -118,5 +118,11 @@
     </None>
     <None Include="App.config" />
   </ItemGroup>
+  <ItemGroup>
+    <Folder Include="DevOnlyRes\" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\ShiftOSBuildLab.txt" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>