From 06c4f15bdb7dd27cec004fad6b19d4cecb2461e9 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Tue, 1 Nov 2022 15:27:02 +0700 Subject: MainMenu --- ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb (limited to 'ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb') 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 -- cgit v1.2.3