VB课程是计算机科学与技术本科专业的专业骨干课。本课程主要通过VB论述了面向对象程序设计和组建编程的机理，以下是美丽的小编给家人们收集的vb教学设计【优秀7篇】，欢迎借鉴。
Visual Basic 提供了列表框控件（ListBox）以供用户进行多个项目的选择，在工具箱面板上，列表框控件的图标如图一所示：
图一
默认的列表框控件名为 ListX（X为阿拉伯数字 1、2、3，等等），规则的命名方式为：LstX（X为用户自定义的名字，如 LstName、LstUser，等等）。
一、列表框控件的主要属性：
列表框中可以有多个项目供选择，用户通过单击某一项选择自己所需要的项目，如果项目太多，超出了列表框设计时的长度，则自动增加竖向滚动条，如图二：
图二
除了一些常见的诸如 Font 、Height、Left、Width、Enabled、Name 等属性外，列表框还有一些特殊的属性：
1、List（列表）属性：
List 是列表框最重要的属性之一，其作用是罗列或设置表项中的内容。可以在界面设置时直接输入内容，如图三：
图三
在程序运行时，列表框中所有的选项，都可以通过 List(下标值) 的形式表示。比如列表框中的第一项，用 List(0)表示，列表框中的第二项，用 List(1)表示，列表框中的第十项，用 List(9)表示，以此类推。
大家注意，列表框中的第一项，是 List(0) ，而不是 List(1) 。
＜1＞、List 属性的使用是非常灵活的，比如我们要从如图二的列表框（Lst1）中取出第三项内容，可以用下面的代码做到：A$ = Lst1.List(2)
其中，A 是一个变量；$ 指明了这个变量的类型：字符串型；这句话的意思是：将 Lst1 列表框中第三项（List(2)）取出来然后赋值给字符串变量 A 。
象上面这种赋值办法，在 VB 中是非常普遍的，又如以前我们学到的：
LblShow.Caption = “Visual Basic”，这句话是指将 Visual Basic 这个字符串赋值给 LblShow 标签控件并作为其标题。
紧接上面的内容，假设我们用一个标签显示出刚才取出的表项：
LblShow.Caption = A$
那么显示的结果正是我们取出的选项。
可见，取出某个列表框中的某一表项并将其赋值给某个变量，代码如下：
字符串变量 = 列表框名称。List(X) ，其中，X 是下标。
＜2＞、通过 List() 改变原有表项：假设我们要将如图二的列表框中第三项内容改为“跟我学 VB”，只需输入下面的代码即可：
Lst1.List(2) = “跟我学 VB”
上句话的意思是将“跟我学 VB”字符串赋值给 Lst1 并作为其第三项的内容，
结果如图四：
图四
可见，要修改某个列表框中某一选项：
列表框名称。List(X) = “欲修改成的内容” ，其中，X 是下标。
2、ListCount 属性：
本属性返回列表框表项数量的数值，只能在程序运行时起作用。比如：一个有着四种选项的列表框，那么 ListCount 就为 4 ；一个列表框有五个选项，那么 ListCount 就为 5 。
返回一个列表框的表项数量值并将其赋值给某个变量，代码如下：
数值型变量 = 列表框名称。ListCount
比如要返回图二列表框的 ListCount：
X% = Lst1.ListCount ，其中，X 是变量，% 表示X是整数类型的变量。
3、ListIndex（索引）属性：
本属性用来返回或设置控件中当前选择项目的索引号，只能在程序运行时使用。第一个选项的索引号是 0 ，第二个选项的索引号是 1 ，第三个选项的索引号是 2 ，依此类推，ListCount 始终比最大的 ListIndex 值大 1 。当列表框没有选择项目时， ListIndex 值为 -1 。
在程序中设置 ListIndex 后，被选中的项目呈反相显示，如图五：
图五
在列表框控件的所有属性中，本属性是非常重要的，因为一个列表，事先你并不知道用户将要选择哪一条项目，这时，只有根据 ListIndex 返回的数值，我们才能让程序针对用户的选择做出适当的反应。
返回 ListIndex 的代码如下：
X% = 列表框名称。ListIndex
联想：根据前面的知识我们知道，要取出第三项内容，代码如下：
A$ = Lst1.List(2)
假设现在选中的是第三项，但我们事先不知道用户要选择这一项，那么又应该如何访问这第三项呢？
代码如下：A$ = Lst1.List(Lst1.ListIndex) 此时，Lst1.ListIndex 等同于 2 。
仔细想一想，为何要如此书写？
4、Columns（列）属性：
本属性用来确定列表框的列数，当值为 0 时，所有项目呈单列显示；当值为 1 或者大于 1 ，项目呈多列显示。Columns 属性只能在界面设置时指定。如图六：
在前两周中我们进行的VB课程设计中，我获得了一些心得体会。
这是我第一次系统与完整的接触软件设计。我们组的题目是关于“俄罗斯方块游戏”的设计。我在组内主要负责(1)游戏界面的设计(2)俄罗斯方块的造型(3)游戏级别的自由选择(4)游戏速度的自由选择(5)游戏的背景音乐。在这次课程设计中，我的能力得到了锻炼，自己也有许多体会。这次的课程设计是自己第一次全面接触软件的制作过程。以前仅仅是对软件的开发有一个大体的印象，通过这次的课程设计，我对软件的开发有了切身的体会。软件并不像我原来所想的'那样十分神秘，而是有着一个相对固定的模式和流程。我们只要按照这个模式和流程，就能够比较规范的完成一个软件的制作。软件的制作是一个系统的工程，需要我们掌握多方面的知识。在这次课程设计中，我觉得自己的知识面依然有所欠缺。因此我需要在以后的学习中加以注意，要不断的提高自己的知识面与知识层次。
我在这次课程设计中主要负责(1)游戏界面的设计(2)俄罗斯方块的造型(3)游戏级别的自由选择(4)游戏速度的自由选择(5)游戏的背景音乐。在这次课程设计之前，我对VB的编程不是特别的熟悉，这次的课程设计，我是一边学习，一边总结，一边进步。在编程的过程中，我体会到其实各种计算机语言是有相通之处的。在以前的 学习中，我只接触过C语言，这次在VB课程设计中，我发现C语言中的许多知识可以应用到VB中，两者具有相通的数据结构。所以我认为现在对计算机语言的学习，不要贪多，而应耐心的学好一门主要的计算机语言，在这个基础上，去学习其他的语言，这样会使学习效率大大提高。
在编程的过程中，我体会到编程是十分辛苦的。在课程设计这一段时间里，我每天的生活基本是在不断的调试程序和修改代码中完成的。有时，这种生活令人感到乏味和疲倦，但是在这种近似枯燥的生活中，我的编程水平有了一定程度的提高，这是课程设计中我最大的收获。以前学习计算机语言，总是静不下心来，不能认真的看书。这次课程设计，为了顺利的完成编程工作，我认真的学习了VB语言，并有了一定的心得体会。所以在以后的学习中，自己全身心的投入，这样学习才会有效率，才会有效果。
这次的课程设计是按小组进行的，我们的小组由两名同学组成。软件的设计本来就是一个团体的智慧结晶。这次课程设计也给了我们一次体验团体合作的机会。在课程设计中，我深深的体会到集体的智慧于力量是个人所无法比拟的。在课程设计中，我们的小组成员互相帮助，有问题两个人一起讨论解决，大大节省了时间。互相都提出了很好的建议，使我们的课程设计得以较好的完成。
课程设计已经结束了，但在课程设计的这些体会要应用到今后的日常学习中去。在新的学期，我觉得自己要在以下几个方面加以注意：
首先，在学习专业课的时候要注意理论联系实际。注意将课本上的知识应用到日常的操作中，真正做到学以致用。只有这样，才能做到目的明确，才能有足够的学习动力。
其次，在学习过程中要经常与同学进行交流，讨论所遇到的问题，并一起解决。在讨论中解决问题，会节约很多时间，并且在交流的过程中，我们也可以学到更多的东西。
课程设计已经已经完美解暑，这次课程设计给我打来了很多新的体会，在以后的学习中要不断总结，不断改进，使自己的成绩有新的提高。只有不断努力，才会使自己变得更加优秀。
VB程序设计心得
在课程设计过程中，虽然我对程序设计不是很熟悉，但是通过老师详细的讲解，我按照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学，问老师，通过这种学习，收获很大，学会了自己解决棘手问题，知道了团结的力量。刚开始做程序的时候，就是完全按照老师的要求，老师的步骤去做的，结果却发现，怎么运行不了？明明是按照老师的步骤去做的，明明是按照老师的要求去做的，但是就是会遇到一些问题使程序运行不了。开始也没有管那么多，仍然是按照课本上的去做。
第一次，在上机课的时候，我根据老师讲的，在机房里做了一次，但没有做完。于是把东西存在了自己的MP3里面，以便以后上机的时候再来做。但真的没有想到，我的MP3，在一次上电子阅览室的时候，忘了拔了。于是乎，我辛辛苦苦做了一大节课的程序就这样没了。心里真的。很不舒服，但是，不舒服归不舒服，这个程序，还是得继续做下去，这么以点点小小的失误不算什么，然后跑到学校机房，继续我的VB程序设计。但由于时间问题，做的还是有点粗糙，还是不免存在一定的问题，比如说开始的时候打开不了文件，总是出现错误，自己总也找不出来，后来请教了一下同学，结果发现时代码的编写出现了错误，把代码改过来之后，程序终于可以打开运行了。然后，检查的时候，又发现“查找”运行错误，又是代码那里出现的黄色的字样，结果发现，是代码拼写错误，于是，拿着同学的代码对比一下，发现了错误所在之地，然后更正了过来。
经过一番努力，程序终于做完了。
您现在阅览的是工作总结网-心得体会谢谢您的支持和鼓励！
后来，室友看了我的程序，她说运行不了的，就是出现了错误，出现了错误，就应该改过啊，这时的我才恍然大悟。“是错误，那么就要改正的！”于是当天，我就去了学校机房，再一次运行我的程序，仍然出现错误情况，需要调试，我回忆起上课的时候，老师是怎么跟我们讲的，哪里出现了错误，需要怎么样改正。于是，我就耐着性子，一个一个，一个一个得改正，编辑代码，一个一个得检查，终于完成了。完成之后，我在运行一下，一切正常，心里终于舒了一口气。经过这次的VB程序设计，让我知道了更多学习的方法。具体如下：(1)保持良好的学习心态，第一，要有自信，自强，积极主动学习。第二，克服畏难情绪，树立学好程序设计的信心(2)要了解概念：VB程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多。要真正能进行程序设计，就要深入理解这些概念。应该重视概念的学习。
(3)自己动手编写程序，亲自动手进行程序设计是培养逻辑思维的好方法。因此我们得多动手编写程序，逐渐提高写程序的能力。自己动手，编写一些程序，才会有成就感，进而对课程产生兴趣，做起来才比较从容。等你在编写大量程序之后（4）上机调试程序应注意多问问同学，多问问老师、，把不懂的地方标出来。(5)养成良好的编程习惯，第一，程序构思要有说明；第二，学会如何调试程序；第三，对运行结果要做正确与否的分析。
但是，如果以前上课的时候不认真的听讲的话，做这个程序设计就会有点点困难，所以，同时也在提醒我们，学习，任何时候都要认真！
总之，在此次的VB程序设计中，如果没有足够的耐心，就不可能完成的很好。所以此次VB程序设计，让我做事情更加有耐心，更加细心，学习更加认真仔细。 相关专题：尚无数据
职高VB教学心得
摘 要：在VB教学中，针对职高生的特点，结合教学实践，总结了一些有效的方法。
关键词：VB教学；兴趣；方法
Visual Basic程序设计，简称VB,具有可视化、面向对象、采用事件驱动编程机制的特点。简单易学、功能强大，是一门实用性很强的课程，也是我校职高计算机专业的一门必修课，教学内容分为设计程序界面和编写程序代码两部分。对学生来说，程序设计的思维方式、概念都是全新的，普遍觉得枯燥、难懂、不感兴趣，接受起来比较困难。针对这一情况，到底采用什么样的教学方法，才能让学生掌握呢？我在几轮的教学中有下面体会：
一、激发学生兴趣
教学中，常遇到学生不入门、不细心、常出错等问题。比如，常把对象名text写成txet;事件与属性分不清；枯燥的代码更是觉得难以理解，不愿意研究，归根结底还是兴趣不高造成的。在教学中，应注重课前导入，根据教学目的及要求，将学生的熟悉的、感兴趣的及热点问题进行融合，制作案例，激发学生兴趣。如，我在讲文本框时（Text Box），将Windows、QQ等界截图，制作案例。课前，播放给学生，让学生有自己动手完成的冲动，然后通过对案例的阅读、分析、运行和总结，掌握各知识点。
二、突破教学难点
教学难点是指教学中学生难以理解的教学内容，如不能及时地突破一个个难点，日子久了，难点堆积就会吓倒一大批学生。因此，快速有效地突破难点，是提高教学质量的重要保证，是提升学生学习信心的关键因素，也是教师必备的基本功之一。以下是我在教学中用到的一些方法。
1.类比法
类比法的关键就是将抽象的问题迁移到日常中熟悉的事物上，利用两者之间的相似性促使学生理解。面向对象程序设计的基本概念是教材中的一个难点，为了达到预期的教学效果，用不同的事物作类比。如，介绍对象的属性概念时，可以用一个人的性别、身高、体重等属性作类比；介绍对象的方法时，可以用一个人会吃饭、会睡觉、会唱歌等作类比。
学习变量时，因为这个概念太抽象了，让逻辑思维能力差的学生摸不着边际，不知到底是何物，加上早已习惯了“=”的用法，对于变量的值随时变化更是难以理解，这就成了教学中的一大难点。
2.死记法
当然，只有理解了，才能让学习转变为有意义的学习。但在实际教学中，由于学生数学基础差，抽象思维能力跟不上，尽管你使用了各种方法还是不能理解，这种情况下，只能死记了。如：Int函数，它的功能是取不大于本身的最大整数。但对负数取整时总有学生出错，没办法只好记住：“凡是有尾的，正的直接截尾；负的先减1,再截尾。”自此以后，再没有学生出错了。再如，产生区间内随机整数：Int（Rnd*（b-a+1））+a.
3.总结归纳法
在教学中发现，尽管学生很认真地学习，但还是常常出错或容易混淆。为此，我尝试用总结归纳法将一些易错、易混淆的知识点归纳、总结给学生，收到了良好的效果，学生不仅能够牢固地掌握知识的要点，而且还增强了学习的。信心。如，函数中的Int函数和Fix函数；Spc函数和Space函数；Space函数和Tab函数等。
三、改变实践教学方法
由于要参加对口升学考试，在实际教学中注重理论教学及习题的练习，而忽视实践教学和学生动手能力的培养。因此，一要适当增加实践课，尽量让学生多动手，多思考，通过程序的运行检验自己的想法；二要注重实践课的启发、引导，学生基础较差，虽然讲例题时听明白了，到真正自己动手时，绝大部分学生无从下手，需要教师“设计任务→启发→引导→尝试、探索、观察”,成为自主的学习者，把“教法”与“学法”统一起来，让学生感受学习的乐趣。在此过程中，教师要多鼓励，及时发现、解决问题并帮助学生总结。
四、培养正确的编程思想
在VB教学过程中，学生往往不知如何将问题自顶向下，逐层分解细化，将大问题细分为小问题，直到满足每一个要求，再用基本语句实现。在授课时，要注重培养正确的编程思想，这样学生才会有全局观念，思路清晰、有条不紊，有利于问题的解决。
总之，在教学中坚持理论与实践相结合的方式，注重学生应用能力的培养，勤思考、多尝试，定会完成预期教学目标，培养出符合社会需求的实用性人才。
VB教学案例设计的总体思路及其实例解析
本文针对案例教学法在VB课程中的应用问题，提出了选取和设计高质量VB教学案例的。总体思路，并通过实例进行了说明。
作 者：李志辉 LI Zhi-hui 作者单位：湖北经济学院，计算机学院，湖北，武汉，430205 刊 名：计算机教育 英文刊名：COMPUTER EDUCATION 年，卷(期)： “”(22) 分类号：G642 关键词：案例设计 总体思路 VB程序设计 案例教学法分布式监控系统已在工业领域得到广泛应用，许多企业对于中小规模的设备，如中小型热电厂和水电站，出于硬件软件投资利润率和性能价格比的考虑，常常是自行开发或参与开发本企业的监控系统。而许多企业在成套引进大型DCS系统后，也常因实际情况而需要自行开发或改进其监控系统。
分布式监控系统以微机为基础，用数据通信将微机连在一起实现数据共享，从而对工业过程进行集中监视管理和分散控制。因此，分布式监控系统中通信的设计与实现是至关重要的环节。Visual Basic开发语言具有简洁明了、编程效率高、开发周期短的特点，利用
VB中的多种通信手段，可实现分布式监控系统的多种通信功能。
用VB 设计条形码轻印刷系统 ---- 条 形 码 技 术 简 介 ---- 条 形 码 作 为 一 种 识 别 输 入 技 术， 由 于 其 显 而 易 见 的 快 速、准 确、低 廉 等 优 点， 被 广 泛 应 用 于 商 品 流 通、图 书 馆 管 理 等 众 多 的 自 动 化 管 理 系 统 中，
用VB 设计条形码轻印刷系统
---- 条 形 码 技 术 简 介
---- 条 形 码 作 为 一 种 识 别 输 入 技 术， 由 于 其 显 而 易 见 的 快 速、准 确、低 廉 等 优 点， 被 广 泛 应 用 于 商 品 流 通、图 书 馆 管 理 等 众 多 的 自 动 化 管 理 系 统 中。
---- 条 形 码 是 利 用 条（ 着 色 部 份）、空（ 非 着 色 部 份） 及 其 宽、窄 的 交 替 变 换 来 表 达 信 息。 每 一 种 编 码， 都 制 定 有 字 符 与 条 空、宽 窄 表 达 的 对 应 关 系， 只 要 遵 循 这 一 标 准 打 印 出 来 的 条、空 交 替 排 列 的“ 图 形 符 号”， 这 一“ 图 形 符 号” 中 就 包 含 了 字 符 信 息； 当 识 读 器 划 过 这 一“ 图 形 符 号” 时， 这 一 条、空 交 替 排 列 的 信 息 通 过 光 线 反 射， 在 识 读 器 内， 这 种 光 信 号 被 转 换 成 数 字 信 号， 再 经 过 相 应 的 解 码 软 件， 就 能 将“ 图 形 符 号” 还 原 成 字 符 信 息。
---- 三 九 码 是 一 种 应 用 比 较 普 遍 的 条 形 码， 它 长 度 可 变、可 校 验， 容 纳 的 字 符 多 达43 个（ 包 括 数 字0~9、字 母A~Z 及 其 它 七 个 特 殊 字 符）。 由 于 在 表 示 每 一 字 符 时， 使 用9 个 元 素， 其 中3 个 宽 元 素、6 个 窄 元 素， 故 名39 码， 这3 个 宽 元 素 中 必 须 有 两 个 是 条（ 有 四 个 特 殊 用 途 的 字 符 除 外）。 如 字 母“J” 的 编 码 规 则 为：“N N N N W W W N N”， 其 中N 表 示 窄 元 素，W 表 示 宽 元 素， 奇 数 位 为 条 元 素， 偶 数 位 为 空 元 素， 宽 窄 元 素 的 宽 度 尺 寸 比 为2~3， 且 在 同 一 个 条 码 中 必 须 是 固 定 的。 在 打 印 制 作 条 形 码 时， 条 是 需 要 打 印（ 着 色） 的， 而 空 元 素 内 不 必 打 印 的， 不 过 要 将 其 宽 度 计 算 在 内。 对 于 某 一 要 打 印 的 字 符 串， 按 其 先 后 顺 序 打 印， 串 前 串 后 各 加 一 个“*” 符 号 做 为 起 始 符 与 终 止 符， 相 邻 的 字 符 间 在 打 印 时 由“ 位 空” 分 隔，“ 位 空” 类 似 空 元 素， 即 不 着 色 部 分， 其 宽 度 应 小 于1.35mm， 为 编 程 方 便， 通 常 取 为 一 个 窄 元 素 的 宽 度。
---- 条 形 码 的 制 作 有 制 版 印 刷、轻 印 刷 两 种 方 式， 轻 印 刷 是 指 使 用 普 通 打 印 机， 在 计 算 机 控 制 下 制 作 条 形 码。 这 种 制 作 方 法 灵 活， 成 本 较 低， 即 适 宜 于 同 一 号 码 的 单 条 制 作， 也 可 用 于 同 一 号 码 的 大 量 制 作， 这 一 特 点 是 制 版 印 刷 无 可 替 代 的。 使 用 计 算 机 软 件 打 印 条 形 码， 其 原 理 是 将 条 形 码 作 为 图 形 来 看 待， 用 编 程 语 言 中 的 绘 图 语 句- 画 矩 形 框， 在 相 应 的 坐 标 上 画 出 各 种 宽 度 不 同 的 条 元 素， 这 样 即 可 实 现 条 形 码 的 计 算 机 软 件 打 印。
---- VB 中 几 种 打 印 功 能 在 条 码 打 印 时 的 比 较
---- Visual Basic 是近年 来 比 较 流 行 的 编 程 语 言， 功 能 强 大， 易 学 易 用。Visual Basic 对 打 印 功 能 提 供 了 两 种 输 出 方 式： 一 是 首 先 将 条 码 输 出 到 某 一 对 象， 再 使 用 该 对 象 中Print 方 法， 将 其 输 出 到 打 印 机； 二 是 使 用 打 印 机 对 像Printer 绘 图。 下 面 对 这 种 方 法 做 个 比 较：
---- 一、将 条 形 码 图 在 窗 体 上 绘 出， 再 使 用PrintForm. 方 法 打 印 窗 体。
窄 条 打 印：Line (x,y)-step(i,h),,bf
宽 条 打 印：Line (x,y)-step(3*i,h),,bf 或
Line (x,y)-step(2*i,h),,bf
---- 再 使 用formname.PrintForm. 将 条 形 码 输 出 到 打 印 机。
---- 在 这 种 方 式 下， 窗 体 的 量 度 单 位 可 以 有：twip, point, picel 三 种 其 中 以twip 为 单 位 为 最 小。
---- 以twip 为 单 位， 对 条 形 码 来 说， 打 印 精 度 可 达30， 即 当 窄 元 素 宽 度 必 须 等 于 或 大 于30 时， 打 印 出 来 的 条 形 码 可 以 阅 读， 若 窄 元 素 的 宽 度 小 于30， 条 形 码 中 相 邻 的 条 会 粘 连 在 一 起， 无 法 识 读。 当 窄 元 素 宽 度 为30 时，“J10059” 六 位 字 符 条 码 尺 寸 为：67mm。
---- 以Picel 为 单 位， 打 印 精 度 可 达2， 当 窄 元 素 宽 度 为2 时，“J10059” 六 位 字 符 条 形 码 尺 寸 为80 mm 以 上。
---- 以Point 为 单 位， 打 印 精 度 可 达2， 当 窄 元 素 宽 度 为2 时，J10059 六 位 字 符 条 形 码 尺 寸 为110MM。
---- 二、直 接 使 用Printer.Line ， 在 打 印 机 上 绘 画- 画 矩 形 框
窄 条 打 印：Printer.Line (x,y)-Step(i,h),,bf
宽 条 打 印：Printer.Line (x,y)-Step(3*i,h),,bf 或
Printer.Line (x,y)-Step(2*i,h),,bf
---- 用Printer.Line 打 印， 量 度 单 位 为 点， 最 小 精 度 为 达10， 当 窄 元 素 宽 为10 时，J10059 六 位 字 符 之 条 码 尺 寸 为：21MM。
---- 根 据 以 上 的 比 较， 使 用 第 二 种 方 法 打 印 输 入 的 条 形 码 精 度 最 高（ 同 样 的 字 符 数， 尺 寸 最 短）。 很 显 然， 不 同 的 打 印 方 式， 分 别 有 不 同 的 适 用 范 围， 对 尺 寸 宽 度 要 求 不 高 的 情 况 下， 可 以 使 用 第 一 种 打 印 方 式， 若 对 条 形 码 尺 寸 要 求 较 严 格， 则 使 用 第 二 种 打 印 方 式 更 合 适。
---- 软 件 设 计
---- 一、菜 单 设 计： 由 于 条 形 码 轻 印 刷 软 件 相 对 说 来 是 一 个 很 小 的 系 统， 需 要 选 择 的 项 目 不 多， 可 以 不 设 置 菜 单， 而 将 全 部 的 操 作 由 窗 体 控 件 来 完 成，
如 果 使 用 上 述 的 第 一 种 打 印 方 式， 则 必 须 建 立 另 一 窗 体， 用 于 第 一 步 的 输 出 条 形 码 图 形。
---- 二、设 计 窗 体 控 件： 窗 体 中 的 控 件 包 括 两 大 类， 即： 参 数 设 置 框、打 印 操 作 按 钮。 本 列 设 计 的 窗 体 见 图 示。 本 列 给 出 的 是 一 个 对 参 数 没 有 设 置 功 能 的 窗 体， 有 兴 趣 的 读 者 可 以 在 此 基 础 上 自 行 补 充 它。
---- 对 于 打 印 参 数， 对 条 形 码 的 打 印 来 说， 需 要 指 定 的 参 数 大 致 有： 条 码 宽 窄 比： 3：1~2：1； 条 码 高； 窄 元 素 宽 度； 打 印 机 类 型 及 端 口； 打 印 份 数； 打 印 纸 尺 寸 规 格； 每 行 条 形 码 数； 每 个 条 码 的 字 符 数； 是 否 自 动 增 值 打 印； 增 值 步 长； 每 一 页 行 计 数 起 止 数； 终 止 码 等。
---- 本 列 设 计 了 八 个 按 钮， 其 作 用 分 别 是：
---- Begin- 单 号 条 形 码 打 印 开 始
---- Auto- 自 动 增 值 打 印 开 始
---- Page- 将 打 印 机 内 存 中 的 条 码（ 不 足 一 页） 打 印 出 来
---- Cancel- 中 止 自 动 增 值 打 印
---- Delete- 清 除 打 印 机 内 存 中 的 未 打 印 条 码
---- Help- 帮 助 信 息
---- About- 版 本 及 设 计 信 息
---- Exit- 关 闭 系 统
---- 三、程 序 流 程：
---- 在 本 例 中， 条 形 码 的 打 印 分 为 单 号 打 印； 自 动 增 值 打 印 两 种。 单 号 打 印， 是 用 户 输 入 一 个 或 几 个 需 要 打 印 的 号 码 的 打 印 方 式； 而 自 动 增 值 打 印 是 用 户 指 定 起 始 号、终 止 号 及 增 加 步 长， 由 机 器 自 动 生 成 被 打 印 号 码 来 打 印。 其 实 这 两 种 方 式 在 打 印 时 的 操 作 是 完 全 一 样 的， 不 同 之 处 在 于 被 打 号 码 的 获 取， 需 要 注 意 的 是 由 于39 码 字 符 集 中 包 括 字 符， 在 自 动 增 值 时 要 与 纯 数 字 码 区 别。
---- 下 面 以 单 号 打 印 为 例， 介 绍 条 形 码 打 印 的 程 序 流 程。
---- 1 ． 检 查 各 项 参 数 设 置 是 否 完 全 正 确， 若 正 确， 则 继 续， 否 则 退 出；
---- 2 ． 获 取 各 项 参 数 设 置；
---- 3 ． 为X 坐 标 取 初 值（ 纸 的 左 边 打 印 边 界）；
---- 4 ．（ 循 环A） 是 否 打 印 完 一 行（I 条 条 码） ？ 是 则 转14；
---- 5 ． 本 条 条 码 是 否 为 空 ？ 是 则 将 横 坐 标 加 上 一 条 条 码 之 宽 度；
---- 6 ． 打 印 起 始 符；
---- 7 ．（ 循 环B） 是 否 打 印 完 本 条 条 码（J 个 字 符） ？ 是 则 转10；
---- 8 ． 打 印 一 个 字 符 的 条 码；
---- 9 ．（ 循 环B） 下 一 个 字 符；
---- 10 ． 打 印 终 止 符；
---- 11 ． 修 改X 坐 标；
---- 12 ．（ 循 环A） 下 一 条 条 码
---- 13 ． 修 改Y 坐 标；
---- 14 ． 打 印 本 行 每 一 条 码 的 人 工 识 别 字 符；
---- 15 ． 本 页 是 否 已 打 满 ？ 是 则 打 印， 并 对 新 页 坐 标 初 始 化；
---- 16. 退 出
---- 四、程 序 代 码：
---- 用 于 检 查 参 数 设 置 正 确 性 的 程 序 主 要 从 各 项 参 数 间 的 关 系 去 检 查。 如 根 据 使 用 的 宽 度、高 度、每 行 条 码 数， 判 断 是 否 超 出 了 纸 的 打 印 范 围； 输 入 的 号 码 是 否 合 法 等。
---- 可 以 为 每 字 符 设 计 一 段 各 自 的 打 印 程 序， 这 种 方 式 编 程 简 单。 也 可 以 将 打 印 程 序 与 条 形 码 的 编 码 规 则 分 离， 通 过 参 数 传 递 某 一 字 符 的 编 码 规 则， 不 同 的 字 符 共 享 同 一 打 印 程 序。 本 列 采 用 前 一 种 方 式。 如 字 母“J” 的 编 码 规 则 为：“N N N N W W W N N”， 打 印 程 序 代 码 如 下：
Private Sub prn_J
Printer.Line (x, y)-Step(widt, high), , BF 注释：打印窄条
x = x + widt 注释：改变X坐标
x = x + widt 注释：打印窄空
Printer.Line (x, y)-Step(widt, high), , BF
x = x + widt
x = x + widt
Printer.Line (x, y)-Step(w_n * widt, high), , BF 注释：打印宽条
x = x + w_n * widt 注释：改变X坐标
x = x + w_n * widt 注释：打印宽空
Printer.Line (x, y)-Step(w_n * widt, high), , BF
x = x + w_n * widt
x = x + widt
Printer.Line (x, y)-Step(widt, high), , BF
x = x + widt
x = x + widt 注释：打印位空
End Sub
---- 其 中x,y 分 别 为 坐 标 值，w_n 为 宽 窄 元 素 宽 度 比， widt 为 窄 元 素 的 宽 度 值（ 点）, high 为 条 形 码 高 度， 每 打 印 一 个 条 元 素， 应 立 即 改 变X 坐 标， 以 便 打 印 下 一 个 元 素； 打 印 空 元 素 时， 由 于 是 不 着 色， 只 需 改 变X 坐 标 即 可； 每 一 个 字 符 打 印 结 束 时， 应 打 印 一 个 位 空（ 本 列 中 位 空 宽 度 等 于 窄 空）。 其 它 的42 个 字 符 的 编 码 规 则， 读 者 可 以 在 有 关 条 形 码 技 术 的 文 献 中 查 到。
原文转自