VB第一次小组讨论
vb课程设计程序
vb课程设计程序一、教学目标本节课旨在让学生掌握VB编程语言的基本语法和程序设计思路，培养学生运用VB解决实际问题的能力。
具体目标如下：1.知识目标：a.了解VB的发展历程和特点。
b.掌握VB的基本语法，包括数据类型、变量、常量、运算符等。
c.熟悉VB的程序结构，如顺序结构、分支结构、循环结构等。
d.理解VB的面向对象编程思想，如类、对象、属性、方法等。
2.技能目标：a.能够运用VB编写简单的程序，如计算器、猜数字游戏等。
b.能够分析问题，设计程序流程图，并编写相应的VB程序。
c.能够阅读和理解他人的VB代码，进行简单的代码调试和优化。
3.情感态度价值观目标：a.培养学生对计算机编程的兴趣，增强其自信心。
b.培养学生团队合作精神，提高其沟通表达能力。
c.培养学生勇于探究、积极向上的学习态度。
二、教学内容本节课的教学内容主要包括以下几个部分：1.VB简介：介绍VB的发展历程、特点及应用领域。
2.VB基本语法：讲解数据类型、变量、常量、运算符等基本概念。
3.程序结构：讲解顺序结构、分支结构、循环结构等程序设计基本结构。
4.面向对象编程：介绍类、对象、属性、方法等概念，并运用实例讲解。
三、教学方法为了提高教学效果，本节课将采用以下几种教学方法：1.讲授法：讲解VB的基本语法、程序结构等知识。
2.案例分析法：通过分析实际案例，让学生掌握VB编程思想。
3.实验法：让学生动手编写VB程序，巩固所学知识。
4.小组讨论法：分组进行讨论，培养学生的团队合作精神和沟通能力。
四、教学资源为了支持本节课的教学，我们将准备以下教学资源：1.教材：《VB程序设计》。
2.多媒体课件：用于讲解VB的基本语法、程序结构等知识。
3.案例素材：用于分析实际案例，让学生掌握VB编程思想。
4.实验设备：如计算机、投影仪等，用于学生动手实践。
5.在线资源：如编程论坛、教程等，为学生提供更多的学习资料。
五、教学评估为了全面、客观地评价学生的学习成果，本节课采用以下评估方式：1.平时表现：观察学生在课堂上的参与程度、提问回答等情况，了解其学习态度和兴趣。
《VB课程教案》
《VB课程教案》word版教案编写者：教案编辑专员一、教案概述本教案旨在帮助学生掌握Visual Basic（VB）编程语言的基本概念、语法和编程技巧。
通过本课程的学习，学生将能够建立简单的VB程序，理解面向对象编程的基本原理，并掌握VB编程在实际应用中的基本用法。
二、教学目标1. 理解VB编程语言的基本概念和语法。
2. 学会使用VB编写简单的程序，掌握基本的编程技巧。
3. 理解面向对象编程的基本原理，并能在实际编程中应用。
4. 学会VB编程在实际应用中的基本用法，如数据库访问、网络编程等。
三、教学内容1. VB编程语言概述：介绍VB的发展历程、特点和应用领域。
2. VB编程环境：介绍VB的集成开发环境（IDE）和基本操作。
3. 基本数据类型和运算符：介绍VB中的基本数据类型、运算符和表达式。
4. 控制结构：介绍VB中的顺序结构、选择结构和循环结构。
5. 函数和过程：介绍VB中的内置函数、自定义函数和过程。
四、教学方法1. 讲授法：讲解VB编程语言的基本概念、语法和编程技巧。
2. 示例法：通过实际编程示例，让学生掌握VB编程的基本方法。
3. 实践法：安排课后练习和编程任务，让学生巩固所学知识。
4. 讨论法：组织学生进行小组讨论，分享学习心得和编程经验。
五、教学评估1. 课后练习：布置课后练习题，检查学生对课堂所学知识的掌握程度。
2. 编程任务：安排编程任务，评估学生的实际编程能力和应用能力。
4. 期末考试：进行全面的知识检测，评估学生对本课程的整体掌握情况。
六、教学资源1. 教材：选用权威、实用的VB编程教材，如《Visual Basic 2010程序设计教程》。
2. 课件：制作精美的课件，辅助讲解VB编程的基本概念和语法。
3. 编程工具：为学生提供VB集成开发环境（IDE），如Visual Studio 2010。
4. 示例代码：准备丰富的示例代码，以便在课堂上进行演示和分析。
5. 练习题库：编写充足的练习题，供学生课后练习和巩固知识。
《第一单元 第1课 VB开发环境简介 启动VB》教学设计教学反思
《启动VB》教学设计方案（第一课时）一、教学目标1. 知识与技能：学生能够理解VB的基本观点和界面，掌握VB的启动方法。
2. 过程与方法：通过实践操作，学生能够掌握VB的基本操作流程。
3. 情感态度与价值观：激发学生对编程的兴趣，培养他们的创新认识和实践能力。
二、教学重难点1. 教学重点：熟悉VB的界面，掌握VB的启动方法，能够进行简单的操作。
2. 教学难点：如何引导学生理解VB的基本观点，培养他们的编程思维。
三、教学准备1. 准备VB的安装光盘或者网络下载安装包，确保设备配置符合教学要求。
2. 准备教学PPT，包括VB的启动操作、界面展示、基本操作流程等内容。
3. 准备相关练习题和案例，供学生实践操作。
4. 安排合适的上机操作时间，确保学生有足够的时间进行实践。
四、教学过程：（一）情景导入1. 展示一些用VB制作的小游戏、小动画，让学生感受VB 的奇奥，激发学生对VB的兴趣。
2. 介绍VB的用途、特点以及简单的操作界面，让学生对VB 有一个初步的了解。
（二）新课教学1. 讲解VB的启动方法，并演示如何新建一个VB应用程序。
2. 介绍VB中的常用工具栏和菜单栏，让学生熟悉VB的基本操作。
3. 讲解VB编程的基本语法和常用语句，例如：声明变量、应用注释、输出语句、条件语句等。
4. 通过一些简单的示例程序，让学生动手实践，熟悉VB编程的基本操作。
5. 讲解VB中的控件，例如：标签、文本框、按钮、图片框等，并演示如何应用它们来制作简单的界面。
6. 讲解如何应用事件驱动机制来处理控件的事件，例如：单击事件、双击事件等。
7. 通过一些综合性的示例程序，让学生进一步熟悉VB编程，并提高学生的实践能力。
（三）教室练习1. 给学生安置一些简单的教室练习，例如：制作一个简单的“猜数字”游戏，让学生动手实践，稳固所学知识。
2. 要求学生分组合作，共同完成一个相对复杂的项目，培养学生的团队协作能力和创新能力。
（四）小结作业1. 总结本节课的主要内容，强调VB编程的基本思路和方法。
与VB初次见面_课件
二、不用写代码的程序
（2）事件驱动
运行程序时，要让对象响应某个事件后实现某些指定的功能，就
必须为这个事件编写程序代码，以便发生这个事件时调用并执行这段
程序代码。这种通过事件调用并执行程序代码的机制就称为事件驱动。
（3）为“我的第一个VB程序”编写代码
第1步：启动VB并打开程序。打开“我的第一个VB程序”所在的
文件夹，双击其中保存的“我的第一个VB程序.vbp”文件，即可自动
动动手
运用以上介绍的方法在窗体中添加标签控件Label2， 然后按Delete键把Label2删除。
第3步：修改控件的属性。单击Lable1控件将其选中， 属性窗口中显示出这个控件的属性，在属性名列表中找到 并双击Caption，从键盘上输入“我的第一个VB程序！从 而改变Label1的Caption属性值，如下页两图所示。
做完第一个不用写代码的程序，我们发现它的功能很简单， 只是显示了一行文字，不能实现交互。要想实现交互功能， 就要学会写代码。下面我们就在“我的第一个VB程序”中添 加一句VB代码，实现一个简单的交互功能。
三、写第一句代码
（1）事件 我们以日常生活中的例子来说明什么是事件。用针刺一下 充满气的气球，气球就会放气。“用针刺”之类的动作就可以 称为事件，而气球放气则是气球对“用针刺”事件做出的响应。 同样，运行程序时，单击鼠标、敲键盘上的某一个键等动 作称为事件。比如我们单击应用程序窗口右上角的“关闭”按 钮区，可以关闭程序窗口，这说明区按钮可以响应单击鼠标这 一事件，并执行关闭程序窗口的操作。 一个对象可以响应若干种事件，如命令按钮可以响应单击、 双击等事件，不同的对象所能响应的事件也不完全相同。每个 对象能响应的事件是固定的，不能为对象建立新的响应事件。 常见的事件有：Click（单击鼠标）、Db1Click（双击鼠 标）、Key Press（键盘按键）、Change（内容改变）。
VB公选课心得
Vb公选课心得这学期选修了VB这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。
那么谈谈这学期的学习中对vb的认知和心得体会。
在日常生活中我们经常会有这样的体会，就是去做自己感兴趣的事情时，时间好像一直不够用，而从事自己不喜欢干的事情时候，好像度日如年一般。
我刚接触VB是第一次上选修课，老师给我们讲课，我对着VB软件系统无从下手。
之后就去图书馆查阅了有关VB教程的书，决心自学。
但每次看到一行行枯燥的程序代码眼皮不自觉地就要打架。
后来几乎是"头悬梁，锥刺股"才得入门。
现在想来，这种入门大可不必。
严谨求实的态度是非常正确的，但既然面对初学者，也许换一种思路更贴切。
少一些隐晦，多一些直观；少一些专业术语，多一些例子。
慢慢地，我了解到VB的特点，ＶＢ是在原来的Ｂasic语言基础上发展而来的．Ｖisual指的是可视的图形用户界面开发方法.不需编写大量代码去描述界面元素的外观和位置,只要把预先建立的对象添加到屏幕上的某点即可.如果使用者诸多PAINT之类的绘图程序,则实际上已经掌握了创建用户界面的必要技巧.BASIC指的是B语言,一种在计算机技术发展历史上应用得最为广泛的语言之一.VB在原来BASIC语言的基础上进一步发展至今包含了数百条语句,函数及关键词,其中很多和WINDOWS GUI有直接关系,VB不仅是可视语言,而且是面向对象的编程语言.其特点是概念多,实践性强,涉及面广.之后,了解到一些基本的概念,含义.例如类,就是创建对象实例的模板包含了创建的属性描述和行为特征的定义.而此中的对象又是类的一个实例,继承了类的属性,方法,而VB中长用的对象有窗体,控件等.但我们在建立之前必须清楚对象的三要素:属性,方法和事件.而建立程序的步骤大致可分为:(1)启动程序,装载和显示窗体.(2)窗体等待事件的发生.(3)事件发生时,执行对应的事件发生过程.(4)再重复的过程。
如何自主学习vb自主研讨第一课余国力(1)
为什么要学vb？
其实这学习的不是知识 这考察的是一份能力 一个接受新知识的能力
首先必须说明的是，vb入门容易，深入很难，需要 计算机原理的知识，需要汇编的功底，需要c的功底 ，需要对底层的了解……
1.了解VB程序设计语言的基本知识，包括简单语句格式及其功能，数据类 型、变量、常量、表达式和函数。 2.初步理解顺序、分支、循环程序三种基本结构，能读懂简单的程序。 3.学会在VB程序设计环境中创建、运行、修改简单程序的操作。 4.了解程序设计的基本思想与方法。
分支结构：If……then……else……End if 循环结构：For <循环变量>=<初值> To <终值> Step <步长> <循环体> Next <循环变量>
可是？？？？
上课完全听不懂肿么办？ 没报课外辅导班肿么办？ 报了课外辅导班也听不懂 肿么办？ 时间不够，3月份的考试 想一次过肿么办？
知识点和重点的确立
三、复习知识点和重点的确立
5.
函数：(详细见课本P40表2-3）
绝对值函数——ABS(x) 开放根函数——Sqr(x) 取整函数—— Int(x) 随机函数—— Rnd(x)
6. 7.
语句：赋值语句、画圆语句、Print语句等 程序设计的三种结构：顺序结构、分支结构、循环结构
你应该说“别人都可以为什么我就不行？ 为什么我就不能创造奇迹？”
奇迹，其实是一种努力。
一鸣惊人，获得成功时的满足
致各位
一次课不能改变什么
，但能带给你一个新 的方向。
结合自身实际，因地制 宜，寻找最适合自己 的路就能改变自己
相关交流群
vb实训报告心得体会(18篇)
vb实训报告心得体会（18篇）vb实训报告心得体会（通用18篇）vb实训报告心得体会篇1今年的4月份学校根据我们所学专业EDA技术的需求与我们另一门课电子产品装接相结合进行了FPGA实训板的组装，实训地点选在S12-201，主要实训流程有两大部分，一部分是SMT表面贴装元件的装配，一部分是THT元件的焊接，在整个实训过程中我学习到许多以前不了解的经验，也更加的了解书上的一些难以理解的知识点。
刚开始老师先把THT元件发个了我们，要求我们先自己检查元件是否存在问题，刚开始的时候我没有掌握检测元件的要点，拿万用表一顿乱测，根本就测不出到底有没有问题，但是后来通过请教同学以及老师的指点，我总算学会了基本的元件检测，检测完元件为接下来的焊接省了不少时间和心力，我们就可以避免出现因为元件本身的问题而从新焊接。
检测完元件，老师说为了让我们更加了解流水线作业，SMT元件的贴装就采用流水线作业，我负责的就是贴片的11工位，本来我以为会很容易，也没太在意，真正到流水作业到我这里的时候，我那镊子夹住电阻却手抖个不停，但是后来我记起老师说的要要点，沉着下来，经过几次贴装下来就慢慢熟习了，也就不再紧张了，整个工序下来虽然大家都很认真却还是出现许多问题，但是经过后来的补焊，基本上还是算成功了，这一部分完成后，后面的基本就是自己小组成员自己进行组装，我和胡静分别焊了一部分，经过几个小时的努力，我们的板子终于成功的组装好了。
经过这几周的不懈努力，终于的完成了这次的实训任务，看着手边的板子，我感触很多，记得一开始的完全茫然，到后面慢慢的得心应手，我学到很多，在检测中我学会了怎样去熟练的检测基本元件，在THT贴装中我学到了团队意识，在焊接中我学会了细心更重要的是，在组装FPGA板的过程中，我熟悉了板子的原理图，相信在学习EDA技术中会起到很大的作用，与此同时，我也了解到我还有许多东西需要去学习，需要更严格的要求自己对专业知识的学习。
01VB-初次接触VB
初次接触VB软件是计算机的灵魂，程序设计是极有前途的工作，为了祖国的强盛，有志青少年必须学点程序设计语言。
我相信你们你们中一定有未来的软件大师。
VB（Visual Basic）是当前广泛使用的一种程序设计语言，由于其功能强大却容易入门，因此很适合我们学习。
学习，从模仿开始。
本书通过一系列大大小小的例子，让大家逐步掌握VB的基础知识，了解程序设计的基本原则，培养周密思考、一丝不苟、合作交流的学习与工作作风。
启动VB我们以Windows xp为操作系统，以中文版VB 5.0/6.0为程序设计环境（假定已经按默认方式安装），开始学习。
图1反映了启动VB的一种方法：鼠标单击任务栏上“开始”按钮，再依次选中“程序”、“Microsoft Visual Basic 5.0”、“Visual Basic 5.0”各项，就启动了VB。
图1 启动VB的一种方法VB启动后，首先出现“新建工程”对话框（图2），内含3张卡片：“新建”、“现存”、“最新”——“新建”卡片包含多种选项，新编程序一般选“标准.EXE”，再按“打开”按钮“现存”卡片让你从保存在盘上的所有文件中打开要编辑的VB程序文件“最新”卡片让你从最近保存在盘上的一些文件中打开要编辑的VB程序文件图2 “新建工程”对话框VB的基本窗口VB集成开发环境包含一组窗口（图3）。
图3 VB的基本窗口主窗口第一行是VB标题栏，第二行是VB菜单栏，第三行是标准工具栏。
下面又分左中右三个区：左边是工具箱（有许多控件），中间是窗体窗口（可以盛放控件）和代码窗口（用VB语言编写程序的地方），右上方是工程资源管理器窗口（反映窗体、模块之间的关系），右下方是属性窗口（用于描述窗体和控件的初始属性）。
使用视图菜单（图4），可以改变这些组成内容。
图4 视图菜单我们的第一个VB程序VB程序设计由对象（窗口和控件）设计和代码设计两部分有机组成。
我们的第一个VB程序包括窗体、文本框、标签框、命令按钮四个对象，以及一小段代码。
《第一单元 Visual Basic初步 第1课 VB开发环境简介 启动VB》作业设计方案-初中信息
《启动VB》作业设计方案（第一课时）一、作业目标本次作业旨在帮助学生掌握VB的基本操作，理解VB应用程序的基本框架，熟悉VB的开发环境，并能够初步尝试使用VB 编写简单的程序。
二、作业内容1. 启动VB并熟悉开发环境学生应尝试启动VB编程环境，熟悉其中的菜单栏、工具栏、窗体设计器等基本元素。
学生需要了解如何创建新的VB项目，如何设置窗体布局，如何保存项目。
2. 编写简单的程序学生可以选择一个简单的示例程序进行模仿，例如一个简单的“Hello World”程序。
学生需要按照示例程序的结构和代码，编写自己的程序，并在VB环境中进行调试和运行。
3. 学习控件的使用学生需要了解VB中的各种控件，如标签、文本框、按钮等，并尝试在程序中使用这些控件。
学生需要理解控件的基本属性和事件，并能够根据需求选择合适的控件。
4. 理解程序框架学生需要了解VB应用程序的基本框架，了解程序的结构和运行流程。
学生需要理解主窗体和控制面板等重要元素，并能够根据框架设计自己的程序。
三、作业要求1. 学生需要在规定时间内完成作业，并在完成后提交作业；2. 学生需要仔细阅读作业指南和相关文档，确保作业的正确性和完整性；3. 学生需要积极寻求帮助和指导，遇到问题时及时向老师或同学请教；4. 学生需要按照要求提交作业，包括但不限于代码、截图、说明文档等。
四、作业评价1. 评价标准：作业完成质量、代码规范性、问题解决能力、学习态度等；2. 评价方式：教师评价和学生互评相结合；3. 评价时间：作业提交后一周内完成评价。
五、作业反馈1. 学生反馈：学生应向老师或同学分享自己的学习体验和收获，提出问题及困惑，共同促进学习进步；2. 教师反馈：教师将对学生在作业中出现的普遍问题和个别问题进行反馈，对学生的学习成果进行总结和评价；3. 总结反馈：根据学生的作业反馈，教师将对VB教学进行反思和总结，不断优化教学方法和策略。
通过本次作业，学生将进一步熟悉VB的开发环境，掌握VB 的基本操作，为后续的学习打下坚实的基础。
用VB实现聊天讨论室和点对点会话
用VB实现聊天讨论室和点对点会话【摘要】本文将介绍使用VB实现聊天讨论室和点对点会话的方法。
在概述部分，将简要介绍本文的主题。
在聊天讨论室的实现部分，将详细介绍如何利用VB语言实现一个可以容纳多人参与的聊天室，并讨论实现过程中可能遇到的挑战和解决方案。
在点对点会话的实现部分，将讨论如何使用VB语言实现两人之间的私密聊天，包括数据传输和安全性的考量。
在总结部分将对全文内容进行回顾，并提出下一步可能的改进方向。
通过本文的阅读，读者将能够了解如何利用VB编程语言实现聊天讨论室和点对点会话，并可以在此基础上进行进一步的开发和优化。
【关键词】VB实现、聊天讨论室、点对点会话、引言、概述、正文、结论、总结1. 引言1.1 概述在信息技术的快速发展和普及的今天，人们之间的沟通方式也在不断地变化和创新。
在网络上，聊天讨论室和点对点会话已经成为人们日常生活中不可或缺的交流工具。
使用Visual Basic（VB）语言可以轻松地实现这两种交流方式，为用户提供一个方便、快捷的沟通平台。
聊天讨论室是一个集体聊天的环境，在这里用户可以与多人进行交流、分享想法和观点。
通过VB编程，我们可以创建一个简单易用的聊天讨论室界面，用户可以在其中发送消息、接收消息，并与其他用户进行实时交流。
用户可以选择加入不同的讨论组，与兴趣相同的人进行互动，扩大自己的社交圈子。
点对点会话则是私密的一对一交流方式，用户可以选择和特定的人进行私密聊天，讨论私人话题或私人事务。
通过VB实现点对点会话功能，用户可以建立一个安全的私密通道，确保信息的保密性和安全性。
这种交流方式适用于需要私下交流或讨论的情况，提供了更加个性化和保密的交流方式。
通过VB实现聊天讨论室和点对点会话功能，可以为用户提供一个便捷、安全、多样化的交流平台，满足人们日常生活中不同场合的沟通需求。
VB语言的简洁易学和强大功能，使得实现这两种功能变得更加容易和高效。
2. 正文2.1 聊天讨论室的实现聊天讨论室是一种常见的在线交流平台，用户可以在这里自由交流信息、分享想法和观点。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
水平 向右
水平 向下
斜方向可看成水平方向和竖直方向两个方向的合成运动， Timer1的代码由两个执行两个垂直方向的if条件句拼成。
讨论一：字幕滚动（改进2）
Private Sub Command2_Click() If Command2.Caption = "↖" Then Command2.Caption = "停" Timer2.Enabled = True Else Command2.Caption = "↖" Timer2.Enabled = False End If End Sub
四 个 计 时 器 代 码
Private Sub Timer4_Timer() If Label1.Top < Frame1.Height Then Label1.Top = Label1.Top + 100 Else Label1.Top = -Label1.Height End If End Sub ‘↓方向滚动 Private Sub Timer3_Timer() If Label1.Top > -Label1.Height Then Label1.Top = Label1.Top - 100 Else Label1.Top = Frame1.Height End If End Sub ‘↑方向滚动
查看 Timer5 代码
返回 目录
查看代码
讨论一：字幕滚动（改进1）
查看代码
Private Sub Command7_Click() bel1.ForeColor = QBColor(Rnd * 15) End Sub
Private Sub Command8_Click() If Command8.Caption = "闪烁" Then Command8.Caption = "停" Timer5.Enabled = True Else Command8.Caption = "闪烁" Timer5.Enabled = False End If End Sub
框 架 Fr am e1
4个计时器负责控 制滚动的4个方向。
4个按钮负责控制 4个计时器的启动。
讨论一：字幕滚动
查看窗 口代码
查看代码
返回 目录
查看代码
讨论一：字幕滚动
Private Sub Form_Load() Label1.Caption = "VB" Label1.FontSize = 24 Label1.FontName="黑体" Label1.AutoSize = True Label1.BackStyle = 0 Label1.Left = 0 Label1.Top = 0 Command1.Caption = "→" Command2.Caption = "←" Command3.Caption = "↑" Command4.Caption = "↓"
VB第一次小组讨论
代码 码1 2 3
讨论一：字幕滚动 讨论一：改进1 2 3
代码 代码 代码 代码 代码
讨论二：缩放变色 讨论三：秒数转换成时分秒 讨论四：倒计时 讨论五：三角形三边求面积 讨论六：一元二次方程日期 2017.4.15
讨论一：字幕滚动
放大缩小按钮代码
讨论一：字幕滚动（改进1）
讨论一（改进2）
讨论一：字幕滚动（改进） 滚动字幕程序改进版本2： 框架中有一标签（祝），通过点击底下4 个按钮可使标签按按钮的方向斜着滚动。
字幕的内容可自行更改，在文本框上输入 更改后的文本，再点击“确定”按钮即可 点击右上方“轮换”按钮，可使标签内容 按一定的时间间隔依次并循环显示 “祝”“您”“考”“试”“成”“功” 运行界面如图所示
讨论一：字幕滚动
Private Sub Command1_Click() If Command1.Caption = "→" Then Command1.Caption = "停" Timer1.Enabled = True Else Command1.Caption = "→" Timer1.Enabled = False End If End Sub
水平 向左
水平 向上
以上是command1-2和timer1-2的代码，其余两个计时器编 程原理同上，用对应两个垂直分方向代码拼接好即可。
讨论一：字幕滚动（改进2）
Private Sub Timer5_Timer() If Label1.Caption = "祝" Then Label1.Caption = "您" ElseIf Label1.Caption = "您" Then Label1.Caption = "考" ElseIf Label1.Caption = "考" Then Label1.Caption = "试" ElseIf Label1.Caption = "试" Then Label1.Caption = "成" ElseIf Label1.Caption = "成" Then Label1.Caption = "功" Else Label1.Caption = "祝" End If End Sub
Private Sub Timer5_Timer() bel1.ForeColor = QBColor(Rnd * 15) End Sub
讨论一：字幕滚动（改进1）
Private Sub Command5_Click() If Label1.FontSize < 100 Then Label1.FontSize = Label1.FontSize + 10 Else Label1.FontSize = Label1.FontSize End If End Sub Private Sub Command6_Click() If Label1.FontSize > 10 Then Label1.FontSize = Label1.FontSize - 10 Else Label1.FontSize = Label1.FontSize End If End Sub
讨论一：字幕滚动（改进2）
点击“轮 换”按钮， 标签按一 定的时间 间隔依次 并循环显 示 “祝”“ 您”“考 ”“试” “成”“ 功”
可任意更改标签内容
讨论一：字幕滚动（改进2）
窗口界面如图所示 框架+标签label1 1个文本框（text） 6个按钮（command） 5个计时器（timer） 标签“此处可修改文本” Timer1-4分别运行字幕的4个斜向滚动 Timer5运行标签内容的轮换 Command1-4控制Timer1-4的启动 Command6控制Timer5的启动 Command5和Text1负责更改文本
轮流 换字 代码
讨论一：字幕滚动（改进2）
Private Sub Form_Load() Text1.Text = "祝" Label1.Left = 0 Label1.Top = 0 Label1.Caption = "祝" Label1.FontName = "黑体" Label1.FontSize = 24 Command1.Caption = "↘" Command2.Caption = "↖" Command3.Caption = "↙" Command4.Caption = "↗" Command5.Caption = "确定" Command6.Caption = "轮换" Form1.Caption = "字幕滚动"
讨论一：字幕滚动
讨论一（改进1）
讨论一：字幕滚动（改进） 滚动字幕程序改进版本1： 在原滚动工程上新增了几项功能：
1.可设置滚动字幕字体大小 2.可改变滚动字幕字体颜色 3.可使字幕边滚动边“闪烁” （这里的闪烁指字体颜色按一定 时间间隔随机改变）
运行界面如图所示
讨论一：字幕滚动（改进1）
点 击 可 使 字 体 颜 色 随 机 闪 烁 改 变
窗口及部分 按钮代码
Timer1.Enabled = False Timer1.Interval = 50 Timer2.Enabled = False Timer2.Interval = 50 Timer3.Enabled = False Timer3.Interval = 50 Timer4.Enabled = False Timer4.Interval = 50 End Sub
讨论一：字幕滚动（改进2）
Command1、 Timer1代码 Command2、 Timer2代码 Timer5代码
查看代码 查看代码
返回 目录
讨论一：字幕滚动（改进2）
Private Sub Command1_Click() If Command1.Caption = "↘" Then Command1.Caption = "停" Timer1.Enabled = True Else Command1.Caption = "↘" Timer1.Enabled = False End If End Sub
窗体界面如图所示 框架+1个标签（label） 5个计时器（timer） 8个按钮（command）
新增了1个计时器 （timer5），负责运行字 幕的闪烁