diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb deleted file mode 100644 index ebfe7f2..0000000 --- a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb +++ /dev/null @@ -1,27 +0,0 @@ -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 |