一、条形码的读取
用过键盘口式的扫条码工具的朋友就知道,它就如同在鍵盘上按下数字鍵一样,基本不需任何编程和处理。但如果你使用的是其它接口的话,可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。
Option
Explicit
Dim sData As String
Private Sub Form_Load()
With MSComm1

   .CommPort = 3 '设为COM3,试运行的系统而定,你可提供一个Combox让用户选择。
   .PortOpen =
True '打开通讯端口
End With
End Sub

Private Sub MSComm1_OnComm()
 
  Dim EndPos As Integer
 
Select Case MSComm1.CommEvent
    Case comEvReceive '当有数据传送过来时
      sData
= sData & Trim(MSComm1.Input)
     
'检索回车,通常读卡机每组数据結尾都返回一个回车作为结束符
      EndPos = InStr(1, sData,
Chr(13))
      If EndPos = 0 Then '如果未结束就继续努力
      Else '读完一组。
       
lblBarCode.Caption = sData '显示一组条形码
        With lstBarCode
         
.AddItem Mid(sData, 1, EndPos - 1) '添加一组条形码到列表
        End With
       
sData = "" '清空
      End If
  End Select
End Sub

Private Sub cmdEnd_Click()
  MSComm1.PortOpen = False '关闭端口
 
End
End Sub

二、条形码的生成
看完以上关于条码读取的代码是否觉得很容易呢?对,在VB上编程本来就不难。以下关于条形码生成的代码也是很容易理解,只需使用一个OFFICE的附带的BarCode控件就可以轻松打印出11种不同标准的条形码,足以满足我们的要求。想起我书架上的一本书中的一篇用Turbo
C编写条形码打印程序文章,长篇大论,那时不知看了n天,打了n小时字结果也不尽人意,现在真是幸福多了:)。废话说完,得回归正题。且看条形码生成的代码及有关说明。
源代码主要由两个窗体(frmMain主窗体和frmOption条码设置窗体)和两个模块组成
(modGetScreen.bas、SysDLG32.bas)。考虑到篇幅,这里只列出部分较为关键的代码。
新建一个标准工程,添加一个名为
(Microsoft Access BarCode
Control9)的条形码部件,并添加一个条码控件到窗口,并将窗口改名为frmMain,如图所示。由于控件比较多,这里不便细说,详细内容请看源代码。
模块modGetScreen.bas代码如下:
Option
Explicit
声明BitBlt、 GetDesktopWindow、GetWindowDC、ReleaseDC这几个API函数略
Public
RegUser As Boolean

Sub GetObjImage1(Obj As Object, OwnerForm As PictureBox, Picture1 As
PictureBox)
  'hDC
  Dim hWndDesk As Long
  Dim hDCDesk As Long
 
'区域表达变量
  Dim x As Long
  Dim y As Long
  Dim w As Long
  Dim h As
Long

x = Obj.Left  Screen.TwipsPerPixelX
  y = Obj.Top 
Screen.TwipsPerPixelY
  w = Obj.Width  Screen.TwipsPerPixelX
  h =
Obj.Height  Screen.TwipsPerPixelY
  hDCDesk = OwnerForm.hdc
  '取出图像
 
Call BitBlt(Picture1.hdc, 0, 0, w, h, hDCDesk, x, y, vbSrcCopy)
  Call
ReleaseDC(hWndDesk, hDCDesk)

End Sub

主窗体frmMain.frm部分代码如下:
Private Sub
cmdPrint_Click()
'生成条形码图像
  Dim r As Long, i As Integer, t As String,cfile
As String '临时变量
  t = BarCode
  For i = 0 To Val(Times) - 1
   
   
BarCode1.Value = BarCode + i
    DoEvents
    Picture1.Refresh
  

    GetObjImage1 BarCode1, Conel, Picture1
   
    If RegUser = False
Then '如果未注册添加MASK标记
      Picture1.PaintPicture Picture2.Picture, 300,
300
    End If
   
    If Dir(SavePath, vbDirectory) = "" Then MkDir
SavePath
   
    SavePath = SavePath & IIf(Right(SavePath, 1)
<> "", "", "")
   
    cfile = SavePath & BarCode1.Value &
".bmp"

