ConsoleSample.vb

Imports FastColoredTextBoxNS
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms

Namespace TesterVB
    Public Class ConsoleSample
        Inherits Form

        Private _stop As Boolean

        Private components As IContainer = Nothing

        Private consoleTextBox1 As ConsoleTextBox

        Private label2 As Label

        Public Sub New()
            Me.InitializeComponent()
        End Sub

        Protected Overrides Sub OnShown(e As EventArgs)
            MyBase.OnShown(e)
            _stop = False
            Dim text As String
            Do
                Me.consoleTextBox1.WriteLine("Enter some line: ")
                text = Me.consoleTextBox1.ReadLine()
            Loop While text <> "" AndAlso Not _stop
            Me.consoleTextBox1.WriteLine("End of enetering.")
        End Sub

        Protected Overrides Sub OnClosing(e As CancelEventArgs)
            Me.[Stop]()
            MyBase.OnClosing(e)
        End Sub

        Private Sub [Stop]()
            _stop = True
            Me.consoleTextBox1.IsReadLineMode = False
        End Sub

        Protected Overrides Sub Dispose(disposing As Boolean)
            If disposing AndAlso Me.components IsNot Nothing Then
                Me.components.Dispose()
            End If
            MyBase.Dispose(disposing)
        End Sub

        Private Sub InitializeComponent()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ConsoleSample))
            Me.label2 = New System.Windows.Forms.Label()
            Me.consoleTextBox1 = New TesterVB.ConsoleTextBox()
            Me.SuspendLayout()
            '
            'label2
            '
            Me.label2.Dock = System.Windows.Forms.DockStyle.Top
            Me.label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
            Me.label2.Location = New System.Drawing.Point(0, 0)
            Me.label2.Name = "label2"
            Me.label2.Size = New System.Drawing.Size(737, 38)
            Me.label2.TabIndex = 2
            Me.label2.Text = resources.GetString("label2.Text")
            '
            'consoleTextBox1
            '
            Me.consoleTextBox1.AllowDrop = True
            Me.consoleTextBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
            Me.consoleTextBox1.AutoScrollMinSize = New System.Drawing.Size(585, 15)
            Me.consoleTextBox1.BackBrush = Nothing
            Me.consoleTextBox1.BackColor = System.Drawing.Color.Black
            Me.consoleTextBox1.CaretColor = System.Drawing.Color.White
            Me.consoleTextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
            Me.consoleTextBox1.DisabledColor = System.Drawing.Color.FromArgb(CType(CType(100, Byte), Integer), CType(CType(180, Byte), Integer), CType(CType(180, Byte), Integer), CType(CType(180, Byte), Integer))
            Me.consoleTextBox1.FoldingIndicatorColor = System.Drawing.Color.Gold
            Me.consoleTextBox1.Font = New System.Drawing.Font("Consolas", 9.75!)
            Me.consoleTextBox1.ForeColor = System.Drawing.Color.White
            Me.consoleTextBox1.IndentBackColor = System.Drawing.Color.Black
            Me.consoleTextBox1.IsReadLineMode = False
            Me.consoleTextBox1.LineNumberColor = System.Drawing.Color.Gold
            Me.consoleTextBox1.Location = New System.Drawing.Point(12, 41)
            Me.consoleTextBox1.Name = "consoleTextBox1"
            Me.consoleTextBox1.PaddingBackColor = System.Drawing.Color.Black
            Me.consoleTextBox1.Paddings = New System.Windows.Forms.Padding(0)
            Me.consoleTextBox1.PreferredLineWidth = 80
            Me.consoleTextBox1.SelectionColor = System.Drawing.Color.FromArgb(CType(CType(150, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
            Me.consoleTextBox1.ServiceLinesColor = System.Drawing.Color.DimGray
            Me.consoleTextBox1.Size = New System.Drawing.Size(713, 342)
            Me.consoleTextBox1.TabIndex = 0
            Me.consoleTextBox1.WordWrap = True
            Me.consoleTextBox1.WordWrapMode = FastColoredTextBoxNS.WordWrapMode.CharWrapPreferredWidth
            '
            'ConsoleSample
            '
            Me.ClientSize = New System.Drawing.Size(737, 395)
            Me.Controls.Add(Me.label2)
            Me.Controls.Add(Me.consoleTextBox1)
            Me.Name = "ConsoleSample"
            Me.Text = "ConsoleSample"
            Me.ResumeLayout(False)

        End Sub
    End Class
End Namespace