From bd4c45f316d11e124fe5d21d9c5f66e21149fc5d Mon Sep 17 00:00:00 2001
From: EverythingWindows <windowseverything61@gmail.com>
Date: Mon, 14 Nov 2022 13:50:43 +0700
Subject: More organized

---
 ShiftOS-TheRevival/API/ConsoleAPI.vb | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 ShiftOS-TheRevival/API/ConsoleAPI.vb

(limited to 'ShiftOS-TheRevival/API/ConsoleAPI.vb')

diff --git a/ShiftOS-TheRevival/API/ConsoleAPI.vb b/ShiftOS-TheRevival/API/ConsoleAPI.vb
new file mode 100644
index 0000000..7021e2e
--- /dev/null
+++ b/ShiftOS-TheRevival/API/ConsoleAPI.vb
@@ -0,0 +1,28 @@
+Module ConsoleAPI
+    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
-- 
cgit v1.2.3