VB6.0中时钟控件详案
vb时钟设计课程设计
vb时钟设计课程设计一、课程目标知识目标：1. 学生能理解VB编程中时间相关的数据类型和函数。
2. 学生掌握使用Visual Basic设计一个简单时钟界面和实现时间显示功能的基本步骤。
3. 学生能够解释时钟程序中涉及的时间概念，如时、分、秒及它们之间的关系。
技能目标：1. 学生能够运用VB语言编写程序，实现实时时间显示功能。
2. 学生能够通过编程实践，培养解决问题的能力和逻辑思维能力。
3. 学生能够对程序进行调试和修改，提高程序优化和故障排查的能力。
情感态度价值观目标：1. 学生通过动手实践，培养对计算机编程的兴趣和热情。
2. 学生在团队协作中，学会相互沟通与协作，培养集体荣誉感。
3. 学生通过编程创作，体会科技改变生活的实际应用，激发创新精神。
分析课程性质、学生特点和教学要求：1. 课程性质：本课程为信息技术课程，结合Visual Basic编程，以实践操作为主。
2. 学生特点：六年级学生具备一定的计算机操作能力和逻辑思维能力，对编程有好奇心。
3. 教学要求：注重培养学生的实际操作能力，激发学生的学习兴趣，提高学生的团队合作意识。
1. 独立编写一个具有基本时间显示功能的VB时钟程序。
2. 在编程过程中，运用所学知识解决实际问题，提高逻辑思维能力。
3. 积极参与团队合作，与同伴共同完成时钟设计任务，提高沟通协作能力。
二、教学内容1. VB编程基础：- 数据类型：整数、字符串、日期时间。
- 控件使用：标签、定时器。
- 常用函数：Time、Timer。
2. 时钟设计原理：- 时间概念：时、分、秒及其进制转换。
- 时钟界面设计：布局、颜色、字体。
3. 编程实现时钟：- 时钟程序结构：初始化、时间更新、界面显示。
- 代码编写：获取系统时间、时间格式化、定时刷新。
4. 教学大纲安排：- 第一课时：回顾VB基础，介绍时钟设计原理。
- 第二课时：学习使用控件，设计时钟界面。
- 第三课时：编写代码实现时间显示功能。
VB程序设计电子教案 第3章：VB基本程序控件编程
复选框, 复选框,单选按钮的常用属性
Enabled Value
表示复选框或单选按钮的状态: (1)复选框:0-未选中(Unchecked),1-选中,(Checked) 2- 灰色不可选(Grayed); (2)单选按钮:False-未选中,True-选中
Style
设置复选框或单选按钮的外观
Picture
Picture
设置控件中显示的图形(作为背景图形) 决定图片框是 无此属性 否自动扩展到图 片的大小 无此属性 决定图片是否能自动调整以 适应图片框的大小(可能会导 致图像变形)
AutoSize
Stretch
图片框, 图片框,图像框的区别
图片框控件可以作为其它控件的容器,图像框 却不是. 图片框可以通过Print方法和绘图语句输出, 而图像框则不能. 图像框比图片框占用的内存少,显示速度快. 图像框能够延伸图形的大小,以适应控件的大 小,图片框则不能,但图片框能自动调整控件 大小以适应图形的大小.
滚动条编程示例 时钟编程示例
滚动条编程示例
滚动条编程示例.vbp
实现方法
界面设计 代码设计
设置文本框的背景色,可用: ●设置文本框的背景色,可用: Text1.BackColor = RGB(R,G,B)
●滚动条的Change事件 滚动条的 事件
代码清单
滚动条相关知识点
滚动条的常用属性及事件
属性/事件 Min属性 Max属性 SmallChange属性 LargeChange属性 Value 属性 Change 事件 Scroll 事件 功能/激发条件 设置滚动条的最小值 设置滚动条的最大值 单击滚动条两端的箭头时的增值,默认为1 单击滚动条的滚动区域时的增值 滚动条当前的值 滚动条常用事件 当滚动条的Value值值发生变化时 移动滚动条时(即使未释放鼠标)
基于VB6.0的钟表设计
目录摘要 (iii)第1章概述 (1)1.1 引言 (1)1.2 设计平台 (1)第2章开发工具简介 (2)2.1 VisualBasic6.0简介 (2)2.2 运用的控件和主要对象 (3)3.1主窗体 (4)Private Sub qiyong_Click() (5)3.2时钟窗体 (6)3.3屏幕保护窗体 (10)第4章结束语 (12)参考文献 (13)摘要Visual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言，从任何标准来说，VB都是世界上使用人数最多的语言。
它是一种面向对象的可视化程序设计语言，提供了集界面设计、编写代码和程序调试等于一体的集成开发环境。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
本文通过动画式时钟的设计与实现，，同时说明了在VB环境下开发应用程序的思路和步骤。
关键词：程序设计；时钟；Visual Basic6.0；界面第1章概述1.1 引言visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows 系统编程。
随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了用户更加方便的，更加有舒适的心情，设计出一个比较舒心的时钟显示。
1.2 设计平台VB全称Visual Basic,它是以Basic语言作为其基本语言的一种可视化编程工具。
它继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。
随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户更加地使用舒心。
第2章开发工具简介2.1 VisualBasic6.0简介Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows 环境下的各类应用程序。
VB6.0时间控件TIMER详解
milliseconds 的设置值为：
设置值 描述 0 （缺省值）使 Timer 控件无效。 1 to 65,535 设置的时间间隔（以毫秒计），在 Timer 控件 Enabled 属性设置为 True 时开始有效，例如，10， 000 毫秒等于 10 秒。最大值为 65，535 毫秒，等于 1 分钟多一些。
vb6.0 时间控件 timer 详解
通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。
语法
Timer
说明
Timer 控件用于背景进程中，它是不可见的
************************以下是他的属性**************** Enabled 属性
返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。
设置
boolean 的设置为：
设置 描述 True （缺省）允许 object 对事件作出反应。 False 阻止 object 对事件作出反应。
Enabled 属性示例 该例子使一个 CommandButton 控件有效而不管 TextBox 控件是否包含文本。要试用此例，先将下面的代码粘 贴到带有 CommandButton 和 TextBox 控件的一个窗体的声明部分，然后按下 F5 键并在文本框中随意输入一 些内容。
Interval 属性
返回或设置对 Timer 控件的计时事件各调用间的毫秒数。
语法
object.Interval [= milliseconds]
Interval 属性语法有以下组成部分：
部分 描述 object 对象表达式，其值是“应用于”列表中的一个对象。 milliseconds 数值表达式，指定毫秒数，“设置值”中有详细说明，。
VB6.0第四章-控件,窗体
7
可视化程序设计——第四章 常用控件和窗体
4.4 列表框
7.Text属性（默认属性）
.List（.ListIndex）＝ .Text
8.MultiSelect属性
None：不允许多选。 Simple：简单多选。每次鼠标单击选中一项。 Extended：可扩展多选，与键盘上的某个键配合使用， 如：ctrl+鼠标。
属性：
Path Pattern Archive Normal System Hidden ReadOnly 设置目录或返回当前工作目录 设置要显示的文件类型 是否显示归档文件 是否显示普通文件 是否显示系统文件 是否显示隐含文件 是否显示只读文件 File1.Path=Dir1.Path File1.Pattern=“*.EXE ; *.DLL”
属性：Drive—设置驱动器或返回当前工作驱动器
可通过语句 Drive1.Drive=“C:\” 指定，或从列表中选择。
Drive属性只能在程序代码中设置、访问， 而不能在属性窗口中设置。
事件：Click、Change（列表框顶部的内容改变）
21
可视化程序设计——第四章 常用控件和窗体
DirListBox控件
4.6 驱动器、目录和文件列表框
三、文件列表框
Name 属性：fil [对象.]Path[＝Pathname] [对象.]Pattern[＝value] [对象.] FileName [＝pathname] Path和FileName
19
可视化程序设计——第四章 常用控件和窗体
DriveListBox控件
16
可视化程序设计——第四章 常用控件和窗体
VB6.0中时钟控件详案
单位鹤岗市职教中心专业计算机应用教师王鹤新课题§4.7 timer时钟控件课型新授课年级三、二目标德育目标：培养独立思考、学习和创新精神，提高学生的信息素养。
知识目标：掌握添加时钟控件的方法及基本属性设置；理解时钟控件Timer 事件代码的意义。
能力目标：初步掌握用时钟控件控制简单动画的方法。
教学重点利用定时器实现简单动画的控制。
教学难点根据不同任务，完成定时器Timer事件的程序编写。
教学方法任务驱动、小组讨论、合作学习、互相评价教学工具多媒体网络教室、相应的课件。
教学过程教学内容双边活动时间组织教学师生问好1ˊ导言展示程序“会飞的蝴蝶”，引起学生兴趣，并引出本节课的任务：完成蝴蝶飞的程序，并设计一个移动字幕程序。
观看课件教师引题2ˊ提问蝴蝶为什么会动？学生讨论1ˊ其实简单的动画无非是使一个图像连续地在屏幕上改变位置而已。
一个复杂的动画除了将一个图像整体移动外，还可以改变图像的形状和尺寸。
VB中实现动画有如下3种方法：①使用MOVE方法移动控件或图片②改变图像的位置和尺寸，达到动画的效果③在不同的位置显示不同的图片不论用何种方法，都可以用计时器定时触发有关动画的事件过程。
用计时器的Interval属性控制图像移动的速度。
教师总结2ˊ教学过程教学内容双边活动时间讲授新课§4.7 timer时钟控件一、分析窗体及程序设计二、知识点介绍时钟控件像其它控件一样可在工具箱中找到。
观看课件教师讲解3ˊ教学过程教学内容双边活动时间讲授新课1、计时器的作用时钟控件是一个不可见控件，也就是说在设计阶段，你能够看到它，但程序运行时它不会在界面上出现，是不可见的，它提供计时功能，通常用计时器设置一些动态效果，命名时前缀为tmr。
2、计时器常用属性⑴Name：名称属性。
用于设置或获得控件的名称，运行时只读。
⑵lInterval：时间间隔。
用于设定两次调用Timer事件的时间间隔。
以毫秒为单位，最大值65535。
vb时钟课程设计
vb时钟课程设计一、课程目标知识目标：1. 学生能理解VB编程中时间相关的概念，掌握时钟控件的属性和事件。
2. 学生能描述日期和时间的计算方法，并运用到VB程序中。
3. 学生了解计算机内部时间的表示方法，以及如何通过VB程序进行读取和显示。
技能目标：1. 学生能够独立设计并实现一个具有基本计时功能的VB时钟程序。
2. 学生能够通过调试和修改程序，解决时钟运行中的常见问题。
3. 学生能够运用所学知识，对时钟程序进行优化和拓展，如添加闹钟提醒、倒计时等功能。
情感态度价值观目标：1. 学生在编程实践中，培养解决问题的能力和团队协作精神。
2. 学生通过学习VB时钟编程，提高对计算机编程的兴趣，增强自信心。
3. 学生认识到计算机编程在实际生活中的应用，激发创新意识和实践欲望。
课程性质：本课程为信息技术学科选修课程，以实践操作为主，理论讲解为辅。
学生特点：学生处于初中阶段，对计算机编程有一定的好奇心，但编程基础薄弱。
教学要求：注重实践操作，结合理论讲解，引导学生通过自主学习、合作探讨，完成课程目标。
在教学过程中，关注学生个体差异，因材施教，确保每位学生都能掌握基本的VB时钟编程技能。
二、教学内容1. VB编程环境介绍与基本操作- 熟悉VB集成开发环境- 学会创建和保存VB项目2. 时钟控件的使用- 介绍时钟控件的属性、事件- 学习如何在窗体中添加时钟控件3. 日期和时间的获取与显示- 了解计算机内部时间的表示方法- 学习使用VB函数获取系统时间并显示4. 日期和时间的计算- 掌握日期和时间的加减运算- 学习倒计时和闹钟提醒功能的实现5. VB时钟程序设计实例- 分析实例程序的结构和功能- 学习设计并编写一个简单的VB时钟程序6. 程序调试与优化- 学会使用调试工具查找和修复程序错误- 了解如何提高程序运行效率和稳定性7. 课堂实践与拓展- 学生分组进行实践操作，完成VB时钟程序设计- 鼓励学生发挥创意，对时钟程序进行拓展和优化教学内容安排与进度：第一课时：VB编程环境介绍与基本操作第二课时：时钟控件的使用第三课时：日期和时间的获取与显示第四课时：日期和时间的计算第五课时：VB时钟程序设计实例第六课时：程序调试与优化第七课时：课堂实践与拓展教材章节关联：本教学内容与教材中“VB控件的使用”、“日期时间处理”和“程序调试与优化”等章节密切相关。
VB中时钟控件几种运用
VB中时钟控件的几种运用摘要：时钟控件是vb中一个非常重要的常用控件。
它的主要功能是利用系统内部的计时器计时产行时间间隔，定时完成某项任务及进行某种后台处理.正确灵活的运用好时钟控件的设计，可以使我们在应用程序设计中产生非常理想的一些效果. 本文用实例来介绍在vb程序中利用计时器控件与其它控件结合使用产生不同的应用效果。
关键词：timer控件；动态应用；动画设计中图分类号：tp31vb时钟控件（timer）又称计时器、定时器控件，用于按指定的时间间隔周期性地自动触发事件。
它主要有两个功能：一是用于定时完成某项任务，即每隔一段固定的时间就执行一次相同的任务。
另一个是进行某种后台处理。
时钟控件只有一个事件，就是timer 定时器事件。
通过触发timer事件，时钟控件可以有规律地隔一段时间执行一次代码。
时钟控件的关键属性有两个：（1）enabled用于设置timer控件是否响应timer定时器事件。
属性值为true和false。
（2）interval用于返回或设置对timer控件的定时器事件调用周期的时间间隔。
以毫秒为单位，取值范围为0-65535毫秒。
时钟控件在设计时出现在窗体中，而在程序运行阶段是不可见的。
1 计时器（timer）控件与滚动条（hscrollbar）控件的应用1.1 自动求阶乘设计在窗体上设置1个滚动条控件、2个标签控件、1个时钟控件和2个命令按钮（如图1）。
相应代码如下dim n， j， i ‘定义n，j，i三个整型变量private sub command1_click（）‘开始按钮事件timer1.enabled = trueend subprivate sub command2_click（）；暂停按钮事件timer1.enabled = falseend subprivate sub timer1_timer（）‘timer事件过程n = hscroll1.valuej = 1for i = 1 to n ‘循环计算n！j = j * inextclslabel1.caption = str（n） + “！=“label2.caption = jif hscroll1.value private sub command3_click（）‘退出按钮endend subprivate sub form_load（）‘窗体初始化label1.left = form1.widthlabel1.caption = “中华人民共和国”label1.fontsize = 30timer1.interval = 100end subprivate sub timer1_timer（）‘timer事件过程label1.left = label1.left - 20if label1.left + label1.width > 0 thenlabel1.left = label1.left - 100elselabel1.left = form1.widthend ifend sub运行结果如图64 计时器（timer）控件与图片框（picturebox）控件和图像框（image）控件的应用。
vb6.0 控件简介
阶段2 菜单栏中的“格式”的应用
在界面设计前，应该对各个控件的布局有一个
整体的考虑，使界面看上去自然、清晰，层次分 明。在各控件建立后，还可以利用菜单栏中的 “格式”对它们统一布局。
再选择“格式”菜单中的“对齐”、“统一尺 寸”、“间距”等项进行设置。
阶段3 控件的属性窗口
每个控件都有自己的属性、方法和事件。某些
二.Autosize属性（逻辑类型）
该属性决定控件是否自动改变大小，以显示其 全部内容。当字符串Caption的字符数超过设 定的字符串Caption的宽度时： 若Autosize属性值为True，则自动改变控件大 小以显示全部内容。 若Autosize属性值为False，则保持控件大小 不变，超出部分不予显示。
提高程序的可读性，可以考虑根据控件在程序中的实际 作用，为其另取一个合适的名称。
二.Caption属性（字符串类型）
控件的Caption属性值为显示在控件上的标题，运行时 用户在界面上看到的是Caption值。 不是所有的控件都有Caption属性，如文本框、驱动器 、目录、文件列表框、图像或图片框、定时器、滚动 条、组合框、数据库等控件。 “Caption”属性的默认值与控件的“名称属性”同名 。 重新设置控件的Caption属性，变化的只是控件的外观 ；而重新设置控件的名称属性则不然。
三.Enabled属性（可用性，逻辑类型）
该属性只能取值为“False”或“True”。当值
为False时控件不可用，为灰色；当值为True时 控件可用。 Enabled属性可以在设计时设置，也可以在运 行时用赋值语句为其赋值。
四.命令按钮的其他属性
Appearance属性 Backolor属性 Cancel属性 Default属性 Font属性 Left、Top、Height、Width属性 Style、Picture属性 Visible属性 Index属性
VB编程6.0 常用控件
学
【例2】框架的应用示例（如下图）。
程 序 设 计 常 用 控 件
VB ——
程 序 设 计 常 用 控 件
名 Private Sub Command1_Click() 学 茂 If Option1.Value = True And Option3.Value = 院 Text1.Text = "您选择了宋体红色" Text1.FontName = "宋体" Text1.ForeColor = vbRed End If If Option1.Value = True And Option4.Value = Text1.Text = "您选择了宋体绿色" Text1.FontName = "宋体" Text1.ForeColor = vbGreen End If If Option2.Value = True And Option3.Value = Text1.Text = "您选择了黑体红色" Text1.FontName = "黑体" Text1.ForeColor = vbRed End If If Option2.Value = True And Option4.Value = Text1.Text = "您选择了黑体绿色" Text1.FontName = "黑体" Text1.ForeColor = vbGreen End If End Sub
Font对象属性: Name Bold Size Bold Italic
Underline Strikethrough
茂
名
院
学
二: 标签
1: 主要功能 利用Caption属性来作程序中的提示文字。 2: 主要属性 Caption Autosize Alignment BorderStyle
基于VB6.0的钟表设计
目录摘要 (iii)第1章概述 (1)1.1 引言 (1)1.2 设计平台 (1)第2章开发工具简介 (2)2.1 VisualBasic6.0简介 (2)2.2 运用的控件和主要对象 (3)3.1主窗体 (4)Private Sub qiyong_Click() (5)3.2时钟窗体 (6)3.3屏幕保护窗体 (10)第4章结束语 (12)参考文献 (13)摘要Visual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言，从任何标准来说，VB都是世界上使用人数最多的语言。
它是一种面向对象的可视化程序设计语言，提供了集界面设计、编写代码和程序调试等于一体的集成开发环境。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
本文通过动画式时钟的设计与实现，，同时说明了在VB环境下开发应用程序的思路和步骤。
关键词：程序设计；时钟；Visual Basic6.0；界面第1章概述1.1 引言visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。
随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了用户更加方便的，更加有舒适的心情，设计出一个比较舒心的时钟显示。
1.2 设计平台VB全称Visual Basic,它是以Basic语言作为其基本语言的一种可视化编程工具。
它继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。
随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户更加地使用舒心。
第2章开发工具简介2.1 VisualBasic6.0简介Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。
vb钟表
1、打开VB，VB为你添加了一个窗体。
（一般新建的工程都会有一个窗体，不用添加）主要属性为：Caption:钟表controlBox:False width:4800 height:5800 startUpPosition:2-屏幕中心2、再在窗体上放一个图形控件。
Height:2940 left:600 top:375 width:3400 borderwidth:3 shape:3-circleFillstyle:0-Solid fillcolor:选一个你喜欢的颜色。
3、再在窗体上添加三条直线，直线的起点放在图形的图心上。
主要属性如下：（三条线都如下设置）x1:2300 Y1:1845 X2 与Y2可以任意设置，BorderColor:选一个你喜欢的色BorderWidth:34、添加四个标签，分别修改其Caption为“3”、“6”、“9”、“12”，同时修改这四个标签的BackStyle属性为0-Transparent，并且把这四个标签移动到圆的最右，最下，最左，最上四个位置。
5、添加一个文本框。
主要属性为：Left:900 height:555 top:4215 width:3240至此，我们的钟表程序界面设置完成。
如下图7、现在让表的指针动起来。
在窗体上添加一个时间控件。
修改其interval属性为100，注：这个数值的单位是毫秒，单位很小，1000毫秒才等于1秒。
但是在VB中这不足以用来记时，时为程序在运行的时候影响了记时的准确性。
所以，我们要准确的表达时间的话，要用到系统时间，这要做用一个函数，就是NOW（）。
这个函数的返回值就是当前的系统时间。
8、让指针动起来，就是要在时间变化的时候修改指针不在圆心点的坐标。
我们先来分析秒针：我们知道，一周角为360度，表示60秒，那么每一秒需要用6度来表示，那么，当时间走到S秒的时候，秒针走过6*S度也就是：6*S*3.1415926/180弧度（注，一周角为2*3.14159弧度）。
VB编辑时钟控件+倒计时+闹钟+背景图片+背景音乐
Private Sub Check1_Click()WindowsMediaPlayer1.Controls.pauseEnd SubPrivate Sub Check2_Click()WindowsMediaPlayer1.Controls.playEnd SubPrivate Sub Check3_Click()WindowsMediaPlayer1.Controls.stopEnd SubPrivate Sub Command1_Click()Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer2.Enabled = TrueTimer2.Interval = 1000End SubPrivate Sub Form_Load()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp1.jpg") End SubPrivate Sub Timer1_Timer()Static X!, Y!, Z!, a%, b%, c%, q%, w%, E%Const n = 3.141592653Command1.Visible = FalsePicture1.ClsPicture1.Scale (-1000, 1000)-(1000, -1000)Picture1.Circle (0, 0), 900Dim l As DoubleDim r As DoubleFor i = 0 To 60l = (1 - Sin(i / 60 * 2 * 3.1415926)) * 900 - 900r = (1 - Cos(i / 60 * 2 * 3.1415926)) * 900 - 900Picture1.DrawWidth = 3Picture1.PSet (l, r)Picture1.DrawWidth = 4Next iPicture1.PSet (0, 0)Picture1.CurrentX = -100: Picture1.CurrentY = 850Picture1.FontSize = 25Picture1.Print "12"Picture1.CurrentX = -40: Picture1.CurrentY = -690Picture1.Print "6"Picture1.CurrentX = -850: Picture1.CurrentY = 80Picture1.Print "9"Picture1.CurrentX = 700: Picture1.CurrentY = 100Picture1.Print "3"Picture1.FontSize = 18Picture1.CurrentX = 360: Picture1.CurrentY = 740Picture1.Print "1"Picture1.CurrentX = 650: Picture1.CurrentY = 450Picture1.Print "2"Picture1.CurrentX = 630: Picture1.CurrentY = -320Picture1.Print "4"Picture1.CurrentX = 360: Picture1.CurrentY = -600Picture1.Print "5"Picture1.CurrentX = -430: Picture1.CurrentY = 740Picture1.Print "11"Picture1.CurrentX = -750: Picture1.CurrentY = 440Picture1.Print "10"Picture1.CurrentX = -700: Picture1.CurrentY = -360Picture1.Print "8"Picture1.CurrentX = -370: Picture1.CurrentY = -610Picture1.Print "7"Picture1.DrawWidth = 1X = Second(Time) * 2 * n / 60Y = Minute(Time) * 2 * n / 60Z = Hour(Time) * 2 * n / 12Picture1.Line (0, 0)-(800 * Sin(X), 800 * Cos(X))Picture1.Circle (700 * Sin(X), 700 * Cos(X)), 50Picture1.Line (0, 0)-(600 * Sin(Y), 600 * Cos(Y)), QBColor(5)Picture1.Line (0, 0)-(400 * Sin(Z), 400 * Cos(Z)), QBColor(12)h = Year(Now)i = Month(Now)j = Day(Now)k = Hour(Now)l = Minute(Now)m = Second(Now)Label10.Caption = h & "-" & i & "-" & jLabel11.Caption = k & ":" & l & ":" & mu = Weekday(Now)Select Case uCase 1Label8.Caption = "一"Case 2Label8.Caption = "二"Case 3Label8.Caption = "三"Case 4Label8.Caption = "四"Case 5Label8.Caption = "五"Case 6Label8.Caption = "六"Case 7Label8.Caption = "日"End SelectEnd SubPrivate Sub Timer2_Timer()Dim z1, z2, z3, z4, z5, z6, z7, z8, z9, z10%z1 = V al(Text1.Text)z2 = V al(Text2.Text)z3 = V al(Text3.Text)z4 = V al(Text4.Text)z5 = V al(Text5.Text)z6 = V al(Text6.Text)date1 = DateSerial(z1, z2, z3)date2 = DateSerial(Year(Now), Month(Now), Day(Now))z7 = DateDiff("d", date2, date1)time1 = TimeSerial(z4, z5, z6)time2 = TimeSerial(Hour(Now), Minute(Now), Second(Now)) z8 = DateDiff("h", time2, time1)z9 = DateDiff("n", time2, time1) - z8 * 60z10 = DateDiff("s", time2, time1) - z9 * 60 - z8 * 3600If z2 > 12 Or z3 > 31 Or z4 > 23 Or z5 > 59 Or z6 > 59 Then q = MsgBox("输入有误，请重新输入", , "出错")Print qEnd IfIf z10 < 0 Thenz9 = z9 - 1z10 = 60 + z10End IfIf z9 < 0 Thenz8 = z8 - 1z9 = 60 + z9End IfIf z8 < 0 Thenz7 = z7 - 1z8 = 24 + z8End IfLabel14.Caption = z7 & "天" & z8 & "小时" & z9 & "分" & z10 & "秒"If z7 = 0 And z8 = 0 And z9 = 0 And z10 = 0 ThenMsgBox "时间到", , "倒计时"WindowsMediaPlayer1.URL = App.Path & "\music\" & "dd.mp3" Timer2.Enabled = FalseEnd IfEnd SubPrivate Sub tp1_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp6.jpg") End SubPrivate Sub tp2_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp2.jpg") End SubPrivate Sub tp3_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp3.jpg") End SubPrivate Sub tp4_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp4.jpg") End SubPrivate Sub tp5_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp5.jpg") End SubPrivate Sub yy1_Click()WindowsMediaPlayer1.URL = App.Path & "\music\" & "He's a Pirate.mp3" End SubPrivate Sub yy2_Click()WindowsMediaPlayer1.URL = App.Path & "\music\" & "apologize.mp3" End SubPrivate Sub yy3_Click()WindowsMediaPlayer1.URL = App.Path & "\music\" & "Heartbeats.mp3" End Sub。
用VB6_0制作透明时钟
用VB 6.0制作透明时钟管建军1,靳明霞2(1.安徽理工大学 安徽淮南 232007; 2.淮南工业学校 安徽淮南 232007)摘 要:介绍在V B 6.0中制作透明时钟的编程方法。
关键词:V B 6.0;透明;时钟;图形中图分类号:T P 312V B 文献标识码:B 文章编号:1004373X (2003)0907503To Program of Transparent Clock with VB 6.0GU AN J ia njun 1,JIN Mingx ia 2(1.Anhui Unive rsity of Sc i ence and Tec hnolog y ,Huaina n ,232007,China ; 2.Huainan Industry Schoo l ,Huainan ,232007,China )Abstract :Presents the method of ho w to make the clock into transpa rent.Keywords :V B 6.0;tra nspa rent ;clock ;fig ure收稿日期:20030209 目前在学校教学过程中,越来越多地使用多媒体课件进行教学。
在使用课件进行教学的过程中经常会遇到这样的问题:当用Pow er Point 等软件播放课件时,整个屏幕都被课件的画面所占据,连任务栏也被履盖了,这样显示在任务栏托盘里的时间也被隐藏起来了,这对掌握授课进度很不方便。
如何才能既显示时间,又不影响课件的播放呢?我们看电视节目时,每个电视台都在屏幕的一角显示该电视台的台标或时间,台标是透明显示的,不影响主画面的播放。
受此启发,笔者使用V B 制作了一个透明时钟,解决了上述问题。
1 设计思想由于V B 具有较强的图形处理能力,如果使用API 函数还可以产生特殊的效果。
先在窗体里生成一个时钟,再将窗体设置为透明并使其处于最上层,这样在播放课件时,既显示了时钟,又不会把课件画面覆盖。
vb6.0_控件简介
二.Caption属性（字符串类型）
控件的Caption属性值为显示在控件上的标题，运行时 用户在界面上看到的是Caption值。
三.BackColor属性（整数类型，取值0，1）
该属性值用以指示标签是否透明。 BackColor属性值为0时，透明。 BackColor属性值为1时，不透明。
四.BorderStyle属性（整数类型，取值0，1）
该属性值用以设置控件是否有边框。 BorderStyle属性值为0时，无边框。 BorderStyle属性值为1时，有边框。
阶段2 标签框控件常用事件
标签框控件和命令按钮一样，也可以响应如 Click、Dbclick等事件。在程序设计中，习惯上 还是作为文本显示使用。
任务4 文本框控件
阶段1 文本框控件常用属性 阶段2 文本框控件常用事件
阶段1 文本框控件常用属性
一.Text属性（字符串类型）
该属性是文本框控件最重要的属性之一。可以 在设计时设定Text属性，也可以在运行时直接在 文本框内输入或用向Text属性赋值的方法来改变 该属性的值。 向文本框控件的Text属性赋值，格式为：文本 框控件名.Text=<字符串>
不是所有的控件都有Caption属性，如文本框、驱动器 、目录、文件列表框、图像或图片框、定时器、滚动 条、组合框、数据库等控件。
“Caption”属性的默认值与控件的“名称属性”同名 。
重新设置控件的Caption属性，变化的只是控件的外观 ；而重新设置控件的名称属性则不然。
中职学校VB教案
学校教学设计表文本框的常见事件：Change:文本框的Text发生改变触发该事件；2、命令按钮命令按钮是Visual Basic中使用最频繁的控件之一，它的常用属性有：Name：窗体的名称属性；Caption:命令按钮的标题属性；Cancel:该属性的值有True和False，设置为true是，按“ESC”键就等价于点击该按钮；Enabled:按钮是否有效，值为True时，表示按钮有效，值为False时表示该按钮无效；Style:按钮的样式。
0表示标准样式，1表示图形样式；Visible:值为True时按钮显示，值为False时按钮在运行时不显示。
最常见的事件有：Click事件：用鼠标单击按钮触发该事件。
程序举例：I.设计界面在窗体中按照顺序添加Lable1、Text1、Label2、Text2、Command1和Command2，界面如图1-1所示。
图1-1 程序界面II.设置属性设置属性，设置Lable1的Caption为“&User”、Lable2的Caption为“&Password”、Command1的Caption为“确定[&E]”、设置Command2的Caption为“[&S]”、设置Text1和Text2的Text为空，设置Text2的Passwordchar为“*”。
设置属性后的界面如图1-2所示。
图1-2 设置属性后的界面教学资源作业内容教学后记备注课次第 5 次2课时课型周次第8 周授课日期年月日课题界面设计——用户登录教学目标知识目标1、命令按钮、文本框的常用属性及事件；2、认识代码窗口技能目标1、学会代码的添加；素质（情感、态度、价值观、职业核心能力）目标激发学生学习VB的热情；培养学生的自学能力，分析、理解问题能力。
重点难点代码的添加；教学方法设计项目教学法、讨论法、上机操作教学内容、教学过程、及时间分配导入：上节课通过设计“用户登录”窗口，相信对于该程序的界面设计有了一定的了解，本节课希望大家通过阅读教材，将代码添加进去，实现完整的程序。
VB时钟程序
'申明变量－－－－－－－－－PrivateSubCommand1_Click()Calldialog'调用dialog子程序EndSub－－－－－－－－PrivateSubCommand2_Click()AlarmTime=InputBox(“请输入你想设定的时间,例如(19:12:00)",“小闹钟")IfAlarmTime=“"ThenExitSubIfNotIsDate(AlarmTime)ThenMsgBox“你所输入的不是时间格式,请重试!",,“Wrong"ElseAlarmTime=CDate(AlarmTime)EndIf'判断输入的是否可转换成time格式'isdate函数是判断输入的是否可转换成date格式EndSub－－－－－－－－－－－－－－PrivateSubCommand3_Click()Calldeng'调用deng子程序EndSub－－－－－－－－－－－－－－－PrivateSubForm_Click()frmAbout.Show'显示关于对话框EndSub－－－－－－－－－－－－－PrivateSubForm_Load()Command3.Enabled=0AlarmTime=“"'初始化时command3为不可用的EndSub－－－－－－－－－－－－－－－PrivateSubForm_Resize()IfWindowState=1Thenmintimeelsecaption=“小闹钟"EndIf'如果窗口被最小化,则调用mintime程序EndSub－－－－－－－－－－－－－－－PrivateSubmintime()Caption=Format(Time,“longTime")'使用长时间格式来显示时间EndSub－－－－－－－－－－－－－－－PrivateSubTimer1_Timer()IflblTime.Caption<>CStr(Time)ThenlblTime.Caption=TimeEndIf'显示时间每秒钟的变化IfTime>=AlarmTimeThenCalldengEndIf'判断如果现在的时间超过了设定的时间,则调用deng子程序IfWindowState=1ThenIfMinute(CDate(Caption))<>Minute(Time)ThenmintimeEndIfEndIf'最小化时显示时间每分钟的变化EndSub－－－－－－－－－－－－－Subdialog()CommonDialog1.Flags=cdlCFBothCommonDialog1.ShowOpenLabel1.Caption=CommonDialog1.filenameIfLabel1<>“"ThenCommand3.Enabled=－1ElseExitSubEndIf'把打开的文件名给于label1'如果label1不为空时,则command3即可用EndSub－－－－－－－－－－－－－－Subdeng()Dimssss=Shell(Label1.Caption,1)End'启动指定的文件,并且结束小闹钟程序EndSub最后在about对话框中要提的是：在form_load中app.title表示你的应用程序的名字；app.major、minor、revision是关于应用程序的版本信息；lblDescription.Caption用于对本程序的一些说明描述之类的话；lblDisclaimer.Caption用于版权信息或警告等。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
单位鹤岗市职教中心专业计算机
应用
教师王鹤新课题§4.7 timer时钟控件课型新授课年级三、二
目标德育目标：培养独立思考、学习和创新精神，提高学生的信息素养。
知识目标：掌握添加时钟控件的方法及基本属性设置；理解时钟控件Timer 事件代码的意义。
能力目标：初步掌握用时钟控件控制简单动画的方法。
教学重点利用定时器实现简单动画的控制。
教学难点根据不同任务，完成定时器Timer事件的程序编写。
教学方法任务驱动、小组讨论、合作学习、互相评价
教学工具多媒体网络教室、相应的课件。
教学过程教学内容双边活动时间组织教学师生问好1ˊ
导言
展示程序“会飞的蝴蝶”，引起学生兴趣，并引出本节课的任务：完成蝴蝶飞的程序，并设计一个移动字幕
程序。
观看课件
教师引题
2ˊ
提问蝴蝶为什么会动？学生讨论1ˊ
其实简单的动画无非是使一个图像连续地在屏幕上
改变位置而已。
一个复杂的动画除了将一个图像整体移
动外，还可以改变图像的形状和尺寸。
VB中实现动画有
如下3种方法：
①使用MOVE方法移动控件或图片
②改变图像的位置和尺寸，达到动画的效果
③在不同的位置显示不同的图片
不论用何种方法，都可以用计时器定时触发有关动
画的事件过程。
用计时器的Interval属性控制图像移
动的速度。
教师总结2ˊ
教学过程教学内容双边活动时间
讲授新课
§4.7 timer时钟控件
一、分析窗体及程序设计
二、知识点介绍
时钟控件像其它控件一样可在工具箱中找到。
观看课件
教师讲解
3ˊ
教学过程教学内容双边活动时间
讲授新课
1、计时器的作用
时钟控件是一个不可见控件，也就是说在设计阶
段，你能够看到它，但程序运行时它不会在界面上出
现，是不可见的，它提供计时功能，通常用计时器设
置一些动态效果，命名时前缀为tmr。
2、计时器常用属性
⑴Name：名称属性。
用于设置或获得控件的名称，
运行时只读。
⑵lInterval：时间间隔。
用于设定两次调用Timer
事件的时间间隔。
以毫秒为单位，最大值65535。
为0
计时器不可用。
⑶Enabled：可用性。
True为计时器可用；False
为计时器不可用。
注意：在Enabled=True的情况下，Interval属
性才起作用，每过Interval时间间隔就调用Timer事
件。
Enabled相当于是个启动时钟控件的一个开关，
而Interval是时间间隔。
Enabled=True，启动计时，
当时间一到就去处理Timer事件，继续计时。
当
Enabled=False时，停止计时。
Interval属性无效，
无论如何都不会调用Timer事件。
时钟控件的Interval和Enabled属性设置。
方法一：设计阶段，在属性窗口中设置
ENABLED=FALSE
INTERVAL=1000（即一秒）
方法二：代码编写，在窗体加载时写入
观看课件7ˊ
教学过程教学内容双边活动时间
讲授新课3、事件
时钟控件还有一个最重要的事件Timer事件。
当timer1.Enabled=True时，每过timer1.Interval
个时间段，就会去执行Timer事件。
比如说，你每过1秒就把某个件事情处理一下，
那么你就可以把处理这件事情的代码写在一个Timer
控件的Timer事件中。
4、方法
对象名.MOVE left,Top[,width，length]
Left:对象左边边框离窗体边框的距离
Top：对象顶部与窗体项部之间的距离
Width：对象的新宽度
Length：对象的新高度
三、完成任务
任务一：设计程序，实现蝴蝶飞的程序。
教师巡视，参与到学生的讨论中加以引导。
观看课件
教师讲解
分组设计
教师点评
6ˊ
15ˊ写入触发事件或操作
巩固练习任务二：实现移动字幕效果。
分组设计
教师点评
5ˊ
小结本节课主要认识了时钟控件的两个基本属性ENABLED
属性和INTERVAL属性以及TIMER事件。
我们可以利用
该控件来实现一些特殊的效果，如动画等。
教师总结2ˊ
作业实现文字移出屏幕后能够自动回到屏幕左端重复移动。
提示：如何知道文字移出了屏幕？
移出屏幕后如何再让文字回到原位置？
教师布置
作业
1ˊ
板书设计
§4.7 timer时钟控件
一、分析窗体、代码
二、知识点介绍
1、计时器的作用
2、计时器常用属性 1）Name属性
2）Interval属性
3）Enabled属性属性设置方法：
方法一：设计阶段，在属性窗口中设置
ENABLED=FALSE；
INTERVAL=1000（即一秒）方法二：代码编写，在窗体加载时写入
3、事件
4、方法
三、完成任务
课后反思。