我有一個Textbox1,Label1和一個AcroPDF1。我的目標是使用條碼掃描器並掃描材料編號。我在該位置沒有可用的鍵盤或鼠標。條形碼掃描儀在最後給出了一個Enter asci。這很好,但它使它進入下一個索引。我儘量不要跳到AcroPDF,但Tabstop已經是假的,但它仍然跳轉到PDF。所以我希望能夠隨時掃描並顯示特殊的pdf格式。AcroPDF VBA Tabstop
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If InStr(TextBox1.Value, "_") <> 0 Then
TextBox1.Value = Left(TextBox1.Value, InStrRev(TextBox1.Value, "_", , vbTextCompare) - 1)
End If
Label1.Caption = TextBox1.Value
TextBox1.Value = ""
AcroPDF1.LoadFile "F:\APPS\Packaging\84260388.pdf"
End If
End Sub
感謝
我曾嘗試過。它不會回到TextBox1。它仍然與PDF。 – Patrik 2011-06-20 12:55:33