タイトル : Re^6: Do Loop 内のtextbox入力 投稿日 : 2008/05/26(Mon) 15:39 投稿者 : 來
QRコードを読んだときには、ENETERキーは発生するんでしょうか? するならこんなのではだめですかね? Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyReturn '改行 If Labek1 <> Text1 Then Text1 = "" Beep Text1.SetFocus Exit Sub End If End Select End Sub |