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

Module ConsoleAPI

    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
End Module