VB2005環境です。
DataGridViewコントロールの、列ごとに入力制限をかけたいと
思っています。
たとえば、1列目は数字のみ入力可能、2行目は半角英数字…と
いった具合です。
また、できればある列にはIMEMODEを設定してやりたいとも
思っています。
KeyDownイベントで、列の名前ごとにif文をかまして、文字を弾けば
いいかと思っていたのですが、思ったより手間で、コピペでの入力
には対応できません。
プロパティでなんとかならないかと思ったのですが、デザイナからは
そのようなものは見つかりませんでした。
何かシンプルに入力制御をかけられる方法はないでしょうか?
ご教授お願いいたします。
No.1ベストアンサー
- 回答日時:
vb2005は触った事がある位ですが・・・(vb2003も大差無いけど・・・)
DataGridView.CellValidating イベント と言うのが、.NET Framework version 2.0 で新しく追加されたらしくて、セルが入力フォーカスを失い、内容の検証が有効になった場合にイベントが発生するそうです。
チェックは入力が終わった段階で行いますので、入力途中は制限しません。
これが正しい使い方かわからないので、間違っていたら誰か訂正してください。
Imports System.Text.RegularExpressionsで、正規表現が使えるようにしてください。
Private Sub DataGridView1_CellValidating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating
'新しいレコードの行ならチェックしない
If DataGridView1.Rows(e.RowIndex).IsNewRow Then Return
DataGridView1.Rows(e.RowIndex).ErrorText = ""
Select Case e.ColumnIndex
Case 0
If Regex.IsMatch(e.FormattedValue.ToString(), "^[0-9]+$") = False Then
e.Cancel = True
DataGridView1.Rows(e.RowIndex).ErrorText = "数字だけにしてね"
End If
Case 1
If Regex.IsMatch(e.FormattedValue.ToString(), "^[a-zA-Z0-9]+$") = False Then
e.Cancel = True
DataGridView1.Rows(e.RowIndex).ErrorText = "半角英数にしてね"
End If
End Select
End Sub
IMEの設定の変更は、こんなでいいのか?
Private Sub DataGridView1_CellStateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellStateChangedEventArgs) Handles DataGridView1.CellStateChanged
If e.Cell.Selected = True Then
Select Case e.Cell.ColumnIndex
Case 0, 1
DataGridView1.ImeMode = Windows.Forms.ImeMode.Off
Case 2
DataGridView1.ImeMode = Windows.Forms.ImeMode.On
End Select
End If
End Sub
回答ありがとうございます。
入力の段階で弾きたいので、CellValidating だとちょっと
タイミング的に遅いようです。
しかし、ロジックを参考にさせていただきました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) プログラミング pythonの問題について 2 2022/04/19 00:41
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- Excel(エクセル) 列を自動で追加したい 3 2022/07/11 12:58
- Excel(エクセル) エクセル 関数について質問です。 2 2022/10/03 11:14
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Excel(エクセル) エクセルのマクロを教えてください。 1 2022/03/30 09:29
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
DataGridViewの桁数制限に関して
Visual Basic(VBA)
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
DataGridViewのチェックボックスのON、OFFの判定方法
C言語・C++・C#
-
-
4
初心者)DataGridViewの入力桁数を制限したいのですが
Visual Basic(VBA)
-
5
CellEnterイベント仕様について
Visual Basic(VBA)
-
6
C# DataGridViewで複数選択したセルに同じ値を一括で入力するには
C言語・C++・C#
-
7
DataGridViewの内容をDBに反映する時
Visual Basic(VBA)
-
8
【C#】DataGridViewの最大列数について
システム
-
9
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
10
小数点を含む数値かどうか判断の判断方法
Visual Basic(VBA)
-
11
VB.NETでのイベントの途中終了
Visual Basic(VBA)
-
12
DataGridViewの特定列に入力されている重複チェックをしたい
Visual Basic(VBA)
-
13
テキストボックスかラベル上の表示を縦に中央揃えしたい
Visual Basic(VBA)
-
14
VB.NET DataGridView 縦スクロールバーを常に表示
Visual Basic(VBA)
-
15
VB.NET2003 テキストボックスに半角英数字以外入力させない
Visual Basic(VBA)
-
16
共通モジュールでDBへの接続と利用方法
Visual Basic(VBA)
-
17
DataGridViewでセルクリックイベントを発生させるには
Visual Basic(VBA)
-
18
別フォームから戻ったときのイベント
Visual Basic(VBA)
-
19
CloseとDisposeの違い
Visual Basic(VBA)
-
20
フォームの再読み込み
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
指定した演算を実施の結果を表...
-
テキストボックスの番号を使っ...
-
クロスサイト・スクリプティン...
-
エクセルVBA テキストボックス...
-
Windowsのアプリ開発ってなんの...
-
アクセスのマクロ
-
カーソルの初期値を指定の場所...
-
VBA R1C1形式で変数の入力について
-
問い合わせフォームの作り方
-
フォームの入力項目に全角文字...
-
バーコードリーダーって、最後...
-
数字以外の入力をエラーにする...
-
ブラウザバック以外で情報を保...
-
教えて!全角文字「μ」の半角
-
phpMyAdmin/テーブル作成エラー...
-
ExcelVBA No.を自動連番で設定...
-
SQL で数値フィールドにDBNULL...
-
外部サイトからHTMLを抜き出す...
-
EC CUBEの会員登録の部分の項...
-
自分のアドレスに送信用のメー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
初歩的な事だと思います。 Sub...
-
数字以外の入力をエラーにする...
-
EXCEL VBA で指定した範囲に入...
-
Excel-VBAでInputBox+Pulldown...
-
入力フォームの値をQRコードで...
-
VBAの質問になります メッセー...
-
c#でTextBoxの入力制限
-
VBAで質問があります
-
教えて!全角文字「μ」の半角
-
VBAでInputBoxの再入力をさせる...
-
excel vba でユーザーフォーム...
-
TextBoxから数字が文字...
-
エディットボックスの入力制限...
-
accessで該当するレコードがな...
-
DataGridViewの桁数制限に関して
-
VBA R1C1形式で変数の入力について
-
「イ分」・・・フンという文字...
-
Windowsのアプリ開発ってなんの...
おすすめ情報