摩托羅拉手持式MC55A開發

Question

我有摩托羅拉手持式MC55A與Windows嵌入式掌上電腦6.5，我想開始開發一個應用程序來讀條碼。我沒有找到任何參考做我的命令 我已經安裝了VS2008，並開始創建智能使用簡單表格的設備應用程序

Answer 1

值得稱道的優點：最初我沒有寫下面的代碼，我不確定誰最初做過它，可能是由符號開發人員編寫的......我不確定，我只用過它。 1-首先下載並安裝Motorola EMDK，之後，您將複製C：\ Program Files（x86）\ Motorola EMDK for .NET \ v2.5 \ SDK \ Smart Devices \ Symbol.Barcode .dll文件放到您的口袋裏的\ My Device \ Windows文件夾中。

Public Class frmTest 
Dim MyReader As Symbol.Barcode.Reader = Nothing 
Dim MyReaderData As Symbol.Barcode.ReaderData = Nothing 
Dim MyEventHandler As System.EventHandler = Nothing 
Dim MyHandlerCB As System.EventHandler = Nothing 

Private Sub frmTest_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    InitReader() 
End Sub 

Protected Overloads Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs) 
    StopRead() 
    Me.TermReader() 
    MyBase.OnClosing(e) 
End Sub 

Private Function InitReader() As Boolean 
    ' If reader is already present then fail initialize 
    If Not (Me.MyReader Is Nothing) Then 
     Return False 
    End If 
    'Create new reader, first available reader will be used. 
    Me.MyReader = New Symbol.Barcode.Reader 
    'Create reader data 
    Me.MyReaderData = New Symbol.Barcode.ReaderData(_ 
           Symbol.Barcode.ReaderDataTypes.Text, _ 
           Symbol.Barcode.ReaderDataLengths.DefaultText) 
    ' create event handler delegate 
    Me.MyEventHandler = New System.EventHandler(AddressOf MyReader_ReadNotify) 
    'Enable reader, with wait cursor 
    Me.MyReader.Actions.Enable() 
    Return True 
End Function 

Private Sub TermReader() 
    'If we have a reader 
    If Not (Me.MyReader Is Nothing) Then 
     'Disable reader, with wait cursor 
     Me.MyReader.Actions.Disable() 
     'free it up 
     Me.MyReader.Dispose() 
     ' Indicate we no longer have one 
     Me.MyReader = Nothing 
    End If 
    ' If we have a reader data 
    If Not (Me.MyReaderData Is Nothing) Then 
     'Free it up 
     Me.MyReaderData.Dispose() 
     'Indicate we no longer have one 
     Me.MyReaderData = Nothing 
    End If 
End Sub 

Private Sub StartRead() 
    'If we have both a reader and a reader data 
    If Not ((Me.MyReader Is Nothing) And (Me.MyReaderData Is Nothing)) Then 
     'Submit a read 
     AddHandler MyReader.ReadNotify, Me.MyEventHandler 
     Me.MyReader.Actions.Read(Me.MyReaderData) 
    End If 
End Sub 

Private Sub StopRead() 
    'If we have a reader 
    If Not (Me.MyReader Is Nothing) Then 
     'Flush (Cancel all pending reads) 
     RemoveHandler MyReader.ReadNotify, Me.MyEventHandler 
     Me.MyReader.Actions.Flush() 
    End If 
End Sub 

Private Sub MyReader_ReadNotify(ByVal o As Object, ByVal e As EventArgs) 
    Dim TheReaderData As Symbol.Barcode.ReaderData = Me.MyReader.GetNextReaderData() 
    'If it is a successful read (as opposed to a failed one) 
    If (TheReaderData.Result = Symbol.Results.SUCCESS) Then 
     'Handle the data from this read 
     Me.HandleData(TheReaderData) 
     'Start the next read 
     Me.StartRead() 
    End If 
End Sub 

Private Sub HandleData(ByVal TheReaderData As Symbol.Barcode.ReaderData) 
    txtBarCode.Text = TheReaderData.Text 
End Sub 

Private Sub txtBarCode_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBarCode.GotFocus 
    StartRead() 
End Sub 

Private Sub txtBarCode_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBarCode.LostFocus 
    StopRead() 
End Sub 

末級

Answer 2

您想要掃描條形碼並將它們插入到應用程序的文本框中？ 嘗試從控制面板啓用Data Wedge。