タイトル : Re^3: Do Loop 内のtextbox入力 投稿日 : 2008/05/26(Mon) 10:52 投稿者 : 琴
> Private Sub Text1_Change() > Dim aa As String > Dim bb As String > aa = Label1.Caption > bb = Text1.Text > If aa = bb Then > Exit Sub > '** text1.textを消す ** > Else > text1.text="" > End If > End Sub Chengeイベントは入力の度に動作しますから 1文字入力 → 判定 → 違うから消す を繰り返しちゃいますよ。 LostFocus や 一定桁数の入力、「判定」ボタン等で入力が確定したことが 判別できないといけないと思います。 |