VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル： Re^6: Do　Loop 内のtextbox入力

投稿日： 2008/05/26(Mon) 19:07

投稿者： K・今川

>１．QRコードをリーダーで読み込んだ文字列をTextに張り付ける。
Text1.Textへどのような方法でQRコードを入力しているのかわからないので
とりあえず手入力として考えてみました。

Private Sub Text1_Change()

    Dim aa As String
    Dim bb As String

    aa = Label1.Caption
    bb = Text1.Text
    '------------------------------------追加
    If text1.text=""   Then Exit Sub   '<=====テキストを消したときに対応。
    If Len(aa)>Len(bb) Then Exit Sub   '<=====あらかじめ決められた文字列と
                                       '      同じ文字数になるまで比較しない。
    '----------------------------------------
    If aa = bb Then
        Exit Sub
    Else
        text1.text=""
    EndIf

End Sub

Text1.Textへの入力がプログラム上で Text1.Text=QRコードとか
ctrl+V などで貼り付けるのなら二行目のIf文は不要です。

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

Do　Loop 内のtextbox入力

せんさん

No.12342

Re: Do　Loop 内のtextbox入力 - 花ちゃん 08/05/26-08:13 No.12358
- Re^2: Do　Loop 内のtextbox入力 - せんさん 08/05/26-10:45 No.12363
  - Re^3: Do　Loop 内のtextbox入力 - 琴 08/05/26-10:52 No.12364
    - Re^4: Do　Loop 内のtextbox入力 - せんさん 08/05/26-15:00 No.12371
      - Re^5: Do　Loop 内のtextbox入力 - せんさん 08/05/26-15:03 No.12372
        
        Re^6: Do　Loop 内のtextbox入力 - 來 08/05/26-15:39 No.12373
        
        Re^7: Do　Loop 内のtextbox入力 - せんさん 08/05/26-16:03 No.12374
        
        Re^8: Do　Loop 内のtextbox入力 - 琴 08/05/26-16:47 No.12378
        
        Re^6: Do　Loop 内のtextbox入力 - K・今川 08/05/26-19:07 No.12382
        
        Re^7: Do　Loop 内のtextbox入力 - せんさん 08/05/27-08:48 No.12386
        
        Re^8: Do　Loop 内のtextbox入力 - K・今川 08/05/27-12:59 No.12387

タイトル	： Re^6: Do　Loop 内のtextbox入力
投稿日	： 2008/05/26(Mon) 19:07
投稿者	： K・今川

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