VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -