Mega Code Archive

 

Categories / VB.Net / WPF

 

Check Spelling Error

<Window x:Class="WpfApplication1.MainWindow"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="WpfApplication1" Height="225" Width="311" WindowStartupLocation="CenterScreen">   <StackPanel>     <TextBox  SpellCheck.IsEnabled ="True" AcceptsReturn ="True"       Name ="txtData"  FontSize ="14"       BorderBrush ="Blue" Height ="100">     </TextBox>     <Button Name ="btnOK" Content ="Get Selections" Width = "100" Click ="btnOK_Click"/>   </StackPanel> </Window> //File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Text Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Namespace WpfApplication1   Public Partial Class MainWindow     Inherits System.Windows.Window     Public Sub New()       InitializeComponent()     End Sub     Protected Sub btnOK_Click(sender As Object, args As RoutedEventArgs)       Dim spellingHints As String = String.Empty       Dim [error] As SpellingError = txtData.GetSpellingError(txtData.CaretIndex)       If [error] IsNot Nothing Then         For Each s As String In [error].Suggestions           spellingHints += String.Format("{0}" & vbLf, s)         Next         MessageBox.Show(spellingHints, "Try these instead")       End If     End Sub   End Class End Namespace