これに関するヘルプは大歓迎です-
VB .NET で BarcodeEvent を起動できません。スキャナは USB (IBM Hand Held) モードで、SDK に付属の C# サンプル アプリケーションですべて正常に動作します。また、VB .net でスキャナーのビープ音を鳴らすことができるので、ドライバーは正常に動作しています。この C# コードを VB に変換するのを間違えたのでしょう。
cCoreScannerClass.BarcodeEvent += new
_ICoreScannerEvents_BarcodeEventEventHandler(OnBarcodeEvent);
void OnBarcodeEvent(short eventType, ref string pscanData)
{
string barcode = pscanData;
this.Invoke((MethodInvoker)delegate { textBox1.Text = barcode; });
}
-- これが私のコードです: -------
Imports CoreScanner
Imports System.Collections.Generic
Imports System.Text
Public Class Form1
Public WithEvents cCoreScannerClass As CCoreScannerClass
Sub Main()
cCoreScannerClass = New CCoreScannerClass
Dim scannertype(1) As Short
scannertype(0) = 1
Dim numberOfScannerTypes As Short
numberOfScannerTypes = 1
Dim status As Integer
cCoreScannerClass.Open(0, scannertype, numberOfScannerTypes, status)
AddHandler cCoreScannerClass.BarcodeEvent, AddressOf OnBarcodeEvent
Dim opcode As Integer = 1001
Dim outXML As String
Dim inXML = "<inArgs>" +
"<cmdArgs>" +
"<arg-int>1</arg-int>" +
"<arg-int>1</arg-int>" +
"</cmdArgs>" +
"</inArgs>"
cCoreScannerClass.ExecCommand(opcode, inXML, outXML, status)
End Sub
Public Sub OnBarcodeEvent(eventType As Short, ByRef pscanData As String) Handles cCoreScannerClass.BarcodeEvent
MsgBox("Success!")
End Sub