mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 02:12:14 +00:00
35 lines
1.2 KiB
VB.net
35 lines
1.2 KiB
VB.net
|
Imports System.IO
|
|||
|
|
|
|||
|
|
Module App_TextPad
|
|||
|
|
Public Sub TextPad_CheckExist(TxtFileName As String)
|
|||
|
|
If File.Exists(Console.CurrentDirectory & "\" & TxtFileName) = True Then
|
|||
|
|
Console.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Console.CurrentDirectory & "\" & TxtFileName)
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub TextPad_GenerateCP_SavedFile()
|
|||
|
|
Select Case Console.TextBox1.TextLength
|
|||
|
|
Case 1 To 9
|
|||
|
|
Dim GetCP As New Random
|
|||
|
|
Dim GotCP As Integer = GetCP.Next(1, 3)
|
|||
|
|
ChangeCP(True, GotCP)
|
|||
|
|
Case 10 To 99
|
|||
|
|
Dim GetCP As New Random
|
|||
|
|
Dim GotCP As Integer = GetCP.Next(4, 26)
|
|||
|
|
ChangeCP(True, GotCP)
|
|||
|
|
Case 100 To 999
|
|||
|
|
Dim GetCP As New Random
|
|||
|
|
Dim GotCP As Integer = GetCP.Next(27, 251)
|
|||
|
|
ChangeCP(True, GotCP)
|
|||
|
|
Case 1000 To 9999
|
|||
|
|
Dim GetCP As New Random
|
|||
|
|
Dim GotCP As Integer = GetCP.Next(252, 2501)
|
|||
|
|
ChangeCP(True, GotCP)
|
|||
|
|
End Select
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub TextPad_WarnFile()
|
|||
|
|
NewLine("Type any filename after 'textpad'!, ex: textpad text.txt")
|
|||
|
|
End Sub
|
|||
|
|
End Module
|