|
Private stopev As Boolean
Private Sub TextBox1_Change()
If stopev = False Then
If Me.TextBox1.LineCount >= 3 Then
stopev = True
Do While TextBox1.LineCount >= 3
If Mid(TextBox1.Text, Len(TextBox1.Text) - 1, 2) = vbCrLf Then
TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 2)
Else
TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)
End If
Loop
stopev = False
MsgBox "3行目には入力できません"
End If
End If
End Sub
こうしないと駄目ですね!!
前回コードだと
aaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaa
と2行目分まで入力した後、漢字モードで あああああああああああああ
なんて入力すると何回もエラーメッセージが表示されてしまいます
|
|