VB数字时钟
VB时钟课程设计
沈阳理工大学机械工程学院VB程序设计训练任务书学生姓名王硕班级10010131 学号1001013124设计题目时钟具体内容制作一个提取系统时间并正确走时的时钟。
该时钟有时针、分针和秒针，并且可以走动，如果系统时间正确，则它的时间也正确。
一、设计要求题目 8题目：时钟制作一个提取系统时间并正确走时的时钟。
该时钟有时针、分针和秒针，并且可以走动，如果系统时间正确，则它的时间也正确。
二、技术要求（一）题目内容描述简单的时钟，功能于系统时钟相差不大，能够显示当前的系统时间，并且分针，秒针，时针可以自行走动，并且显示正确的时间。
（二）应用程序功能详细说明1.欢迎界面在进入系统时首先显示欢迎对话框，界面友好，使程序更加人性化。
2.时钟功能（1）绘制一个石英钟，程序运行后在桌面上显示一个能按系统时间走动的石英钟，样式美观。
而且工程的标题为当前时间的数字形式，方便获取准确时间。
（2）绘制时钟主要是在窗体上使用PSet方法按照坐标位置点，用Resize 过程来绘制一个时钟形状图案。
并将圆心坐标设置xx1，yy1为中心，以及坐标原点。
通过坐标差值绘制时钟刻度（3）使用Line控件作为时钟的时针、分针、秒针；将三条直线的一点与坐标原点重合。
（4）使用Timer控件控制时针、分针、秒针坐标位置的改变；通过计算获得在当前时间的位置。
（5）单击“退出”按钮，会退出程序。
（三）输入数据类型、格式和内容限制变量值数据类型格式内容限制xx1 Integer 数字yy1 Integer 数字sdeg, srad Long 数字hdeg, hrad Long 数字mdeg, mrad Long 数字（四）系统主要界面描述（1）编辑界面：---新建一个标准工程---在工程中添加一个标准窗体，窗体的Caption的属性为设置为“时钟”，Start Up Position属性设置为“2-屏幕中心”。
---在窗体上添加3个Line控件，并设置Border Color属性设置为合适的颜色。
利用VB实现动态时钟的算法分析
利用VB实现动态时钟的算法分析
动态时钟是指一个数字时钟能够自动更新时间，在计算
机程序中，可以使用VB来实现动态时钟。
具体实现的算法
如下：
1. 在VB中，需要创建一个窗体(Form)来展示动态时钟。
在窗体的Load事件中，可以初始化时钟的显示格式。
2. 在窗体的Timer事件中，需要更新时钟的时间。
可
以使用VB的内置函数Now()来获取当前时间。
同时，可以
使用Format函数将时间格式化为小时、分钟和秒。
3. 将格式化后的时间赋值给时钟控件的Text属性，以
更新显示的时间。
4. 为了使时钟能够动态更新，需要将Timer控件的Enabled属性设置为True。
同时，在窗体的Unload事件中，需要将Timer控件的Enabled属性设置为False，以避免程
序内存泄漏。
5. 可以通过调整Timer控件的Interval属性，来控制
时钟更新的频率。
通常，将Interval设置为1000(毫秒)即
可实现每秒钟更新一次。
6. 如果需要增加其他功能，如设置闹钟、倒计时等，
可以在时钟更新的方法中增加相应的代码实现。
综上，通过VB内置函数的使用以及时钟控件的更新，
就可以轻松地实现动态时钟的功能。
只需要根据实际需求，添加相应的代码实现即可。
VB时钟（精选多篇）
VB时钟（精选多篇）第一篇：VB时钟二零零九年五月目录摘要...............................................................................i 第1章概述. (1)1.1 引言..........................................................................1 1.2 设计平台......................................................................1 第2章开发工具简介 (2)2.1 VisualBasic6.0简介............................................................2 2.2 运用的控件和主要对象..........................................................2 第3章设计实现 (6)3.1画时钟表盘上的所有直线元素 (6)3.2修改时针的形状.................................................................6 3.3计时器的Interval(间距)属性设置................................................6 3.4软件代码.......................................................................7 第4章总结.. (16)4.1 结论.........................................................................16 4.2 心得体会.....................................................................16 参考文献.. (17)-i第1章概述1.1 引言visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。
02VB-数字钟
数字钟本单元课程有助于学生巩固前面课程所掌握的一些操作方法和部分基础概念。
一，复习启动与退出VB的方法二，复习VB窗口的组成:标题栏、菜单栏、标准工具栏、工具箱、工程资源管理器、属性窗口、窗体布局、代码窗口、对象窗口……图1 “数字钟”程序在VB设计状态下的画面三，本实例对象选取及其初始状态设计。
本例连同窗体在内，一共用到四个对象。
以下是这些对象的名称和需要设置的属性（利用属性窗口设置）。
窗体（Form，用于显示信息、盛放其他控件）1，名称frmClock(代码设计中用于区别于其他窗体)2，Caption 数字钟（在窗体标题栏中显示的文字）3，BorderStyle 1-Fixed Single（边框样式1，运行时不能改变窗体大小）4，窗体的大小可以手工拖放窗体边框来调整，此处按以下数据设置Height 2130 （高度）Width 3945（宽度）5，在屏幕上的位置可以在窗口布局区手工拖放来调整，此处按以下数据设置Left 7860（窗体左边框离屏幕左边的距离）Top 6150（窗体上边框离屏幕上边的距离）●标签（LABEL控件，可以显示文字等信息）本例有两个LABEL控件第一个LABEL控件用来显示日期1，名称lblDate（代码设计中用于区别于其他控件）2，Alignment 2-Center(文字居中显示)3，AutoSize True(根据所显示的内容需要，自动调整本身大小尺寸) 4，BorderStyle 0-None(无边框)5，Caption 空白无字6，Font 宋体、小三号（标签上所显示文字的字体和字号）7，标签的大小可以手工拖放标签边框来调整，此处按以下数据设置Height 300（高度）Width 165（宽度）8，在窗体上的位置可以在窗体上手工拖放来调整，此处按以下数据设置Left 1845（控件左边框离窗体左边框的距离）Top 240 （控件上边框离窗体上边框的距离）第二个LABEL控件用来显示时间1，名称lblTime（代码设计中用于区别于其他控件）2，Alignment 2-Center(文字居中显示)3，AutoSize True(根据所显示的内容需要，自动调整本身大小尺寸) 4，BorderStyle 1-Fixed Single(有边框)5，Caption 空白无字6，Font 宋体、初号（标签上所显示文字的字体和字号）7，标签的大小可以手工拖放标签边框来调整，此处按以下数据设置Height 900（高度）Width 495（宽度）8，在窗体上的位置可以在窗体上手工拖放来调整，此处按以下数据设置Left 1680（控件左边框离窗体左边框的距离）Top 720 （控件上边框离窗体上边框的距离）●计时器（Timer）控件1，名称Timer1（代码设计中用于区别于其他控件）2，Interval 1000(1000毫秒，即1秒，两次调用本控件的间隔时间)) 3，在窗体上的位置可以在窗体上手工拖放来调整，此处按以下数据设置Left 3360（控件左边框离窗体左边框的距离）Top 1200（控件上边框离窗体上边框的距离）以上工作完成后，可得以下画面：图2 设计状态下的窗体、控件画面上海市南洋模范中学陆慈晖VB 教案选——数字钟 3 四，代码的设计（红色文字是注释，可不输入） 1,先完成以下代码，然后运行，注意观察显示时间之前有何异常，分析其原因。
VB做电子报时钟
VB做电子报时钟模拟电子钟带语音报时功能1、显示时间2、语音报时3、定时报警4、定时关机同时我还将在文章中穿插介绍VB提供的绘图方法以及一些实用技巧，下面我们就开始吧。
一、如何显示时间(1) Visual Basic时间日期函数介绍让我们先来看看怎样实现显示时间吧。
在windows中给我们提供了一系列通用控件，而且各种编程工具又在这个基础上，给我们提供了更多的选择。
不同的控件，有不同的作用，但就显示信息来说，主要有textbox，Lable等控件。
在这里我们选择Lable控件来显示时间。
那么怎样获取时间呢？vb中给我们提供了以下函数：函数名函数功能语法结构Date 函数返回包含系统日期的Variant(Date) 。
Date DateAdd函数返回包含一个日期的Variant(Date) ，这个日期还加上了一段时间间隔。
DateAdd(interval,number,date)DateDiff函数返回Variant(Long)的值，表示两个指定日期间的时间间隔数目。
DateDiff (interval,date1,date2,firstdayofweek [，firstweekofyear])DatePart函数返回一个包含已知日期的指定时间部分的Variant(Integer) DatePart(interval,date[，firstdayofweek][，firstweekofyear ] ) DateSerial函数返回包含指定的年月日的Variant(Date) DateSerial( year ，month ，day ) DateValue函数返回一个Variant(Date) DateValue(Date) Day函数返回一个Variant(Integer) ，其值为1到31之间的整数，表示一个月中的某一日 Day(Date)Hour函数返回一个Variant(Integer) ，其值为0到23之间的整数，表示一天之中的某一个钟点 Hour(time)Minute函数返回一个Variant(Integer) ，其值为0到59之间的整数，表示一个小时中的某一分钟 Minute(time) Now函数返回一个Variant(Date) ，根据计算机系统设置的日期和时间来指定日期和时间 NowSecond函数返回一个Variant(Integer) ，其值为0到59之间的整数，表示一分钟之内的某一秒钟 Second(time)Time函数返回一个指明当前系统时间的Variant(Date) Time Time语句设置系统时间 Time = timeTimer函数返回一个Single，代表从午夜开始到现在所经过的秒数 Timer TimeSerial函数返回一个Variant(Date) ，包含具有现在时、分、秒的时间。
11.4.3vb中定时器
VB中的窗体与常用控件
1
计时器控件
2
教学任务结果展示
任务一：简单的数字时钟
打开数字时钟
任务二：秒表 打开秒表
3
定时器控件（Timer）
控件
事件
属性
4
定时器控件——事件
单击 双击
LostFocus
命令按钮
GotFocus
键按下 键抬起
Timer控件只有一个Timer事件
5
定时器的“Timer（）事件”
签的Caption属性置为系统时间即可。
9
任务一：简单的数字时钟
Private Sub Timer1_Timer()
Label1.FontSize = 40
Label1.Caption = Time() End Sub
10
任务二：秒表
设计： 在窗体上放置三个标签用来显示“分”、“秒”和“十毫秒”
定时器（Timer），是一种特殊的控件，它能有规律地以一 定的时间间隔激发定时器事件（Timer）而执行相同的程序 代码。（定时器在运行时并不可见。） 功能：
（1）定时完成某项任务
（2）进行某种后台处理
6
定时器控件——属性
定时器控件有两个主要属性： Enabled属性 True： 有效计时 False：停止时钟工作 Interval属性 定时器控件以属性Interval的值为时间间隔产生 Timer事件。 单位：毫秒ms(0.001s)，1000ms=1s，取值范围为 0～65535，所以最大时间间隔小于66s。 该属性的缺省值为0，即定时器控件不起作用。
7
定时器控件——属性
定时器控件工作的两大条）Interval属性的值不为0
VB系统时钟模块
k = k + t.wHour * 3600000# '60 * 60 * 1000
k = k + t.wMinute * 60000# '60 * 1000
Select Case str
Case "s"
MyDateDiff = ChangToS(t2) - ChangToS(t1)
Case "ms"
MyDateDiff = ChangToMs(t2) - ChangToMs(t1)
End If ቤተ መጻሕፍቲ ባይዱ
Case 4, 6, 9, 11
k = k + 2592000000# '30 * 24 * 60 * 60 * 1000
End Select
Next n
End Function
'计算从2000年1月1日0时0分0秒0毫秒到t时刻的秒数
Public Function ChangToS(t As SYSTEMTIME) As Double
ChangToS = ChangToMs(t) / 1000
End Function
Public Function MyDateDiff(str As String, t1 As SYSTEMTIME, t2 As SYSTEMTIME) As Double
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
用vb实现指针时钟的制作
用vb实现指针时钟的制作1、自定义坐标，让坐标原点在中心位置。
2、获取系统时间，使用函数time获取当前系统时间，而时、分、秒分别用以下函数Hour(Time)Minute(Time)Second(Time)可以用h,m,s三个变量分别存储系统当前的时、分、秒3、钟面的绘制，钟面上任意一点A的坐标A点坐标如下:X=ρcos(α)Y=ρsin(α)绘制钟面上的点3、指针的另一点的的x,y坐标的计算分析：若指针在第一象限，则B点坐标如下：X=ρcos(α)Y=ρsin(α)∵α+θ=π/2∴α=π/2 -θ∴x=ρCos(α)= ρcos(π/2 -θ)y=ρsin(α) =ρsin(π/2 -θ)若指针在第四象限，则有：∵α+θ=π/2+2π∴α=π/2+2π-θ又∵设α为任意角，终边相同的角的同一三角函数的值相等：sin（2kπ＋α）= sinαcos（2kπ＋α）= cosα∴x=ρcos(α)= ρcos(π/2+2π-θ)= ρcos(π/2 -θ) y=ρsin(α)= ρsin(π/2+2π-θ)= ρsin(π/2 -θ)同理，可以证明指针端点的坐标在二、三象限上也存在以下的关系：x=ρcos(π/2 -θ)y=ρsin(π/2 -θ)即对于时刻的指针端点的坐标均符合以下的表达式x=ρcos(π/2 -θ)y=ρsin(π/2 -θ)又∵秒针转动的角度值：θ=π/30*s∴秒针端点的坐标为x=ρcos(π/2 -π/30*s)y=ρsin(π/2 -π/30*s)同理，分针端点的坐标为x=ρcos(π/2 -π/30*m)y=ρsin(π/2 -π/30*m)同理，时针端点的坐标为x=ρcos(π/2 -π/6*s)y=ρsin(π/2 -π/6*s)。
VB编写漂亮的时钟
首先打开vb6.0,新建一个工程,在窗体中放一个imagebox控件然后在其中放一个timer控件再就是一个直线控件数组注意要把imagebox中的stretch属性改为true,直线控件数组是14个,要注意下面是我和程序代码,有一些注解的希望能对大家有帮助Private Sub Form_Load() '设置窗体和计时器参数Timer1.Interval = 100 '设置计时器事件间隔是1/10秒Width = 4000Height = 4000Left = Screen.Width \ 2 - 2000Top = (Screen.Height - Height) \ 2End SubPrivate Sub Form_Resize() '启动时和改变窗体时设置刻度和指针 Dim i, angleFor i = 0 To 13Line1(i).Visible = TrueLine1(i).BorderWidth = 4If i = 0 Or i > 12 ThenLine1(i).BorderColor = RGB(0, 0, 128)ElseLine1(i).BorderColor = RGB(0, 128, 0)End IfNext iLine1(12).BorderColor = RGB(128, 256, 128)Line1(9).BorderColor = RGB(256, 128, 128)Line1(6).BorderColor = RGB(128, 0, 256)Line1(3).BorderColor = RGB(0, 0, 255)Line1(13).BorderColor = RGB(255, 0, 255)Line1(0).BorderWidth = 5 '时针的粗细Line1(14).BorderWidth = 2 '分针的粗细Line1(i).BorderColor = RGB(256, 0, 0)For i = 0 To 14Scale (-1, 1)-(1, -1) '画出表盘12个点和时,分.秒15条线angle = i * 2 * Atn(1) / 3Line1(i).X1 = 0.9 * Cos(angle)Line1(i).Y1 = 0.9 * Sin(angle)Line1(i).X2 = Cos(angle)Line1(i).Y2 = Sin(angle)Next iEnd SubPrivate Sub Timer1_Timer()Const hh = 0Const mh = 13Const sh = 14Dim angleStatic lsIf Second(Now) = ls Then Exit Sub '机器时钟停止程序退出 ls = Second(Now)angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60)) '时钟转动设置 Line1(hh).X1 = 0Line1(hh).Y1 = 0Line1(hh).X2 = 0.3 * Cos(angle)Line1(hh).Y2 = 0.3 * Sin(angle)angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60)) '分钟转动设置Line1(mh).X1 = 0Line1(mh).Y1 = 0Line1(mh).X2 = 0.7 * Cos(angle)Line1(mh).Y2 = 0.7 * Sin(angle)angle = 0.5236 * (75 - Second(Now) / 5) '秒钟转动设置Line1(sh).X1 = 0Line1(sh).Y1 = 0Line1(sh).X2 = 0.8 * Cos(angle)Line1(sh).Y2 = 0.8 * Sin(angle)Form1.Caption = Str(Now()) '窗口显示日期和时间End Sub。
vb中的时间格式
vb中的时间格式VB中的时间格式是开发者在使用Visual Basic编程语言时，用于处理和显示日期和时间的一种规则或格式。
在VB中，可以通过使用预定义的格式字符串或自定义格式字符串来格式化日期和时间数据。
这些格式字符串控制了日期和时间的显示方式，包括年份、月份、日期、小时、分钟和秒等。
接下来，将逐步回答关于VB中时间格式的问题。
第一步：如何获取当前日期和时间？在VB中，可以使用Now函数获取当前日期和时间。
Now函数返回一个包含当前日期和时间的DateTime对象。
第二步：如何显示日期和时间的不同部分？要显示日期和时间的不同部分，可以使用DatePart函数。
DatePart函数可以返回一个指定的日期或时间部分，如年份、月份、日期、小时、分钟和秒等。
第三步：如何格式化日期和时间的显示？在VB中，可以使用Format函数来格式化日期和时间的显示。
Format 函数采用两个参数：第一个参数是日期或时间值，第二个参数是一个格式字符串，用于指定所需的日期或时间显示格式。
第四步：如何使用预定义的格式字符串？VB提供了一些预定义的格式字符串，可以用于常见的日期和时间格式化需求。
例如，长日期格式（Long Date Format）可以使用"dddd, MMMM dd, yyyy"格式字符串来显示完整的星期几、月份和年份。
第五步：如何使用自定义格式字符串？如果预定义的格式字符串无法满足需求，可以使用自定义格式字符串。
自定义格式字符串是由特定的格式字符组成，每个格式字符表示不同的日期或时间部分。
例如，"yyyy-MM-dd"表示四位数的年份、两位数的月份和两位数的日期。
第六步：如何将字符串转换为日期和时间？在VB中，可以使用CDate函数将字符串转换为日期和时间。
CDate函数尝试将字符串转换为有效的日期和时间值。
如果转换成功，将返回一个DateTime对象；否则，将引发一个错误。
VB时钟屏保代码
下面是这个时钟屏保的界面做这个用到的控件只有一个计时器（Timer）和一个标签（Label）Public Class Form1Dim xc As Integer '时钟的中心点横坐标Dim yc As Integer '时钟的中心点纵坐标Dim OffsetX As Integer = 15 '滚动字幕初始位置Dim Offset As Integer = 15 '滚动字幕的偏移量Dim x1, y1 As IntegerDim x2, y2 As IntegerDim i As Integer = 0Dim n As Integer = 0Dim ss, mm, hh As Single '当前的时、分、秒数值Dim whattime As Date '时间Dim hlength As Integer = 100 '时针的长度Dim mlength As Integer = 120 '分针的长度Dim slength As Integer = 150 '秒针的长度Dim spen As New Pen(Color.Red, 2) '秒针的画笔Dim mpen As New Pen(Color.Gold, 3) '分针的画笔Dim hpen As New Pen(Color.Chocolate, 4) '时针的画笔Dim mypen As New Pen(Color.Blue, 3)Dim mbrush As New SolidBrush(Color.Green)Dim mfont As Font = Me.FontDim x3, y3, x4, y4, x5, y5, x6, y6 As Integer'时、分、秒三条指针的末端坐标Dim R As Integer = 200Dim L As Integer = 40Dim s As Integer = 25Dim qq As Integer'下面这句是使得时钟的中心点的位置在屏幕的中心Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Loadxc = Me.Width / 2yc = Me.Height / 2End Sub'下面是计时器的代码Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick'在计时器里的代码主要分两部分，一部分是上面的滚动字幕的代码，另一部分则是生成时钟图案的代码Dim mfont As Font = New Font(New FontFamily("黑体"), 20)'两个IF语句使得字幕可以在顶部左右滚动If (Label1.Left < 0) ThenOffsetX = +OffsetEnd IfIf (Label1.Right >= Me.Width) ThenOffsetX = -OffsetEnd IfLabel1.Left = Label1.Left + OffsetXDim mystr As String '声明一个用于显示时间的字符串mystr = Format(Now(), "long date") + Format(Now(), "long time") '把当前时间赋给字符串 Label1.Text = "我的屏保程序" + mystr'下面这段可以使得字幕的颜色可以不断地变换Dim fontcolor() As Color = {Color.Red, Color.Crimson, Color.Cyan, Color.Brown,Color.BlueViolet}Label1.ForeColor = fontcolor(n)If n = 0 Thenn = 1ElseIf n = 1 Thenn = 2ElseIf n = 2 Thenn = 3ElseIf n = 3 Thenn = 4Elsen = 0End If'下面开始“画”时钟Dim g As Graphics = Me.CreateGraphics() '先声明一个画板g = Me.CreateGraphicsg.Clear(Me.BackColor) '刷新画面' Me.Refresh()'下面这段“画”数字和数字旁的那些小线段的代码For i = 0 To 11x1 = CInt(xc + R * Math.Cos(i * 3.14 / 6))y1 = CInt(yc + R * Math.Sin(i * 3.14 / 6))x2 = CInt(xc + (R + L) * Math.Cos(i * 3.14 / 6))y2 = CInt(yc + (R + L) * Math.Sin(i * 3.14 / 6))g.DrawLine(mypen, x1, y1, x2, y2)If i <= 9 Theng.DrawString(i + 3, mfont, mbrush, CInt(xc + (R + L + s) * Math.Cos(i * 3.14 / 6)), CInt(yc + (R + L + s) * Math.Sin(i * 3.14 / 6)))Else : g.DrawString(i - 9, mfont, mbrush, xc + (R + L + s) * Math.Cos(i * 3.14 / 6), yc + (R + L + s) * Math.Sin(i * 3.14 / 6))End If'下面是画三条指针的代码Nextwhattime = DateTime.Nowss = whattime.Secondmm = whattime.Minutehh = whattime.Hourx3 = xc + slength * Math.Cos(1.5 * 3.14 + ss * 3.14 / 30)y3 = yc + slength * Math.Sin(1.5 * 3.14 + ss * 3.14 / 30)g.DrawLine(spen, xc, yc, x3, y3)mm = mm + ss / 60x4 = xc + mlength * Math.Cos(1.5 * 3.14 + mm * 3.14 / 30)y4 = yc + mlength * Math.Sin(1.5 * 3.14 + mm * 3.14 / 30)g.DrawLine(mpen, xc, yc, x4, y4)hh = hh + mm / 60x5 = xc + hlength * Math.Cos(1.5 * 3.14 + hh * 3.14 / 6)y5 = yc + hlength * Math.Sin(1.5 * 3.14 + hh * 3.14 / 6)g.DrawLine(hpen, xc, yc, x5, y5)'下面是“画”的外圈的代码qq = whattime.Secondx6 = xc + slength * Math.Cos(2.5 * 3.14 + qq * 3.14 / 30)y6 = yc + slength * Math.Sin(2.5 * 3.14 + qq * 3.14 / 30)Dim p As Graphics = CreateGraphics()Dim jpen As New Pen(Color.Coral)jpen.Width = 5p.DrawEllipse(jpen, x6, y6, 30, 30)Dim vpen As New Pen(Color.Blue)vpen.Width = 20g.DrawEllipse(vpen, xc - 280, yc - 280, 600, 600)End SubPrivate Sub Form1_MouseClick(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) Handles Me.MouseClickEndEnd SubPrivate Sub Form1_MouseMove(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) Handles Me.MouseMoveEnd Sub End Class。
基于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 环境下的各类应用程序。
ExcelVBA实现电子钟
ExcelVBA实现电⼦钟来源：Dim Runtime As Date'定义时间变量Sub RunTimer()Runtime = Now() + TimeValue("00:00:02") '时间显⽰为增加1秒Application.OnTime Runtime, "my_Procedure"'在这个指定的时间执⾏下⾯的过程End SubSub my_Procedure()Range("A1") = Format(Time, "h:mm:ss") '在指定的表格显⽰系统当前的时间（Time）RunTimer '回头继续执⾏上⾯的程序End SubOnTime函数指在某⼀具体时间执⾏某⼀过程，即过程my_Procedure。
执⾏my_Procedure的时候，就显⽰现在的时间，然后⽴即执⾏Runtime过程，接着就循环下去，效果如下图所⽰：（颜⾊⼤⼩可以另外设置）涉及到的相关概念：1. ：表⽰从 0001 年 1 ⽉ 1 ⽇到 9999 年 12 ⽉ 31 ⽇的⽇期以及从午夜 12:00:00 到晚上 11:59:59.9999999 的时间。
Date 的默认值为0001 年 1 ⽉ 1 ⽇的 0:00:00（午夜）。
2. ：以 datetime 格式返回当前⽇期和时间。
3. Time 函数：返回系统当前的时间。
4. ：将⽂本格式的时间转换为⽇期时间格式的时间。
5. ：安排⼀个过程在将来的特定时间运⾏（既可以是具体指定的某个时间，也可以是指定的⼀段时间之后）。
OnTime(EarliestTime, Procedure, LatestTime, Schedule) 后⾯两个为可选参数！Application.OnTime Runtime, "my_Procedure"单独⼀⾏的⽅法不能加括号，要是涉及到赋值操作，则要加括号！6. ：没有参数的时候指⼯作表中所有的单元格，带⼀个参数则表⽰第⼀⾏的第⼏个单元格，带两个参数，则分别表⽰⾏和列！With Cells(2, 2).Font.Size = 20.Color = RGB(255, 0, 0).Name = "Arial Black".FontStyle = "Bold Italic"End With7. ：它代表⼀个单元格或单元格区域。
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。
vb中的时间格式 -回复
vb中的时间格式-回复VB中的时间格式在编程中，时间的处理是一个非常重要的功能，特别是在需要对日期、时间进行计算、比较、格式化等操作时。
Visual Basic (VB) 是一种广泛使用的编程语言，它提供了丰富的函数和格式选项来处理时间。
本文将向您介绍VB中的时间格式，并逐步详细回答相关问题。
一、VB中的时间数据类型在VB中，有两个主要的时间数据类型：Date和TimeSpan。
1. Date数据类型：用于表示一个日期和时间的组合。
它可以存储从公元1年1月1日至公元9999年12月31日的任意日期和时间。
Date数据类型的默认格式为“yyyy-MM-dd HH:mm:ss”。
2. TimeSpan数据类型：用于表示时间间隔。
它可以存储以天、小时、分钟、秒和毫秒为单位的时间间隔。
TimeSpan数据类型的默认格式为“dd.hh:mm:ss.ffffff"，其中dd表示天，hh表示小时，mm表示分钟，ss表示秒，ffffff表示毫秒。
二、VB中的时间格式化函数VB提供了许多内置的函数用于对时间进行格式化。
以下是常用的时间格式化函数：1. Format函数：用于将时间值转换为指定的格式字符串。
例如，可以使用以下代码将日期格式化为“yyyy-MM-dd”格式：vbDim dt As Date = #2022-01-01#Dim formattedDate As String = Format(dt, "yyyy-MM-dd") Console.WriteLine(formattedDate) ' 输出：2022-01-012. ToString函数：用于将时间值转换为字符串。
它可以接受一个格式字符串作为参数。
例如，可以使用以下代码将日期格式化为“yyyy-MM-dd”格式：vbDim dt As Date = #2022-01-01#Dim formattedDate As String = dt.ToString("yyyy-MM-dd") Console.WriteLine(formattedDate) ' 输出：2022-01-013. DateTime.Parse函数：用于将字符串转换为DateTime对象。
vb做时间显示 数据库
用VB做时间显示功能2008-06-19 18:22对于经常忘记的VB代码在此做一个总结下面是用VB做一个时间显示Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Label1 = Time$End Sub添加一个timer控件一个标签就可以了～还有更全的添加一个时钟控件、一个标签，以下是代码：Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Label1.Caption = Y ear(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & Time & " 星期" & Weekday(Now) - 1'显示年月日,系统时间,以及星期最简单的方法也可以写成Label1.Caption = NowEnd Sub－－－－－－－－－－－－－－－－－'用FORMA T语法令时间看上去更标准'只需要加入一个时间控件'代码如下Private Sub Form_Load()Me.Caption = Format(Now, "YYYY年MM月DD号hh点mm分ss秒星期" & Weekday(Now) - 1)Timer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Me.Caption = Format(Now, "YYYY年MM月DD号hh点mm分ss秒星期" & Weekday(Now) - 1)End Sub'代码结束'如果只想得到当前时间'Me.Caption = Format(Now, "YYYY年MM月DD号hh点mm分ss秒星期" & Weekday(Now)- 1)'改为'Me.Caption = Time'即可'不明白请联系QQ:121877114/////////////////////////////////////////////////////附FORMA T函数的说明Format 函数返回V ariant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
VB编写漂亮的时钟
首先翻开vb6.0,新建一个工程,在窗体中放一个imagebox控件之勘阻及广创作然后在其中放一个timer控件再就是一个直线控件数组注意要把imagebox中的stretch属性改为true,直线控件数组是14个,要注意下面是我和法式代码,有一些注解的希望能对年夜家有帮手Private Sub Form_Load() '设置窗体和计时器参数Timer1.Interval = 100 '设置计时器事件间隔是1/10秒Width = 4000Height = 4000Left = Screen.Width \ 2 - 2000Top = (Screen.Height - Height) \ 2End SubPrivate Sub Form_Resize() '启动时和改变窗体时设置刻度和指针Dim i, angleFor i = 0 To 13Line1(i).Visible = TrueLine1(i).BorderWidth = 4If i = 0 Or i > 12 ThenLine1(i).BorderColor = RGB(0, 0, 128)ElseLine1(i).BorderColor = RGB(0, 128, 0)End IfNext iLine1(12).BorderColor = RGB(128, 256, 128)Line1(9).BorderColor = RGB(256, 128, 128)Line1(6).BorderColor = RGB(128, 0, 256)Line1(3).BorderColor = RGB(0, 0, 255)Line1(13).BorderColor = RGB(255, 0, 255)Line1(0).BorderWidth = 5 '时针的粗细 Line1(14).BorderWidth = 2 '分针的粗细 Line1(i).BorderColor = RGB(256, 0, 0)For i = 0 To 14angle = i * 2 * Atn(1) / 3Line1(i).X1 = 0.9 * Cos(angle)Line1(i).Y1 = 0.9 * Sin(angle)Line1(i).X2 = Cos(angle)Line1(i).Y2 = Sin(angle)Next iEnd SubPrivate Sub Timer1_Timer()Const hh = 0Const mh = 13Const sh = 14Dim angleStatic lsIf Second(Now) = ls Then Exit Sub '机器时钟停止法式退出ls = Second(Now)angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60)) '时钟转动设置Line1(hh).X1 = 0Line1(hh).Y1 = 0Line1(hh).X2 = 0.3 * Cos(angle)Line1(hh).Y2 = 0.3 * Sin(angle)angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60)) '分钟转动设置Line1(mh).X1 = 0Line1(mh).Y1 = 0Line1(mh).X2 = 0.7 * Cos(angle)Line1(mh).Y2 = 0.7 * Sin(angle)angle = 0.5236 * (75 - Second(Now) / 5) '秒钟转动设置Line1(sh).X1 = 0Line1(sh).Y1 = 0Line1(sh).X2 = 0.8 * Cos(angle)Line1(sh).Y2 = 0.8 * Sin(angle)Form1.Caption = Str(Now())'窗口显示日期和时间End Sub。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《多媒体软件设计技术》实验报告书课程名称：多媒体软件设计技术班级：自动化2009级1班学号：200904134028姓名：汪胜指导教师：杨岚二○一一年四月一．实验的目的1．使学生通过试验，掌握界面的设计方法，掌握常用控件的属性、事件、方法，理解事件驱动的概念。
2．掌握图形、图像程序设计方法；3．掌握多媒体音频、视频程序的设计方法；二．实验项目实验一常用控件与界面、菜单设计1、实验目的通过本实验，要求掌握常用控件的属性、事件、方法，理解事件驱动的概念。
掌握界面的基本设计方法，掌握下拉式菜单的设计方法2、实验内容实验1：指法练习1）界面设计2）运行界面3）属性设置：4)程序源代码1.判断是否击中窗体上的字母：Private Sub Form_KeyPress(KeyAscii As Integer) '当按下键时，判断是否击中，并做相应处理Dim temp, height As Integerheight = -1 '记录击中字母的位置temp = -1 '记录击中字母的下标For i = 0 To Label1.Count - 1If Label1.Item(i).Caption = Chr(KeyAscii) Then '循环用于判断是否击中字母，记录被击中字母的高度下标If height < Label1.Item(i).Top Thentemp = iheight = Label1.Item(i).TopEnd IfEnd IfNextIf temp > -1 Then '表示击中字母，（temp的值为0~9>-1）Label1.Item(temp).Top = -500score = score + 1Label3.Caption = scoreEnd IfIf KeyAscii = 27 Then '若按下ESc键，显示成绩，并提示是否退出If MsgBox("你的得分：" & score & "分" + Chr(13) + Chr(10) + "真的要退出吗？", vbYesNo, "成绩") = vbYes Then EndEnd IfEnd Sub2.窗体加栽Private Sub Form_Load()Dim i As IntegerDim j As Singlescore = 0Label3.Caption = 0 '初始化个标签的位置和显示字符For j = 0 To Label1.Count - 1 'Label1.Count:统计控件数组共有多少个元素Label1(j).Top = 0 - j * 380 'Top属性：控件最顶端到容器（本例为窗体）的距离Randomize '初始化随机函数i = Int((122 - 97 + 1) * Rnd + 97) 'Int():取整函数；Rnd():随机函数；表示：取a～z的字符Label1.Item(j).Caption = Chr(i) 'Label1.Item(j):控件数组的第j个元素；Chr(i)：字符转换函数Next jEnd Sub3.定时器控件Timer1：控制字符的下落速度，用户的打字成绩每增加10分，字符的下落速度就加快，如果字符下落到一定程度，结束程序的运行。
Private Sub Timer1_Timer()Dim i As IntegerFor i = 0 To Label1.Count - 1If score > 10 ThenLabel1.Item(i).Top = Label1.Item(i).Top + 100 + 10 * (score \ 100)ElseLabel1.Item(i).Top = Label1.Item(i).Top + 80End IfIf Label1.Item(i).Top > 15000 Then '若第i个字母与窗体顶端的距离大于10000，则程序结束MsgBox "你的得分：" & score & "分", , "成绩"EndEnd IfNextEnd Sub4.定时器控件Timer2：不断检测标签控件数组中的标签，如果那个标签被击中，其高度（Top 值）初始值赋值为小于零，随机产生的字符赋给该标签的Caption属性。
Private Sub Timer2_Timer()Dim j As IntegerFor i = 0 To Label1.Count - 1If Label1.Item(i).Top < 0 Then '第i个字谜被击中Randomizej = Int((122 - 97 + 1) * Rnd + 97)Label1.Item(i).Caption = Chr(j) '随即产生第i个字母End IfNextEnd Sub5.定义全局变量Dim score As Integer '定义全局变量实验2. 在实验的基础上添加菜1）设计界面运行界面2）菜单的编辑3）属性设置与实验一相同4）程序源代码1.对“开始游戏”编写代码：与实验1 中的窗体加载的代码相同，Private Sub start_Click()Dim i As IntegerDim j As Singlescore = 0Label3.Caption = "0" '初始化个标签的位置和显示字符For j = 0 To Label1.Count - 1 'Label1.Count:统计控件数组共有多少个元素Label1(j).Top = 0 - j * 380 'Top属性：控件最顶端到容器（本例为窗体）的距离Randomize '初始化随机函数i = Int((122 - 97 + 1) * Rnd + 97) 'Int():取整函数；Rnd():随机函数；表示：取a～z的字符Label1.Item(j).Caption = Chr(i) 'Label1.Item(j):控件数组的第j个元素；Chr(i)：字符转换函数Next jEnd Sub2.“退出游戏”代码编写Private Sub quit_Click()EndEnd Sub3.“当前分数”代码编写Private Sub now_score_Click()MsgBox "您现在的得分是：" & score, vbInformation, "当前得分"End Sub4.其他代码与实验1一致实验二VB图像处理程序的设计1、实验目的通过本实验，要求掌握VB图形、图像处理程序设计的基本方法2、实验内容：图片百叶窗效果1）设计界面2）运行界面1.水平式2.垂直式3.交互式3）属性设置4）程序源代码1.通用代码段：调用系统BitBlt函数，将原始图片拷贝到第二个picturebox中去。
Const xTimes = 5Const COPY_PUT = &HCC0020 '表示图片直接拷贝Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _ByVal ySrc As Long, ByVal dwRop As Long) As Long2.垂直按钮Private Sub chuizhi_Click()Dim H As Long, W As LongDim i As Long, j As Long, m As Long, n As LongH = Ps.ScaleHeightW = Ps.ScaleWidthFor i = 0 To (xTimes - 1)For j = i To W Step xTimesBitBlt Pd.hDC, j, 0, 1, H, Ps.hDC, j, 0, COPY_PUTDelay 80000Next jNext iEnd Sub3.水平按钮Private Sub shuiping_Click()Dim H As Long, W As LongDim i As Long, j As Long, m As Long, n As LongH = Ps.ScaleHeightW = Ps.ScaleWidthFor i = 0 To (xTimes - 1) '双重循环For j = i To H Step xTimesBitBlt Pd.hDC, 0, j, W, 1, Ps.hDC, 0, j, COPY_PUTDelay 80000Next jNext iEnd Sub4.交互按钮Private Sub jiaohu_Click()Dim H As Long, W As LongDim i As Long, j As LongH = Ps.ScaleHeightW = Ps.ScaleWidthFor i = 0 To xTimes - 1 For j = i To H Step xTimesBitBlt Pd.hDC, j, 0, 1, H, Ps.hDC, j, 0, COPY_PUTBitBlt Pd.hDC, 0, j, W, 1, Ps.hDC, 0, j, COPY_PUTDelay 80000Next jNext iEnd Sub5.退出按钮Private Sub quit_Click()EndEnd Sub6.清除函数Private Sub clear_Click()Pd.ClsEnd Sub7.窗体加载Private Sub Form_Load()Ps.Picture = LoadPicture(App.Path & "\abc.jpg") '在程序所在磁盘内，自动加载图片abc.jpg End Sub8.延迟函数Private Sub Delay(ByVal t As Long) '延时子过程，以便于能看清楚切换效果。