Imports FastColoredTextBoxNS

Imports System

Imports System.ComponentModel

Imports System.Drawing

Imports System.Windows.Forms

Namespace TesterVB

Public Class IMEsample

Inherits Form

Private components As IContainer = Nothing

Private fctb As FastColoredTextBox

Private label1 As Label

Public Sub New()

Me.InitializeComponent()

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 ComponentResourceManager = New ComponentResourceManager(GetType(IMEsample))

Me.label1 = New Label()

Me.fctb = New FastColoredTextBox()

MyBase.SuspendLayout()

Me.label1.Dock = DockStyle.Top

Me.label1.Font = New Font("Microsoft Sans Serif", 9.75F, FontStyle.Regular, GraphicsUnit.Point, 204)

Me.label1.Location = New Point(0, 0)

Me.label1.Name = "label1"

Me.label1.Size = New Size(417, 85)

Me.label1.TabIndex = 3

Me.label1.Text = "This example supports IME entering mode. Simply set ImeMode property to On." & vbCrLf &

"Note: For a normal display wide characters (for Arabic or CJK languages) ​​may require a larger font size." & vbCrLf &

"Note: Enabled IME mode can decrease performance of control."

Me.fctb.AutoIndent = False

Me.fctb.AutoScrollMinSize = New Size(0, 264)

Me.fctb.BorderStyle = BorderStyle.FixedSingle

Me.fctb.Cursor = Cursors.IBeam

Me.fctb.Dock = DockStyle.Fill

Me.fctb.Font = New Font("Consolas", 15.75F, FontStyle.Regular, GraphicsUnit.Point, 204)

Me.fctb.ImeMode = ImeMode.[On]

Me.fctb.LeftBracket = "("

Me.fctb.Location = New Point(0, 85)

Me.fctb.Name = "fctb"

Me.fctb.RightBracket = ")"

Me.fctb.ShowLineNumbers = False

Me.fctb.Size = New Size(417, 217)

Me.fctb.TabIndex = 2

Me.fctb.Text = "The Tao Te Ching or Dao De Jing (道德經), whose authorship has been attributed to Laozi is a Chinese classic text." & vbCrLf & "宗教化《道德經》" & vbCrLf & "常會被歸屬為道教學說。"

Me.fctb.WordWrap = True

MyBase.AutoScaleDimensions = New SizeF(6.0F, 13.0F)

MyBase.AutoScaleMode = AutoScaleMode.Font

MyBase.ClientSize = New Size(417, 302)

MyBase.Controls.Add(Me.fctb)

MyBase.Controls.Add(Me.label1)

MyBase.Name = "IMEsample"

Me.Text = "IMEsample"

MyBase.ResumeLayout(False)

End Sub

End Class

End Namespace