| 投稿日 | ： 2005/01/12(Wed) 21:22 |
| 投稿者 | ： nao |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: テキストボックスの入力制限数について |
思い通りに動きました。
ありがとうございました。
> 複数行表示用のテキストボックスでなければ下記のようにすれば。
>
> Private Sub Text1_Change()
> '半角1バイト換算で１０バイトまでの入力制限をする（貼り付けにも対応）
> Call sSetMaxLenB(Text1, 10)
> End Sub
>
> Private Sub sSetMaxLenB(ByVal txtBox As TextBox, ByVal CutByt As Integer)
> '半角1バイト換算のバイト数での入力制限する
> With txtBox
> If LenB(StrConv(.Text, vbFromUnicode)) > CutByt Then
> '指定のバイトになるまで１文字づつ削除
> .Text = Left$(.Text, Len(.Text) - 1)
> .SelStart = Len(.Text) 'テキストの最後の文字位置に
> .SetFocus 'フォーカスを移動
> End If
> End With
> End Sub