VB.net输出数据至Zebra打印机打印条码的程序

最近刚刚完成了一个简单的VB.net输出数据至Zebra打印机打印条码的程序，以下是代码，如过有需要的可以参考，

有不对的或者建议也请发给我，需要原程序的发邮件给我

tao.jm@163.com

 

------------------------------------

 

Imports System.IO
Imports System.Text

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '判断sn输入是否正确
        If Strings.Len(TextBox1.Text) = 11 Then
        Else
            MsgBox("Incorrect SN , please check again")
            TextBox1.Focus()
            TextBox1.SelectAll()
            Exit Sub
        End If

        '判断itemcode输入是否正确
        If Strings.Len(TextBox3.Text) = 11 Then
        ElseIf Strings.Len(TextBox3.Text) = 12 Then
        ElseIf Strings.Len(TextBox3.Text) = 14 Then
        ElseIf Strings.Len(TextBox3.Text) = 15 Then
        Else
            MsgBox("Incorrect itemcode , please check again")
            TextBox3.Focus()
            TextBox3.SelectAll()
            Exit Sub
        End If

        'sn赋值
        Dim sn As String = ""
        sn = TextBox1.Text

        'itemcode赋值
        Dim itemcode As String = ""
        If Strings.Len(TextBox3.Text) = 15 OrElse Strings.Len(TextBox3.Text) = 12 Then
            itemcode = Strings.Left(TextBox3.Text, 7) & Strings.Right(TextBox3.Text, 5)
        Else
            itemcode = Strings.Left(TextBox3.Text, 7) & Strings.Right(TextBox3.Text, 4)
        End If

        '根据itemcode判断itemname
        Dim itemname As String = ""

        If itemcode = "082849A.101" Then
            itemname = "FSMB CORE"

        ElseIf itemcode = "082849A.102" Then
            itemname = "FSMB CORE"

        ElseIf itemcode = "082849A.103" Then
            itemname = "FSMB CORE"

        ElseIf itemcode = "082849A.104" Then
            itemname = "FSMB CORE"

        ElseIf itemcode = "082849A.105" Then
            itemname = "FSMB CORE"

        ElseIf itemcode = "083675A.101" Then
            itemname = "FRCA CORE"

        ElseIf itemcode = "083684A.101" Then
            itemname = "FRCB CORE"

        ElseIf itemcode = "083688A.101" Then
            itemname = "FRGD CORE"

        ElseIf itemcode = "083688A.102" Then
            itemname = "FRGD CORE"

        ElseIf itemcode = "083688A.103" Then
            itemname = "FRGD CORE"

        ElseIf itemcode = "083688A.104" Then
            itemname = "FRGD CORE"

        ElseIf itemcode = "083688A.105" Then
            itemname = "FRGD CORE"

        ElseIf itemcode = "083504A.102" Then
            itemname = "FRIA CORE"

        ElseIf itemcode = "083504A.104" Then
            itemname = "FRIA CORE"

        ElseIf itemcode = "083504A.105" Then
            itemname = "FRIA CORE"

        ElseIf itemcode = "083504A.106" Then
            itemname = "FRIA CORE"

        ElseIf itemcode = "083504A.207" Then
            itemname = "FRIA CORE"

        ElseIf itemcode = "083640A.105" Then
            itemname = "FRIB CORE"

        ElseIf itemcode = "083640A.207" Then
            itemname = "FRIB CORE"

        ElseIf itemcode = "083689A.101" Then
            itemname = "FRGC CORE"

        ElseIf itemcode = "083689A.102" Then
            itemname = "FRGC CORE"

        ElseIf itemcode = "083689A.103" Then
            itemname = "FRGC CORE"

        ElseIf itemcode = "083689A.104" Then
            item