主题：二维码 如何实现扫码后 自动回车呢？

二维码 如何实现扫码后  自动回车呢？

 Dim doc As New PrintDoc() '定义一个报表
    doc.PageSetting.Width = cint(dr11("纸张宽度")) '纸张宽度
    doc.PageSetting.Height = cint(dr11("纸张高度")) '纸张高度
    Doc.PrinterName = dr11("二维码打印机")    '设定打印机为当前选择的打印机'
    Dim img As C1.C1Preview.RenderImage   '定义一个图像'
    Dim Bar As New BarCodeBuilder
    Bar.Symbology=Neodynamic.WinControls.BarcodeProfessional.Symbology.QRCode
    Bar.BarWidth = cint(dr11("二维码宽度"))
    Bar.BarHeight = cint(dr11("二维码高度"))
    Bar.QuietZoneWidth = cint(dr11("二维码静区"))
    Bar.QRCodeModuleSize = dr11("模组尺寸")
    Doc.Stacking = C1.C1Preview.StackingRulesEnum.InlineLeftToRight
    cmd.CommandText = "sele ct * from {办案装备_管理台账} where guid='" & guid & "'"
    Dim dt111 As DataTable = cmd.ExecuteReader()
    Dim dr111 As DataRow = dt111.DataRows(0)
    If dt111.datarows.count > 0 Then
        fl = ProjectPath & "Reports\" & dr111("编号") & "二维码.jpg"
   fl1 = ProjectPath & "Reports\" & dr111("编号") & "二维码.pdf"
        Bar.Code = dr111("编号")
    End If
    img = new C1.C1Preview.RenderImage
    img.Image = bar.GetImage
    img.X=cint(dr11("图片x"))
    img.y=cint(dr11("图片Y"))
    img.Width = cint(dr11("图片高度")) '宽度等于页面宽度
    img.Height = cint(dr11("图片宽度"))''高度由图片大小自动决定
    Doc.Body.Children.Add(img)
    If dr11("打印或预览")="打印"  Then
        doc.Print
    Else
  doc.SavePDF(fl1) '保存为PDF文件
        e.WriteString("\Reports\" & dr111("编号") & "二维码.PDF")

End If

我想在bs端的文本输入框中   实现扫码直接回车

1、是不是二维码中要添加回车按钮字符

2、还是直接指定文本输入框默认为英文输入法呢？

有些码扫描后会自动回车确认数据  有些码带有字母  不会自动回车确认数据

想不管是否带有字母 都自动回车确认数据

扫码功能就是一个页面放了一个文本框  然后利用扫码枪直接读取二维码