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系统编程。随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了用户更加方便的，更加有舒适的心情，设计出一个比较舒心的时钟显示。1.2 设计平台

VB全称Visual Basic,它是以Basic语言作为其基本语言的一种可视化编程工具。它继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户更加地使用舒心。通过这学期来Visual Basic的学习，我初步掌握了Visual Basic语言的最基本的知识，于是在张老师的指导下动手用Visual Basic编写了这款时钟软件。

个矩形就可以创建一个 Timer 控件了。跟其他控件不同的是，无论你绘制的矩形有多大，Timer 控件的大小都不会变外，Timer 控件只有在程序设计过程中看得见，在程序运行时是看不见的Timer事件：当Timer控件设置为有效时，计时总是从其Interval属性的设置值开始，每当计时时间到达时产生Timer事件，可以在该事件过程中编写代码，以高诉Visual Basic在每次计时时间到时该做什么。

(1)Timer 控件的属性：

Timer 控件可以使用 Name 属性与 Enabled 属性，但最重要的是 Interval 即时间间隔属性。

Interval 属性决定了时钟事件之间的间隔，以毫秒为单位，取值范围为 0 ～ 65535，因此其最大时间间隔不能超过 65 秒，即一分钟多一点的时间。如果把 Interval 属性设置为 1000，则表示每秒钟触发一个 Timer 事件。

其语法格式：

Timer.Interval = X，其中，X 代表具体的时间间隔。(2)Timer 控件的 Timer（定时）事件：

当一个 Timer 控件经过预定的时间间隔，将激发计时器的 Timer 事件。使用 Tim 标签控件（Label）的主要事件：

所谓的事件，其实就是用户对应用程序的操作，如第一章中用鼠标点击命令按钮触发的 Click 事件。

事件的作用在于触发程序的执行，如第一章中的 Click 事件改变了标签控件的 Caption 属性。

标签控件的主要作用在于显示文本信息，但也支持一些为数不多的事件。I、Click 事件（鼠标单击）：

用鼠标点击标签时触发的事件，如改变标签的字体属性： Private Sub LblShow_Click()LblShow.FontName = “隶书” End Sub II、DbClick 事件（鼠标双击）：

鼠标双击引发的事件，如改变标签的可见性： Private Sub LblShow_DbClick()LblShow.Visible = False End Sub(3)文件操作控件

在一个应用程序中，对文件的处理是一个比较常用的操作，如打开文件、保存文件，等等。Visual Basic 提供了三个控件对磁盘文件夹与文件进行显示与操作，它们分别是：DriveListBox（磁盘列表框）控件、DirListBox（文件夹列表框）控件，以及 FileListBox（文件列表框）控件。事件可以完成许多实用功能，如显示系统时钟、制作动画，等等

本属性用来设置标签的边框类型，有两种值可选：0，代表标签无边框；1，代表标签有边框，并且具有三维效果，如图二显示的两个标签：

BorderStyle 属性可以在设计界面时指定

标签名.BorderStyle = 0/1（0或1，两者取一）

击一下，标签有边框，再点一下，标签边框消除，再点一下，边框又出现，以此类推。回答

Ⅲ、Font（字体）属性：

本属性用来设置标签显示的字体，既可以在创建界面时设定，也可以在程序中改变。在创建界面时设定

在图四的设置界面中，除了可以选择字体，还可以设置显示文字是否为粗体、斜体、下划等。

在程序中改变 Font 属性，程序代码书写规则如下：

字体改变：标签名.FontName = “字体类型”，其中，“字体类型”可以是中文，如“宋体”、“隶书”；也可以是英文名，如“Arial”、“Times New Roman”，等等，不过，这些字体名称必须是电脑上有的。

字体大小改变：标签名.FontSize = X，其中，X 是阿拉伯数字，代表字体是几号字。如：LblShow.FontSize = 11。

粗体（FontBold）、斜体（FontItalic）、下划线（FontUnderline）、删除线（FontStrikethru）属性的设置值是代表真/假的逻辑判断值 True/False，如下：

LblShow.FontBold = True/False LblShow.FontItalic = True/False Ⅳ、Alignment（对齐）属性：

此属性用来设置标签上显示的文本的对齐方式，分别是：左对齐，0；右对齐，1；居中显示，2。可以在界面设置时设定，也可以在程序中改变，代码如下： 标签名.Alignment = 0/1/2

图3.2 创建的新工程

下图即为编辑时钟软件的工程窗口，可执行为一个“标准 EXE”文件。具体代码如下。

