tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^4: Do Loop 内のtextbox入力
投稿日: 2008/05/26(Mon) 15:00
投稿者せんさん
>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
    '** text1.textを消す **
    Else

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。