SavePicture Picture1.Image, cfile '将条形码保存为图像文件以便打印
  Next
  BarCode
= t

End Sub

条形码设置窗体frmOption.frm代码如下:
Option Explicit
'条形码设置模块

Private Sub cboBig_Click()
  BarCode1.Style = cboBig.ListIndex
'改变标准
End Sub

Private Sub cboDirection_Click()
  BarCode1.Direction =
cboDirection.ListIndex '改变方向
End Sub

Private Sub cboLine_Click()
  BarCode1.LineWeight =
cboLine.ListIndex '改变线宽
End Sub

Private Sub cboSmall_Click()
  BarCode1.SubStyle =
cboSmall.ListIndex '改变样式
End Sub

Private Sub Check1_Click()
  BarCode1.ShowData = Check1.Value
'是否显示数据
End Sub

Private Sub cmdChange_Click()
'设置长、宽大小
BarWidth =
BarCode1.Height
BarHeight = BarCode1.Width
cmdRefresh_Click
End Sub

Private Sub cmdOK_Click()
'传送条形码设定到主界面
  With
frmMain.BarCode1
    .LineWeight = BarCode1.LineWeight
    .Style =
BarCode1.Style
    .SubStyle = BarCode1.SubStyle
    .Direction =
BarCode1.Direction
    .Width = BarCode1.Width
    .Height =
BarCode1.Height
    .ShowData = BarCode1.ShowData
    Me.Hide
  End
With
  With frmMain
    .Picture1.Width = .BarCode1.Width
   
.Picture1.Height = .BarCode1.Height
    .Conel.Width = .BarCode1.Width
   
.Conel.Height = .BarCode1.Height
  End With
End Sub

Private Sub cmdRefresh_Click()
  BarCode1.Width = BarWidth
 
BarCode1.Height = BarHeight
End Sub

Private Sub Form_Load()
LoadBarInfo
BarWidth =
BarCode1.Width
BarHeight = BarCode1.Height
End Sub

Sub LoadBarInfo() '初始化选项
LoadBigClass cboBig
LoadSmallClass
cboSmall
LoadLineSize cboLine
LoadDirection cboDirection
End Sub
Sub
LoadBigClass(cbo As ComboBox) '条码标准
  With cbo
    .AddItem "UPC-A"
   
.AddItem "UPC-E"
    .AddItem "EAN-13"
    .AddItem "EAN-8"
   
.AddItem "Case Code"
    .AddItem "Codabar (NW-T)"
    .AddItem
"Code-39"
    .AddItem "Code-128"
    .AddItem "U.S. Postnet"
   
.AddItem "U.S. Postal FIM"
    .AddItem "JP Post"
    .ListIndex = 2
 
End With
End Sub
Sub LoadSmallClass(cbo As ComboBox) '条码样式
  With
cbo
    .AddItem "Standard"
    .AddItem "2-Digit Supplement"
   
.AddItem "5-Digit Supplement"
    .AddItem "POS Case Code"
    .ListIndex
= 0
  End With
End Sub