图3.3 时钟编辑窗口

3.4软件代码

1、主程序代码

Private Sub Form_Load()

Call PutWindowOnTop(Form1)

Call drewfrm(Me.hWnd, App.Path + “clockh.pfm”)

closewave = False

Label1.Caption = Right(Format(Now, “yy-mm-dd”), 2)

htoday = False

Dim a As Integer, b As Integer, c As Integer

Dim inputdata As String

Open App.Path + “forever.dat” For Input As 1

On Error Resume Next

Do While Not EOF(1)

Close #1 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

If Button = 2 Then

PopupMenu MFile

ElseIf Button = 1 Then

Dim ret As Long

ReleaseCapture

ret& = SendMeage(Me.hWnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)

End If End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Label1.ToolTipText = Format(Now, “yyyy年mm月dd日hh:mm”)End Sub Private Sub Mclwav_Click()

closewave = True End Sub Private Sub Openwave_Click()

closewave = False End Sub Private Sub Showfrm_Click()

Form2.Show

Me.Hide End Sub Private Sub small_Click()

图3.4 时钟界面

2、时钟界面子程序 Private Sub Form_Load()

Call PutWindowOnTop(Form2)End Sub Private Sub Picture1_DblClick()

Form1.Show

Unload Me End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

If Button = 1 Then

Dim ret As Long

ReleaseCapture

ret& = SendMeage(Me.hWnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)

End If End Sub3、闹钟提醒设置

0

worktxt = “闹铃”

Else

worktxt = “提醒”

End If

If Option3.Value = True Then

worktxt = worktxt + “每日”

Else

worktxt = worktxt + “今次”

End If

If Option2.Value = True Then

If Option4.Value = True Then

worktxt = worktxt + Timetxt + “#” + Datetxt + Alerttxt

b = True

Else

worktxt = worktxt + Timetxt + Alerttxt

End If

Else

worktxt = worktxt + Timetxt

End If

If Text1.Enabled = True Then

If Text1.Text “” Then

Text1.Text = Text1.Text + vbCrLf + worktxt

Else

Text1.Text = worktxt

End If

Open App.Path + “forever.dat” For Output As 1

Print #1, Text1.Text

Close #1

forever = Text1.Text

ElseIf Text2.Enabled = True Then

If Text2 “” Then

Text2.Text = Text2.Text + vbCrLf + worktxt

Else

Text2.Text = worktxt

End If

End If

End If End Sub Private Sub Form_Load()

Dim inputdata As String

Open App.Path + “forever.dat” For Input As 1

On Error Resume Next

Line Input #1, inputdata

forever = inputdata

Do While Not EOF(1)

2start)“” Then

clockn(d)= Mid$(Mid$(Text2, start, last

Line Input #1, inputdata

Select Case typetime(inputdata)

Case 1

Clockf(a)= Mid$(inputdata, 5)

a = a + 1

Case 3

Alertft(b)= Mid$(inputdata, 5, 5)

alertfms(b)= Mid$(inputdata, 10)

b = b + 1

Case 4

If Mid$(inputdata, 11, 8)= Format(Now, “yy-mm-dd”)Then

htoday = True

Alertot(c)= Mid$(inputdata, 5, 5)

alertoda(c)= Mid$(inputdata, 11, 8)

alertoms(c)= Mid$(inputdata, 19)

c = c + 1

End If

End Select

Loop

alc = c

If Option2.Value = True Then

Datetxt.Enabled = False

End If End Sub Private Sub Option4_Click()

If Option2.Value = True Then

Text1.Enabled = True

Text2.Enabled = False

Else

Text1.Enabled = False

Text2.Enabled = True

End If

If Option2.Value = True Then

Datetxt.Enabled = True

End If End Sub Private Sub Timetxt_Click()

Timetxt.SelStart = 0

Timetxt.SelLength = 5 End Sub

参考文献

[1] 刘彩虹，沈大林.Visual Basic程序设计案例教程[M].中国铁道出版社，2008，2 [2] 龚沛曾,陆慰民,杨志强.Vsual Basic 程序设计教程[M].高等教育出版社，2003，6 [3] 丁爱萍.Visual Basic程序设计（第3版）[M].电子工业出版社，2008，1 [4] 卢毅.Vsual Basic实例教程[M].科学出版社出版,2007,2 [5] 赵欣胜,亢慧娟,刘晟宏.Vsual Basic 经典范例50讲[M].科学出版社出版,2007,5