タイトル : Re^2: Do Loop 内のtextbox入力 投稿日 : 2008/05/26(Mon) 10:45 投稿者 : せんさん
すいません。 やりたいこと 1.QRコードをリーダーで読み込んだ文字列をTextに張り付ける。 2.あらかじめ決められた文字列(例:EXT123) 3.Textに入力した文字列と決められた文字列の照合する。 4.間違っていればTextの文字列を消す。 5.合っていればText表示はそのままで終了。 6.間違っていれば1へ戻る。(Loop) Do Loop,Changeなど試しましたがうまく出来ません。 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 このようなプログラムでは入力できませんどのようにしたらいいでしょうか? 宜しくお願いします。 |