VB.Net条形码编程的方法的更多相关文章

  1. VB.NET数据库编程基础教程

    关键词:作者罗姗   众所周知,VB.NET自身并不具备对数据库进行操作的功能,它对数据库的处理是通过.NET FrameWork SDK中面向数据库编程的类库和微软的MDAC来实现的.其中,ADO. ...

  2. VB几种函数参数传递方法,Variant,数组,Optional,ParamArray

    VB几种函数参数传递方法,Variant,数组,Optional,ParamArray 一) 过程的参数被缺省为具有 Variant 数据类型. 1)ByRef按 地址传递参数在 VB 中是缺省的 按 ...

  3. 总结 vb与数据库的连接方法

    总结 vb与数据库的连接方法 分类:vb数据库 (4672)  (38)  举报  收藏 总结:vb与数据库连接方式,两种分法. 根据是否使用ODBC(驱动程序)来分: 1.有源连接 2.无源连接. ...

  4. 2019-11-29-C#-通过编程的方法在桌面创建回收站快捷方式

    原文:2019-11-29-C#-通过编程的方法在桌面创建回收站快捷方式 title author date CreateTime categories C# 通过编程的方法在桌面创建回收站快捷方式 ...

  5. 2019-8-31-C#-通过编程的方法在桌面创建回收站快捷方式

    title author date CreateTime categories C# 通过编程的方法在桌面创建回收站快捷方式 lindexi 2019-08-31 16:55:58 +0800 201 ...

  6. 【repost】如何学好编程 (精挑细选编程教程,帮助现在在校学生学好编程,让你门找到编程的方向)四个方法总有一个学好编程的方法适合你

    方法(一)编了这么久的程序,一直想找机会总结下其中的心得和方法,但回想我这段编程道路,又很难说清楚,如果按照我走过的所有路来说,显然是不可能的!当我看完了云风的<游戏之旅--编程感悟>和梁 ...

  7. Java并发编程核心方法与框架-Fork-Join分治编程(一)

    在JDK1.7版本中提供了Fork-Join并行执行任务框架,它的主要作用是把大任务分割成若干个小任务,再对每个小任务得到的结果进行汇总,这种开发方法也叫做分治编程,可以极大地利用CPU资源,提高任务 ...

  8. Java并发编程核心方法与框架-CountDownLatch的使用

    Java多线程编程中经常会碰到这样一种场景:某个线程需要等待一个或多个线程操作结束(或达到某种状态)才开始执行.比如裁判员需要等待运动员准备好后才发送开始指令,运动员要等裁判员发送开始指令后才开始比赛 ...

  9. Spring AOP 切面编程的方法

    spring aop的使用分为两种,一种是使用注解来实现,一种是使用配置文件来实现. 先来简单的介绍一下这两种方法的实现,接下来详细的介绍各处的知识点便于查阅.目录如下: 1.基于注解实现spring ...

随机推荐

  1. 谈谈oracle里的join、left join、right join、full join-版本2

    --1.left join  左表为主表,左表返回全部数据,右表只返回与左表相匹配的数据select   t1.fpdm,t1.fphm ,t1.zjr,t1.zjsj,t1.zjjx,t1.zjje ...

  2. 解决ubuntu登陆失败,"Failed to start session"的问题

    我是在虚拟机中安装了Ubuntu 14.04 系统,在Ubuntu 中执行 apt-get update  和  apt-get upgrade 命令后,然后重启系统.    但是,在重启成功后,在登 ...

  3. vue spn如何做seo优化

    vue spn如何做seo优化 突然来了一个需求,对已有的项目做SEO优化,WHAT? 总所周知,spn对seo不够优化,因而官方考虑到直接使用ssr 一个不算解决办法的办法prerender-spa ...

  4. swift 触摸与手势

    class MyView: UIView { var lView:UIView! var time:NSTimer! override init(frame: CGRect) { super.init ...

  5. Jmeter-线程组执行顺序控制

    线程组按顺序来执行,大概思路, 1.需要控制线程组内的操作在满足某一条件才执行,那么就需要使用if或者while: 2.要使用if或者while都需要一个变量,而这个变量要在两个或多个线程组内使用,那 ...

  6. Yarn import now uses package-lock.json

    转发自: https://yarnpkg.com/blog/2018/06/04/yarn-import-package-lock/?utm_source=tuicool&utm_medium ...

  7. 浅谈ASP.NET ---- 系列文章

    [01]浅谈Google Chrome浏览器(理论篇) [02]浅谈Google Chrome浏览器(操作篇)(上) [03]浅谈Google Chrome浏览器(操作篇)(下) [04]浅谈ASP. ...

  8. 容器平台选型的十大模式:Docker、DC/OS、K8S谁与当先?

    首先我们来谈什么情况下应该使用Docker的问题   如图,左面是经常挂在嘴边的所谓容器的优势,但是虚拟机都能一一怼回去. 如果部署的是一个传统的应用,这个应用启动速度慢,进程数量少,基本不更新,那么 ...

  9. 【转】linux sed命令详解

    原文网址:http://www.iteye.com/topic/587673 1. Sed简介sed 是一种在线编辑器,它一次处理一行内容.处理时,把当前处理的行存储在临时缓冲区中,称为“模式空间”( ...

  10. Makefile中进行宏定义-***

    实际上是gcc命令支持-D宏定义,相当于C中的全局#define: gcc -D name gcc -D name=definition Makefile中可以定义变量(和宏很像),但是是给make解 ...