用vb程序设计一个电子时钟

label字体什么的自己改吧，主要功能实现了

Private Sub Form_Load()

Timer1Enabled = True

Timer1Interval = 1000

Timer2Enabled = False

Timer2Interval = 500

End Sub

Private Sub Timer1_Timer()

Label1Caption = Time

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then

If Not IsDate(Text1Text) Then

MsgBox "时间格式错误，正确应为HH:MM:SS"

Else

Text1Locked = True

Timer2Enabled = True

End If

End If

End Sub

Private Sub Timer2_Timer()

Dim lTime As Integer

Static LblColor As Boolean

lTime = DateDiff("s", Time, Text1Text)

If lTime <= 0 Then

If LblColor = True Then

Label1BackColor = vbRed

LblColor = False

Else

Label1BackColor = vbWhite

LblColor = True

End If

End If

End Sub

你好:

这个问题比较简单,只需要一个timer控件,一个textbox 一个label,一个按钮!

首先textbox作为设置时间用的,输入你想定的时刻,注意格式 00:00:00之类的,要看你取的系统时间格式

点按钮,让时间显示在label里,

然后让timer一直监视系统的时间,并和label的时间作比较, 当两时间吻合的时候,就处理你想做的事情(打开一个程序,放音乐,或者关机之类的),这样 一个简单的闹钟旧出来了^_^

呵呵 主你成功,有什么问题直接问!

VB使用 Timer 控件：

Timer

控件响应时间的流逝。它们独立于用户，编程后可用来在一定的时间间隔执行 *** 作。此控件的一个一般用处是检查系统时钟，判断是否该执行某项任务。对于其它后台处理，

Timer 控件也非常有用。

每个 Timer 控件都有 Interval

属性，指定定时器事件之间的毫秒数。除非禁止此属性，否则定时器在大致相等的时间间隔不断接受事件（称作定时器事件会更贴切）。

在为 Timer 控件编程时应考虑对 Interval 属性的几条限制：

如果应用程序或其它应用程序正在进行对系统要求很高的 *** 作─ 例如长循环、高强度的计算或者正在访问驱动器、网络或端口─ 则应用程序定时器事件的间隔可能比

Interval 属性指定的间隔长。

间隔的取值可在 0 到 64,767 之间（包括这两个数值），这意味着即使是最长的间隔也不比一分钟长多少（大约 648 秒）。

间隔并不一定十分准确。要保证间隔准确，应在需要时才让定时器检查系统时钟，而不在内部追踪积聚的时间。

系统每秒生成 18 个时钟信号─ 所以即使用毫秒衡量 Interval 属性，间隔实际的精确度不会超过 18 分之一秒。

每个 Timer 控件必须要与窗体关联。因此要创建定时器应用程序就必须至少创建一个窗体（如果不需要窗体完成其它 *** 作就不必使窗体可见）。

Timer控件报警应用程序代码和制作：

在窗体上放置 Timer 控件

在窗体上放置 Timer 控件的方法与绘制其它控件的方法相同：单击工具箱中的定时器按钮并将它拖动到窗体上。

Timer 控件只在设计时出现在窗体上，所以可以选定这个控件，查看属性，编写事件过程。运行时，定时器不可见，所以其位置和大小无关紧要。

初始化 Timer 控件

Timer 控件有两个关键属性。

Option Explicit

    Dim AlarmTime

    Const conMinimized = 1

Private Sub Form_Click()

    AlarmTime = InputBox("输入启动闹钟的时间", "VB 闹钟", AlarmTime)

    If AlarmTime = "" Then Exit Sub

    If Not IsDate(AlarmTime) Then

        MsgBox "您输入的时间无效。"

    Else                                    ' 从 InputBox 返回的字符串使有效时间,

        AlarmTime = CDate(AlarmTime)        ' 将它作为一个日期/时间值存储在 AlarmTime 中。

    End If

End Sub

Private Sub Form_Load()

    AlarmTime = ""

End Sub

Private Sub Form_Resize()

    If WindowState = conMinimized Then      ' 如果窗体被最小化, 在标题处显示时间。

        SetCaptionTime

    Else

        Caption = "闹钟"

    End If

End Sub

Private Sub SetCaptionTime()

    Caption = Format(Time, "Medium Time")   ' 使用中等时间格式显示时间。

End Sub

Private Sub Timer1_Timer()

    Static AlarmSounded As Integer

    If lblTimeCaption <> CStr(Time) Then

        ' 当前秒数与显示秒数不同。

        If Time >= AlarmTime And Not AlarmSounded Then

            Beep

            MsgBox "启动闹钟在 " & Time

            AlarmSounded = True

        ElseIf Time < AlarmTime Then

            AlarmSounded = False

        End If

        If WindowState = conMinimized Then

            ' 如果处于最小化状态, 每分钟都需更新窗体标题。

            If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime

        Else

            ' 否则每秒钟对标签的标题进行更新。

            lblTimeCaption = Time

        End If

    End If

在部件中添加WindowsMediaPlayer控件，在窗口中插入一个WindowsMediaPlayer，command，timer，label控件

Private Sub Command1_Click() '点击后脑中停止响铃

WindowsMediaPlayer1Enabled = False

End Sub

Private Sub Form_Load()

Timer1Interval = 1000

Label1Caption = Time

WindowsMediaPlayer1Visible = False

WindowsMediaPlayer1Enabled = False

WindowsMediaPlayer1URL = ""'填入路径名如"D:\music\NewStoriesmp3"

End Sub

Private Sub Timer1_Timer()

Label1Caption = Time

If Label1Caption = "9:43:30" Then '设置闹钟时间

WindowsMediaPlayer1Enabled = True

End If

End Sub

两个text控件，一个按钮，一个timer控件 ，代码如下： Private Sub Command1_Click()

Timer1Enabled = True

Timer1Interval = 10

End Sub

Private Sub Timer1_Timer()

If Timer = Text1Text Then

MsgBox Text2Text, vbInformation, "提醒："

End If

End Sub

以上就是关于用vb程序设计一个电子时钟全部的内容，包括:用vb程序设计一个电子时钟、VB我要写个闹钟 怎么写程序、VB如何使用time控件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！