デザイナによる設定
デザイナで正規表現による検証を設定するには、次のように操作します。この例では、文字列型セルに全角カタカナ以外の文字列が入力されたときに検証エラーを表示します。
- 値を検証するセルを選択する。(例: textBoxCell1)
- プロパティウィンドウでValidatorsプロパティを選択し、[...]ボタンをクリックする。
- 表示されたCellValidatorコレクションエディタで左上のコンボボックスから「RegularExpressionValidator」を選択し、[追加]をクリックする。
- [メンバ]リストでRegularExpressionValidatorが選択されていることを確認する。
- 画面右のプロパティグリッドでExpressionプロパティを選択し、全角カタカナを示す文字クラス「\p{IsKatakana}+」を入力する。
- 画面右のプロパティグリッドでActionsプロパティを選択し、[...]ボタンをクリックする。
- 表示されたCellValidateActionコレクションエディタでLineNotifyを追加する。
- [OK]ボタンをクリックしてCellValidateActionコレクションエディタを閉じる。
- [OK]ボタンをクリックしてCellValidatorコレクションエディタを閉じる。
- デザイナのドキュメントウィンドウのタブを「実行時」に切り替える。
- 「あいう」と入力してセルを移動したときに検証エラーになることを確認する。
- 「あいう」を消して「アイウ」を入力して移動したときに検証エラーにならないことを確認する。
コーディングによる設定
次のコードは、セルの値が全角カタカナ以外の場合に検証エラーを表示します。
Imports GrapeCity.Win.MultiRow Dim TextBoxCell1 As New TextBoxCell() Dim RegularExpressionValidator1 As New RegularExpressionValidator() RegularExpressionValidator1.Expression = "\p{IsKatakana}+" RegularExpressionValidator1.Actions.Add(New LineNotify()) TextBoxCell1.Validators.Add(RegularExpressionValidator1) Dim cells As Cell() = {TextBoxCell1} GcMultiRow1.Template = Template.CreateGridTemplate(cells) GcMultiRow1.RowCount = 10
using GrapeCity.Win.MultiRow; TextBoxCell textBoxCell1 = new TextBoxCell(); RegularExpressionValidator regularExpressionValidator1 = new RegularExpressionValidator(); regularExpressionValidator1.Expression = @"\p{IsKatakana}+"; regularExpressionValidator1.Actions.Add(new LineNotify()); textBoxCell1.Validators.Add(regularExpressionValidator1); Cell[] cells = { textBoxCell1 }; gcMultiRow1.Template = Template.CreateGridTemplate(cells); gcMultiRow1.RowCount = 10;