mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-22 11:21:47 -05:00
13 lines
No EOL
503 B
VB.net
13 lines
No EOL
503 B
VB.net
Public Class DebugWindow
|
|
|
|
Public ShouldDebug As Boolean
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Clipboard.SetText(TextBox1.Text)
|
|
End Sub
|
|
|
|
Public Sub AddLine(subs As String, int As String, str As String, action As String)
|
|
If ShouldDebug = True Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & subs & " Sub with " & str & " string and " & int & " integer did " & action
|
|
End If
|
|
End Sub
|
|
End Class |