倒计时特效代码（倒计时器代码）

今天给各位分享倒计时特效代码的知识，其中也会对倒计时器代码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、JS 5秒倒计时的代码怎么写？时间要实时显示在屏幕上的。
• 2、每天倒计时代码
• 3、网页倒计时代码，精确到秒
• 4、VB倒计时代码

JS 5秒倒计时的代码怎么写？时间要实时显示在屏幕上的。

!DOCTYPE html

html lang="en"

head

meta http-equiv="Content-Type" content="text/html; charset=utf-8" /

titlejs实现倒计时60秒的简单代码(推荐)/title

script type="text/javascript" src="js/jquery.js"/script

/head

body

input type="button" id="btn" value="免费获取验证码" onclick="settime(this)" /

script type="text/javascript"

var countdown=60;

function settime(val) {

if (countdown == 0) {

val.removeAttribute("disabled");

val.value="免费获取验证码";

countdown = 5;

} else {

val.setAttribute("disabled", true);

val.value="重新发送(" + countdown + ")";

countdown--;

setTimeout(function() {

settime(val)

},1000)

}

}

/script

/body

/html

JavaScript简介

JavaScript 是脚本语言

JavaScript 是一种轻量级的编程语言。

JavaScript 是可插入 HTML 页面的编程代码。

JavaScript 插入 HTML 页面后，可由所有的现代浏览器执行。

JavaScript 课外书

如果 JavaScript 教程学习完毕，并且需要更深入地学习这门语言，《JavaScript 高级教程》绝对是您最好的选择。本教程从 JavaScript 的历史开始讲起，直到当前它对 XML 和 Web 服务的支持。

将学习到如何扩展该语言，以使它适应特殊的需求。

还将学到如何使用 JavaScript 创建无缝的客户机 - 服务器通信。

每天倒计时代码

我来给你个VB的代码，两个方案

1.主要以一个窗口显示

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Dim ho, mi, se As Integer

Dim cho, cmi, cse

ho = Hour(Now)

mi = Minute(Now)

se = Second(Now)

cse = 60 - se

If mi  30 Then

cmi = 89 - mi

Else

cmi = 29 - mi

End If

If ho = 16 And mi  30 Then

cho = 23 - (ho - 16)

ElseIf ho  16 And mi = 30 Then

cho = 24 - (ho - 16)

ElseIf ho = 16 And mi = 30 Then

cho = 16 - ho

ElseIf ho  16 And mi  30 Then

cho = 15 - ho

End If

Label1.Caption = "倒计时:"  cho  "小时"  cmi  "分钟"  cse  "秒"

End Sub

2.第二个方案，可直接在桌面显示数字（双击数字自动退出），可直接作为小工具使用

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function CreateRectRgnIndirect Lib "gdi32" (lpRect As RECT) As Long

Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long

Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function GetRgnBox Lib "gdi32" (ByVal hRgn As Long, lpRect As RECT) As Long

Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Const RGN_AND = 1

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_NCLBUTTONDOWN = HA1

Private Const HTCAPTION = 2

Private Sub Form_Load()

Dim ffont As String

Dim MyRegion, MyRegion2 As Long

Dim MyRect As RECT

App.TaskVisible = False

ffont = "倒计时数据载入中。。。。。。"

Me.Font.Name = "华康少女文字W5(P)"

Me.FontBold = True

Me.Font.Size = 20

BeginPath hdc

TextOut hdc, 30, 30, ffont, 23

EndPath hdc

MyRegion = PathToRegion(hdc)

GetRgnBox MyRegion, MyRect

MyRegion2 = CreateRectRgnIndirect(MyRect)

CombineRgn MyRegion2, MyRegion2, MyRegion, RGN_AND

DeleteObject MyRegion

SetWindowRgn hwnd, MyRegion2, 1

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

ReleaseCapture

SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0

End Sub

Private Sub Form_DblClick()

Call Sleep(1000)

End

End Sub

Private Sub Timer1_Timer()

Dim ho, mi, se As Integer

Dim cho, cmi, cse

Dim ffont As String

Dim MyRegion, MyRegion2 As Long

Dim MyRect As RECT

ho = Hour(Now)

mi = Minute(Now)

se = Second(Now)

