[下载2]一个闹钟例子 - VB6论坛

楼主

问题点数：0 回复次数：7

[下载2]一个闹钟例子

一个闹钟例子，最小化后，也可显示时间，运用的最简单的语句。
简单是简单了些，不过是为初学者提供的
[attach]15[/attach]

搜索更多相关主题的帖子: 例子　闹钟　下载　语句　最小化　

第 2 楼

得分:0

有错哦

第 3 楼

得分:0

也太简单了吧？哈哈哈。。。

天津网站建设 http://www./

第 4 楼

得分:0

这里可是VB教室哦，要帮助新手上路的

怎能没简单的呢

不知那位说的错在哪里啊

这可是MSDN中的例子，而且我运行过的

努力努力再努力，败了也不后悔

第 5 楼

得分:0

最小化后就显示：

实时错误‘13’：

类型不匹配

WHY？？？

第 6 楼

得分:0

不会吧，你调试一下，看看是哪句出现的问题

努力努力再努力，败了也不后悔

第 7 楼

得分:0

Private Sub Timer1_Timer() Static AlarmSounded As Integer If lblTime.Caption <> 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 ' 否则每秒钟对标签的标题进行更新。 lblTime.Caption = Time End If End If End Sub

中的“If Minute(CDate(Caption)) <> Minute(Time) Then ”出错

第 8 楼

得分:0

不会吧，我又运行了一遍，没错啊，好象别人运行也对啊，是不是你的VB有问题啊

努力努力再努力，败了也不后悔