AcroPDF VBA Tabstop

Question

我有一个Textbox1，Label1和一个AcroPDF1。我的目标是使用条形码扫描仪并扫描材料编号。我在那个位置没有键盘或鼠标。条形码扫描器最后给出了一个Enter asci。这很好，但它会进入下一个索引。我尝试了所有不要跳到AcroPDF，但Tabstop已经错了，但它仍然跳转到PDF。所以我希望能够随时扫描并显示特殊的pdf beeing。

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

由于

Answer 1

不确定我是否正确阅读此内容，但加载PDF后，您想将焦点设置回文本框？如果是这种情况，请在PDF加载后使用TextBox1.SetFocus()方法。这会将光标设置回文本框。

Answer 2

在激活axAcroPDF控制后，如何将焦点设置回形式确实不太清楚。在像this这样的线程中讨论了这个问题。提供了3种解决方案，但在我看来它们更像是黑客，因为axAcroPDF ActiveX控件本身就有一种相当不寻常的行为。我担心（最后）将这个控件用于复杂和/或严肃的应用程序并不是一个好主意。