|
▼亜矢 さん:
こんにちは。
> スペースの場合
> あああああああああ →これ以上スペースの場合は次ぎの行に
> スペース(カーソル)がない
空白文字は、テキストボックス内にある間は
別の文字に置き換えてしまう方法は?
Private stopev As Boolean
Private Sub TextBox1_Change()
Dim mystr As String
If stopev = False Then
If Len(TextBox1.Text) > 0 Then
If Mid(TextBox1.Text, Len(TextBox1.Text), 1) = " " Then
mystr = TextBox1.Text
Mid(mystr, Len(mystr), 1) = Chr(&H7F)
TextBox1.Text = mystr
ElseIf Mid(TextBox1.Text, Len(TextBox1.Text), 1) = " " Then
mystr = TextBox1.Text
Mid(mystr, Len(mystr), 1) = "□"
TextBox1.Text = mystr
End If
End If
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
勿論、どこかのタイミングで元に戻すのですよ!!
検討してみてください
|
|