ShiftOS-TheRevival/API/ConsoleAPI.vb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

Module ConsoleAPI
    Public StayAtChapter As Boolean = False             'If this set to true, then intro for chapters are mostly going to be in
    Public NewBackground As System.ComponentModel.BackgroundWorker

    Public Sub Console_Windowed()
        Console.WindowState = FormWindowState.Normal
    End Sub

    Public Sub Console_Full()
        Console.FormBorderStyle = FormBorderStyle.None
        Console.WindowState = FormWindowState.Maximized
    End Sub

    Public Sub Console_Interpreters()
        If Console.ShouldChange = True Then
            Console.ChangeInterpreter = True
            Console.ShouldChange = False
        End If
    End Sub

    Public Sub NewLine(str As String)
        Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & str
    End Sub

    Public Sub AddLine(str As String)
        Console.TextBox1.Text = Console.TextBox1.Text & str
    End Sub

    Public Sub ResetLine(str As String)
        Console.TextBox1.Text = str
    End Sub

    Public Sub Undeveloped()
        NewLine("Oopsie! It's only for newer version")
    End Sub

    Public Sub TextRebind()
        Console.TextBox1.Select(Console.TextBox1.Text.Length, 0)
        Console.TextBox1.ScrollToCaret()
    End Sub

    Public Sub TextRebindBehind()
        'Console.TextBox1.Select(Console.TextBox1.Lines.Length - 1, 0)
        Console.TextBox1.Select(Console.TextBox1.Lines.Length - 1, 0)
        Console.TextBox1.ScrollToCaret()
    End Sub

    Public Function NewBackgroundWorker(WorkSub As System.ComponentModel.DoWorkEventHandler, ProgressSub As System.ComponentModel.ProgressChangedEventHandler, CompleteSub As System.ComponentModel.RunWorkerCompletedEventHandler)
        NewLine("NewBW")
        NewBackground = New ComponentModel.BackgroundWorker
        NewBackground.WorkerReportsProgress = True
        NewBackground.WorkerSupportsCancellation = True
        AddHandler NewBackground.DoWork, WorkSub
        AddHandler NewBackground.ProgressChanged, ProgressSub
        AddHandler NewBackground.RunWorkerCompleted, CompleteSub
        NewBackground.RunWorkerAsync()

        'Return NewBackground
    End Function

    Public Sub StopBackgroundWorker(WhichBackgroundWorker As System.ComponentModel.BackgroundWorker)
        If WhichBackgroundWorker IsNot Nothing AndAlso WhichBackgroundWorker.WorkerSupportsCancellation Then
            ' Request cancellation
            NewLine("CloseBW")
            WhichBackgroundWorker.CancelAsync()
        End If
    End Sub
End Module