|
Imports i00SpellCheck
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
TextBox1.SelectionStart = 0
TextBox1.SelectionLength = 0
'The following is all that needs to be called...
Me.EnableControlExtensions()
'All multi-line textboxes within the control specified will automatically be spell checked!
'If the control specified is a form then all owned forms will AUTOMATICALLY have their textboxes
'spellchecked also! (An example can be seen in the "New Form" button)
End Sub
#Region "About button"
Private Sub tsiAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsiAbout.Click
Using frmAbout As New i00SpellCheck.AboutScreen
frmAbout.ShowInTaskbar = False
frmAbout.StartPosition = FormStartPosition.CenterParent
frmAbout.ShowDialog(Me)
End Using
End Sub
#End Region
#Region "New form button - to show spell check working in a form with NO user code"
Private Sub tsiNewForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsiNewForm.Click
Dim frm As New Form2
frm.TextBox1.SelectionStart = 0
frm.TextBox1.SelectionLength = 0
frm.Show(Me)
End Sub
#End Region
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.