掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストボックスを2行だけ入力できるようにするには？ (ID:147231)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
色々な方法がありますが、その程度の事を調べるなら、処理速度も影響しないので、単純に 改行文字の数を調べれば行数が解るし、１行目の文字数と２行目の文字数を調べればすむかと。 例えば、下記のように、後は貴方の仕様に合せて工夫して下さい。 Private Sub Text1_Change() Dim Mytxt As Variant Dim i As Long Mytxt = Split(Text1.Text, vbCrLf) For i = LBound(Mytxt) To UBound(Mytxt) If Len(Mytxt(i)) > 10 Then MsgBox "10文字以上の入力はできません。" Mytxt(i) = Left$(Mytxt(i), 10) End If If i = 1 Then Text1.Text = Mytxt(0) & vbCrLf & Mytxt(1) ElseIf i > 1 Then MsgBox "2行以上の入力はできません" Exit For End If Next i End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.