タイトル : Re^5: Do Loop 内のtextbox入力 投稿日 : 2008/05/26(Mon) 15:03 投稿者 : せんさん
> >PCモニター上に表示された資材名と資材箱の中の資材(QRコード)とが同じか > を照合します。違っていた場合,ブザーを鳴らして同じになるまで繰り返します。 > 繰り返すのに必要な条件は張り付いた違った資材名を自動で消すことです。 > この自動で消すプログラムがどのようにすればいいのか解かりません。 > 手順 > 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 > Else > text1.text="" >endif >end sub |