スペルミスを解決するためにショートカット メニューを作成する

Imports Infragistics.Win
Imports Infragistics.Win.IGControls
Imports Infragistics.Win.UltraWinSpellChecker

using Infragistics.Win;
using Infragistics.Win.IGControls;
using Infragistics.Win.UltraWinSpellChecker;

This toppic will help you create a context memu to use on a richtextbox that will offer speling sugestions and other spelling related feachures when a mispelled word is right-clicked. The context menu will contain up to five sugestions for the mispelled word as well as the options to Ignor or Add to Dictionary.

' richtextbox のコンテキスト メニューと
' エラー オブジェクトを作成します。
Dim shortcut As New IGContextMenu()
Dim spellingError As [Error]

// richtextbox のコンテキスト メニューと
// エラー オブジェクトを作成します。
IGContextMenu menu = new IGContextMenu();
Error spellingError;

Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
	' Microsoft Word 2003 のように見せるために
	' コンテキスト メニューのスタイルを設定します。
	Me.shortcut.Style = MenuStyle.Office2003
	' richtextbox のコンテキスト メニューが
	' 以前に作成したコンテキスト メニューになるように設定します。
	Me.RichTextBox1.ContextMenu = Me.shortcut
	' ユーザー辞書を設定します。辞書がない場合、
	' この行は除外して、ユーザー辞書を
	' 後でテストします。
	Me.UltraSpellChecker1.UserDictionary = "C:\chris\chris.dict"
End Sub

private void Form1_Load(object sender, System.EventArgs e)
{
	// Microsoft Word 2003 のように見せるために
	// コンテキスト メニューのスタイルを設定します。
	this.menu.Style = MenuStyle.Office2003;
	// richtextbox のコンテキスト メニューが
	// 以前に作成したコンテキスト メニューになるように設定します。
	this.richTextBox1.ContextMenu = this.menu;
	// ユーザー辞書を設定します。辞書がない場合、
	// この行は除外して、ユーザー辞書を
	// 後でテストします。
	this.ultraSpellChecker1.UserDictionary = @"C:\chris\chris.dict";
}

Private Sub PopulateContextMenu(ByVal [error] As [Error])
	' コンテキスト メニューですべてのメニュー項目をクリアします。
	Me.shortcut.MenuItems.Clear()
	' WinSpellChecker に添付されている最初の 5 つのスペル修正候補
	' でコンテキスト メニューを埋めます。
	Dim i As Integer
	For i = 0 To [error].Suggestions.Count - 1
		If i = 5 Then
			Exit For
		End If
		Dim menuItem As IGMenuItem = New IGMenuItem([error].Suggestions(i).ToString(), _
		  New EventHandler(AddressOf menuItem_Click))
		Me.shortcut.MenuItems.Add(menuItem)
	Next i
	' 区切りをコンテキスト メニューに追加します。
	Dim barBreak As New IGMenuItem("-")
	Me.shortcut.MenuItems.Add(barBreak)
	' 右クリックしたワードのすべての発生を
	' 無視するために後で使用するコンテキスト メニューに
	' メニュー項目を追加します。
	Dim ignoreAll As IGMenuItem = New IGMenuItem("Ignore All", _
	  New System.EventHandler(AddressOf ignoreAll_Click))
	Me.shortcut.MenuItems.Add(ignoreAll)
	' 右クリックしたワードを
	' ユーザー辞書に追加するために後で使用するコンテキスト メニューに
	' メニュー項目を追加します。
	Dim addToDictionary As New IGMenuItem("Add to Dictionary", _
	  New System.EventHandler(AddressOf addToDictionary_Click))
	Me.shortcut.MenuItems.Add(addToDictionary)
	' ユーザー辞書がない場合、[辞書に追加] メニュー
	' 項目を無効にします。
	If Me.ultraSpellChecker1.UserDictionary = "" Then
	    Me.shortcut.MenuItems(Me.shortcut.MenuItems.Count - 1).Enabled = False
	End If
End Sub

