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

最新推荐文章于 2023-12-04 23:08:33 发布

原创

最新推荐文章于 2023-12-04 23:08:33 发布 · 2.1k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #textbox #string #button #integer #function

这是一个使用VB.net编写的程序，用于验证SN和itemcode输入的正确性，然后根据itemcode确定商品名称，并将数据替换到模板中，通过Zebra打印机打印条码。代码包括输入验证、数据赋值、文件读写和打印功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近刚刚完成了一个简单的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"