| 投稿日 | ： 2005/01/12(Wed) 15:51 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: テキストボックスの入力制限数について |
複数行表示用のテキストボックスでなければ下記のようにすれば。
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