登录
首页 » VB源码 » VB源码演示如何制作倒计时程序

VB源码演示如何制作倒计时程序

于 2022-03-13 发布 文件大小:2.31 kB
0 63
下载积分: 2 下载次数: 1

代码说明:

VB编写的倒计时程序,测试时,请输入目标日期与时间,格式如演示截图中所示,然后按下“倒计时”按钮,即可开始倒计时了,会显示出具体剩余的天数和时、分、秒。程序主要基于CDate函数和DateDiff函数来实现,主要代码如下:   Private Sub Timer1_Timer()    On Error GoTo H    Timer1.Interval = 1000    Dim i As Date    i = CDate(Text1)    Label1.Caption = "距离" & Text1 & "还剩" & DateDiff("d", Now, i) & "天" & CLng(DateDiff("h", Now, i)) Mod 24 & "小时" & CLng(DateDiff("n", Now, i)) Mod 60 & "分" & CLng(DateDiff("s", Now, i)) Mod 60 & " 秒"    Exit Sub   H:    MsgBox "请输入正确的时间"    Timer1.Enabled = False   End Sub

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB6 FileExists判断文件是否存在
    VB6 判断文件是否存在,使用VB内置的函数FileExists来实现,可以说实现方法简单,直接调用函数(文件路径)即可,至于返回的结果,这里有两种形式,一种是以MsgBox的方式弹出窗口告之,另一种是返回布尔值,True或False,然后再进行相关处理。关于FileExists用法,有以下代码供参考:   Dim B As Boolean   B = FileExists(Me.Txt_Path.Text)   If B Then    MsgBox "文件存在"   Else    MsgBox "文件不存在"   End If   以上代码段封装在按钮事件中,用户单击按钮后,执行本段代码,判断指定的文件是否存在。
    2022-07-04 15:21:27下载
    积分:1
  • VB6.0 改变扩展名保护Access数据库
    VB6.0 改变扩展名保护Access数据库,也就是让用户修改Access数据库的扩展名,之前可能禁止改变,但本代码介绍的方法允许修改扩展名,以下是本例子核心功能部分的完整源码,仅供参考:   Private Sub Form_Load()    Dim cnnstr As String    cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db_wjgl.bak;Persist Security Info=False"    cn.Open cnnstr    Adodc1.ConnectionString = cnnstr    Set Picture1.DataSource = Adodc1    Picture1.DataField = "文件"   End Sub   Private Sub Form_Unload(Cancel As Integer)    cn.Close   End Sub
    2022-05-16 07:33:58下载
    积分:1
  • VB为Lable标签着色(填充不同颜色)
    VB6.0为Lable标签着色(填充不同颜色),把标签分别填充上不同的颜色,在显示一些统计数据的时候,可清淅的显示出各种数据类型,提升用户浏览体验。   为Lable着色是非常简单的,你可以从本例子中学会用法。
    2022-02-05 08:55:36下载
    积分:1
  • VB.NET 多线程TCP端口扫描工具
    VB.NET 多线程TCP端口扫描工具,使用前请输入要扫描的网段IP和端口,本程序可将扫描到的开放端口数量显示在窗口中,扫描时应用了多线程技术,扫描时显示当前线程数,适时显示扫描进度和扫描时间,以毫秒计时,扫描速度提升了不少。   注:本程序仅能扫描开放的端口,被禁止和未开放的端口不能被扫描到。
    2022-05-25 05:47:04下载
    积分:1
  • VB 6.0 动态改变图表的比例
    VB 6.0 动态改变图表的比例,改变图表的视图比例,默认是0.7,点击确认按钮后,图表会变大显示,减小数字,图表会紧接着变小.看了下代码,里面就是一行代码搞定:   MSChart1.RowLabel = ""   不过这个功能还是很实用的,当视图内容比较多的时候,图表显示的比较小,用这个功能可将图表放大显示.   MSChart主要用来生成一些简单的图表,包括饼图、曲线图、柱状图等,较复杂的图表就需要借助三方控件了。
    2022-03-07 00:11:30下载
    积分:1
  • VB 网络连通检测
    VB 网络连通检测,单击命令按钮可进行网络连通检测,判断是本机否连接到Internet。操作很简单,将连通测试检测结果输出到屏幕上。
    2023-08-30 14:45:02下载
    积分:1
  • VB.NET 超市管理系统
    VB.NET 超市管理系统,数据库基于SQLSERVER,使Label透明显示,进货管理、售货管理、价格管理、进货查询、售货查询、增加用户管理等。这个示范代码主要是演示VB与SQLSERVER数据库之间的各种操作,大部分是一些数据的基础应用。测试前请先附加好数据库,否则会弹出出错提示。
    2022-01-26 05:34:54下载
    积分:1
  • vb IsDate判断字符串是否为日期或时间
    vb 判断字符串是否为日期或时间,在输入框输入任意字符串类型,程序将会判断出该字符串是否是时间字符串,这个判断方法VB员自带有函数,使用IsDate即可实现,下面是使用IsDate的简单用法示例:   If IsDate(Text1) = True Then    Text2.Text = "是日期"   Else    Text2.Text = "不是日期"   End If   您也可以在本页下载完整的源码实例。
    2022-08-18 06:21:54下载
    积分:1
  • 支持代理的VB FTP服务器程序
    一个FTP程序的例子,不过这个是支持代理服务器的,用VB编写FTP的例子,支持代理服务器。这个程序同样来自国外VB网站,代码中很多注释,不过是英文的。这个FTP程序的样子似乎还需要完善,和当下流行的、CuteFTP、FlashFXP都有很大的区别,甚至说有点简陋,不过这个代码主查面向学习的,英文好的可下载本源码学习。
    2022-03-06 02:53:34下载
    积分:1
  • VB.NET 小型家庭理财系统
    VB.NET 小型家庭理财记帐系统源代码,功能模块:文件、导入导出、操作、查询、删除、修改、关于软件、经手人、项目、收支类型等的管理。本程序感觉重点在数据库部分的设计 ,里面对帐务明细的查询功能,对于熟悉VB.NET与数据库的各种操作十分有帮助。本财务管理系统的数据库为SQLSERVER,为了确保本程序正常运行,请在运行前附加Database数据库到你的SQLSERVER中,并连接好数据库字符串,需要修改Module1.vb文件。
    2022-04-10 12:53:23下载
    积分:1
  • 696518资源总数
  • 104353会员总数
  • 66今日下载