vb6.0制作一个小程序 在线等

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

Private Sub Command1_Click()

Sleep 10 1000‘延迟10s

SendKeys "{F4}"’ 按下F4 这个键

End Sub

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()

Image1Stretch = False

Dim url$, M$, N$

M = Text1Text: N = Text2Text

url = ">

Private Sub Command1_Click()

Dim a As Double

a = Val(Text1Text)

Print a & "的平方为：" & a ^ 2

Print a & "的立方为：" & a ^ 3

Print a & "的平方根为：" & Sqr(a)

End Sub

Dim ydsj As Date

Private Sub Form_Load()

ydsj = InputBox("请输入约定时间！格式如括号里：（年号/月号/日子）或者又如括号里：（年号/月号/日子空格小时：分钟：秒数）如下格式：", , "2011/1/1 00:00:00")

Timer1Enabled = True

End Sub

Private Sub Timer1_Timer()

Dim dqnyr As Date

If Now < ydsj Then

sysj = ydsj - Now

syn = Year(ydsj) - Year(Now) - 1

If Year(ydsj) = Year(Now) Then syn = syn + 1 '年

syy = 12 - Month(Now) & "+" & Month(ydsj) - 1 & "=" & 12 - Month(Now) + Month(ydsj) - 1

If Year(ydsj) = Year(Now) Then

syy = Month(ydsj) - Month(Now) - 1

If Month(ydsj) = Month(Now) Then syy = syy + 1

End If

'月

dqnf = Year(Now)

dqyf = Month(Now)

If dqyf = 12 Then

dqyf = 1

dqnf = dqnf + 1

End If

dqnyr = dqnf & "-" & dqyf & "- " & 1

syr = Fix(dqnyr - Now) & "+" & Day(ydsj) - 1 & "=" & Fix(dqnyr - Now) + Day(ydsj) - 1

If Year(ydsj) = Year(Now) And Month(ydsj) = Month(Now) Then syr = Fix(dqnyr - Now) - Fix(dqnyr - ydsj) '日

nowh = Format(Now, "hh")

nowm = Format(Now, "nn")

nows = Format(Now, "ss")

now1 = Date + 1

dqsyhms = now1 - Now

nowsyh = Format(dqsyhms, "hh")

nowsym = Format(dqsyhms, "nn")

nowsys = Format(dqsyhms, "ss")

ydhms = Format(ydsj, "hh:mm:ss")

ydh = Format(ydsj, "hh")

ydm = Format(ydsj, "nn")

yds = Format(ydsj, "ss")

syh = nowsyh & "+" & ydh & "=" & Val(nowsyh) + Val(ydh)

bzd = Format(ydsj, "yyyy-m-d")

If Format(Now, "yyyy-mm-dd") = Format(ydsj, "yyyy-mm-dd") Then

syh = ydh - nowh

End If

'时

sym = nowsym & "+" & ydm & "=" & Val(nowsym) + Val(ydm)

If Format(Now, "yyyy-mm-dd hh") = Format(ydsj, "yyyy-mm-dd hh") Then

sym = ydm - nowm

End If

'分

sys = nowsys & "+" & yds & "=" & Val(nowsys) + Val(yds)

If Format(Now, "yyyy-mm-dd hh:nn") = Format(ydsj, "yyyy-mm-dd hh:nn") Then

sys = yds - nows

End If

'秒

Label1Caption = "当前时间是：" & Now & " 距 " & ydsj & "还有（" & syn & "）个年头+（" & syy & "）个月份+（" & syr & "）个日子+（" & syh & "）小时+（" & sym & "）分钟+（" & sys & "）秒；合计＝： （" & sysj & "）天！"

ElseIf Now = ydsj Then

Label1FontSize = 28

Label1ForeColor = &HFF&

Label1Caption = ydsj & "到了！祝您在以后的日子里万事如意，身体安康！88！88！"

Timer1Interval = 8888

ElseIf Now > ydsj Then

Label1FontSize = 28

Label1ForeColor = &HFF0000

Label1Caption = ydsj & "已经过了！祝您万事如意，身体安康！"

End If

End Sub

以上就是关于vb6.0制作一个小程序 在线等全部的内容，包括:vb6.0制作一个小程序 在线等、vb6.0 想用VB6.0做一个小程序,输入图片地址。点确认，打开一张网络图片.自动放大三倍，要完整的代码、VB6.0编个小程序~怎么编等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！