cse = 60 - se

If mi = 30 Then

cmi = 89 - mi

Else

cmi = 29 - mi

End If

If ho = 16 And mi = 30 Then

cho = 23 - (ho - 16)

ElseIf ho  16 And mi  30 Then

cho = 24 - (ho - 16)

ElseIf ho = 16 And mi  30 Then

cho = 16 - ho

ElseIf ho  16 And mi = 30 Then

cho = 15 - ho

End If

App.TaskVisible = False

ffont = "倒计时:"  cho  "小时"  cmi  "分钟"  cse  "秒"

Me.Font.Name = "黑体"

Me.FontBold = True

Me.Font.Size = 18

BeginPath hdc

TextOut hdc, 30, 30, ffont, 23

EndPath hdc

MyRegion = PathToRegion(hdc)

GetRgnBox MyRegion, MyRect

MyRegion2 = CreateRectRgnIndirect(MyRect)

CombineRgn MyRegion2, MyRegion2, MyRegion, RGN_AND

DeleteObject MyRegion

SetWindowRgn hwnd, MyRegion2, 1

End Sub

网页倒计时代码，精确到秒

脚本说明:

第一步：把如下代码加入body区域中

SCRIPT LANGUAGE="JavaScript"

!-- Begin

function getTime() {

now = new Date();

y2k = new Date("Jan 1 2005 14:00:00");

days = (y2k - now) / 1000 / 60 / 60 / 24;

daysRound = Math.floor(days);

hours = (y2k - now) / 1000 / 60 / 60 - (24 * daysRound);

hoursRound = Math.floor(hours);

minutes = (y2k - now) / 1000 /60 - (24 * 60 * daysRound) - (60 * hoursRound);

minutesRound = Math.floor(minutes);

seconds = (y2k - now) / 1000 - (24 * 60 * 60 * daysRound) - (60 * 60 * hoursRound) - (60 * minutesRound);

secondsRound = Math.round(seconds);

sec = (secondsRound == 1) ? " second." : " seconds.";

min = (minutesRound == 1) ? " minute" : " minutes, ";

hr = (hoursRound == 1) ? " hour" : " hours, ";

dy = (daysRound == 1) ? " day" : " days, "

document.timeForm.input1.value = "剩余时间: " + daysRound + dy + hoursRound + hr + minutesRound + min + secondsRound + sec;

newtime = window.setTimeout("getTime();", 1000);

}

// End --

/script

距离: Jan 1, 2005 2:00:00 p.m.

form name=timeForm

input type=text name=input1 size=70 border-style="none" style="border-bottom: 0px solid; border-left: 0px solid;border-right: 0px solid;border-top: 0px solid;font:12px arial, helvetica,sans-serif"

/form

第二步：把body中的内容改为：

body bgcolor="#fef4d9" onLoad="getTime()"

希望可以帮到你哦

VB倒计时代码

dim

s

as

long

private

sub

cmdset_click()

timer1.enabled

=

false

s

=

inputbox("请输入倒计时秒数：",

"设置倒计时秒数",

5)

label1

=

"倒计时：

"

s

"秒"

cmdstop.tag

=

s

cmdstart.tag

=

cmdstart.caption

=

"启动时间"

cmdstart.enabled

=

s

cmdstop.enabled

=

s

end

sub

private

sub

cmdstart_click()

if

cmdstart.tag

=

then

timer1.enabled

=

true

cmdstart.caption

=

"暂停时间"

cmdstart.tag

=

1

else

timer1.enabled

=

false

cmdstart.caption

=

"启动时间"

cmdstart.tag

=

end

if

end

sub

private

sub

cmdstop_click()

cmdstart.tag

=

cmdstart.caption

=

"启动时间"

timer1.enabled

=

false

s

=

cmdstop.tag

label1

=

"倒计时：

"

s

"秒"

end

sub

private

sub

timer1_timer()

s

=

s

-

1

label1

=

"倒计时：

"

s

"秒"

if

s

=

then

timer1.enabled

=

false

cmdstart.caption

=

"启动时间"

cmdstart.tabindex

=

end

if

cmdstart.enabled

=

s

cmdstop.enabled

=

s

end

sub

关于倒计时特效代码和倒计时器代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。