Filter
Top Products
A-6 Programmer’s Manual
' Check Battery
MsgBox("Low Battery", MsgBoxStyle.OKOnly, "Battery Check")
Else
' --Print Format and then Batch Data
rPrint.Text = fmtUPCA
rPrint.Text = "{B,1,N,1|E,0,0,1,1,0,1|"
rPrint.Text = "1," & Chr(34) & txtUPC.Text & Chr(34) &
"|}"
' --Clear UPC and Set Focus
txtUPC.Text = "" ' Reset content to nothing
txtUPC.Focus() ' Focus on the text box
End If
End If
End Sub
'************************************************************
'* btnClear_Click Event
'* Description:
'* Erase data &
'* Set focus back to txtUPC
'************************************************************
Private Sub btnClear_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnClear.Click
txtUPC.Text = "" '
Erase any data
txtUPC.Focus() '
Put focus back on the txt box
End Sub
End Class