private void PopulateContextMenu(Error error)
{
	// コンテキスト メニューですべてのメニュー項目をクリアします。
	this.menu.MenuItems.Clear();
	// WinSpellChecker の最初の 5 つのスペル修正候補
	// でコンテキスト メニューを埋めます。
	for (int i = 0; i < error.Suggestions.Count; i++)
	{
		if (i == 5) break;
		IGMenuItem menuItem = new IGMenuItem(error.Suggestions[i].ToString(),
		  new EventHandler(this.menuItem_Click));
		this.menu.MenuItems.Add(menuItem);
	}
	// 区切りをコンテキスト メニューに追加します。
	IGMenuItem barBreak = new IGMenuItem("-");
	this.menu.MenuItems.Add(barBreak);
	// 右クリックしたワードのすべての発生を
	// 無視するために後で使用するコンテキスト メニューに
	// メニュー項目を追加します。
	IGMenuItem ignoreAll = new IGMenuItem("Ignore All",
	  new EventHandler(this.ignoreAll_Click));
	this.menu.MenuItems.Add(ignoreAll);
	// 右クリックしたワードを
	// ユーザー辞書に追加するために後で使用するコンテキスト メニューに
	// メニュー項目を追加します。
	IGMenuItem addToDictionary = new IGMenuItem("Add to Dictionary",
	  new EventHandler(this.addToDictionary_Click));
	this.menu.MenuItems.Add(addToDictionary);
	// ユーザー辞書がない場合、[辞書に追加] メニュー
	// 項目を無効にします。
	if (this.ultraSpellChecker1.UserDictionary == "")
		this.menu.MenuItems[this.menu.MenuItems.Count - 1].Enabled = false;
}

Private Sub RichTextBox1_MouseDown(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDown
	If e.Button = MouseButtons.Right Then
		' spellingError の新しいポイントを作成し、
		' そのポイントでスペルエラーを取得するために使用します。このポイントは
		' マウス座標になります。
		Dim point As New Point(e.X, e.Y)
		' マウスの座標でスペルエラーを取得します。
		Me.spellingError = Me.UltraSpellChecker1.GetErrorAtPoint(Me.RichTextBox1, point)
		' 指定した座標にスペルエラーがない場合、
		' コンテキスト メニューをクリアしてキャンセルします。
		If spellingError Is Nothing Then
			Me.shortcut.MenuItems.Clear()
			Return
		Else
			Me.PopulateContextMenu(spellingError)
		End If
	End If
End Sub

private void richTextBox1_MouseDown(object sender, System.Windows.Forms.MouseEventArgs e)
{
	if (e.Button == MouseButtons.Right)
	{
		// spellingError の新しいポイントを作成し、
		// そのポイントでスペルエラーを取得するために使用します。このポイントは
		// マウス座標になります。
		Point point = new Point(e.X,e.Y);
		// マウスの座標でスペルエラーを取得します。
		this.spellingError = this.ultraSpellChecker1.GetErrorAtPoint(this.richTextBox1, point);
		// 指定した座標にスペルエラーがない場合、
		// コンテキスト メニューをクリアしてキャンセルします。
		if (spellingError == null)
		{
			this.menu.MenuItems.Clear();
			return;
		}
		else this.PopulateContextMenu(spellingError);
	}
}

Private Sub menuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
	Dim menuItem As IGMenuItem = sender
	Dim selectSpellingError As Integer = _
	  (Me.spellingError.EndIndex - Me.spellingError.StartIndex) + 1
	' Select メソッドは、このオーバーライドで 2 つの引数を取ります。
	' 選択の開始インデックスと選択の長さです。
	' プロパティ テキストが選択されると、ユーザーがクリックした
	' メニュー項目のテキストで置き換えられます。
	Me.RichTextBox1.Select(Me.spellingError.StartIndex, selectSpellingError)
	Me.RichTextBox1.SelectedText = menuItem.Text
End Sub
Private Sub ignoreAll_Click(ByVal sender As Object, ByVal e As EventArgs)
	' 右クリックしたワードのすべての発生を無視します。
	Me.UltraSpellChecker1.IgnoreAll(Me.spellingError.CheckedWord.ToString())
End Sub
Private Sub addToDictionary_Click(ByVal sender As Object, ByVal e As EventArgs)
	' 右クリックしたワードをユーザー辞書に追加します。
	Me.UltraSpellChecker1.AddWordToUserDictionary(Me.spellingError.CheckedWord.ToString())
End Sub

private void menuItem_Click(object sender, EventArgs e)
{
	IGMenuItem menuItem = sender as IGMenuItem;
	int selectSpellingError =
	  (this.spellingError.EndIndex - this.spellingError.StartIndex) + 1;
	// Select メソッドは、このオーバーライドで 2 つの引数を取ります。
	// 選択の開始インデックスと選択の長さです。
	// プロパティ テキストが選択されると、ユーザーがクリックした
	// メニュー項目のテキストで置き換えられます。
	this.richTextBox1.Select(this.spellingError.StartIndex, selectSpellingError);
	this.richTextBox1.SelectedText = menuItem.Text;
}
private void ignoreAll_Click(object sender, EventArgs e)
{
	// 右クリックしたワードのすべての発生を無視します。
	this.ultraSpellChecker1.IgnoreAll(this.spellingError.CheckedWord.ToString());
}
private void addToDictionary_Click(object sender, EventArgs e)
{
	// 右クリックしたワードをユーザー辞書に追加します。
	this.ultraSpellChecker1.AddWordToUserDictionary(this.spellingError.CheckedWord.ToString());
}