Filter
Top Products
A-22 Programmer’s Manual
'************************************************************
'* WndProc
'* Description
'************************************************************
Protected Overrides Sub WndProc( _
ByRef msg As Microsoft.WindowsCE.Forms.Message)
Dim nBarType As Integer = 0
If (msg.Msg = unScanMsgID) Then
If (msg.WParam.ToInt32() = SM_SCANCHAR) Then
objForm.txtScanData.Text +=
Convert.ToChar(msg.LParam.ToInt32())
count = count - 1
If (count = 0) Then
strScanData = objForm.txtScanData.Text
'--Print a Label
PrintLabel()
End If 'If (count = 0)
End If 'If (msg.WParam.ToInt32
If (msg.WParam.ToInt32() = SM_SCANSTATUS) Or
(msg.Msg = 12288) Then
nBarType = (msg.LParam.ToInt32() >> 16) '&
&HFFFF
count = ((msg.LParam.ToInt32() << 16) >> 16)
' clear out the high 2 bytes by shifting right then left
objForm.txtScanLength.Text = "" &
count.ToString()
If (objForm.txtScanLength.Text = "-165535") Then
objForm.txtScanLength.Text = ""
objForm.txtScanType.Text = "No Scan"
End If 'If (objForm.txtScanLength.Text = "-
165535")