blob: e9f4f0b14fb1a20428f12493f52907aab481a30c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
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
|
