投稿日 | : 2003/01/10(Fri) 14:29 |
投稿者 | : はらだ |
URL | : |
タイトル | : いつもありがとうございます。(解決しました) |
> テキストボックスでしか確認していませんが、下記のような方法ではだめですか?
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> If Len(Text1.Text) >= 6 Then
> KeyAscii = 0
> End If
> End Sub
花ちゃんさん。
いつも、ありがとうございます。
”テキストボックス”という言葉にヒントを得て、解決することができました。
具体的には、セルのエディタをTextBox型オブジェクトにキャストして、
MaxLength指定をするというやり方です。
また、お世話になることと思いますので、今後ともよろしくお願いいたします。
#言い忘れていて申し訳なかったのですが、開発環境はVB.NETです。
修正したサンプルコードを載せておきます。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Private Sub C1FlexGrid1_KeyDownEdit(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.KeyEditEventArgs) Handles C1FlexGrid1.KeyDownEdit
Dim txtEditor As TextBox
Dim ctlEditor As Control = C1FlexGrid1.Editor
If (TypeOf ctlEditor Is TextBox) Then
txtEditor = CType(ctlEditor, TextBox)
txtEditor.MaxLength = 6
End If
End Sub