亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關(guān)于我們
? 蟲蟲下載站

?? form2.frm

?? 桌面時(shí)鐘小程序源碼
?? FRM
?? 第 1 頁 / 共 2 頁
字號: 

If t1a > 24 Then
t1a = t1a - 24
str1(2) = Trim(Str(t1a))
Else
str1(2) = Trim(Str(t1a))
End If
time1 = str1(2) & ":" & str1(1) & ":" & str1(0)


End If
If Check1.Value = 1 Then
If Option1(0).Value = True Then
If Int(Combo2.Text) - Int(Text1.Text) < 0 Then
time2 = Trim(Str(Int(Combo1.Text) - 1)) & ":" & Trim(Str(60 + Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Combo3.Text)
Else
time2 = Trim(Combo1.Text) & ":" & Trim(Str(Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Combo3.Text)
End If
Else
If Int(Trim(Str(60 + Int(Minute(Time())) + Int(Combo2.Text) - Int(Text1.Text)))) - Int(Text1.Text) < 0 Then
time2 = Trim(Str(Int(Hour(Time())) + Int(Combo1.Text) - 1)) & ":" & Trim(Str(60 + Int(Minute(Time())) + Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Str(Int(Second(Time())) + Int(Combo3.Text)))
Else
time2 = Trim(Str(Int(Hour(Time())) + Int(Combo1.Text))) & ":" & Trim(Str(Int(Minute(Time())) + Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Str(Int(Second(Time())) + Int(Combo3.Text)))
End If
End If
End If

If Option1(0).Value = True Then
ta = Int(Hour(Time()))
tb = Int(Minute(Time()))
tc = Int(Second(Time()))
ta = Int(Combo1.Text) - ta
tb = Int(Combo2.Text) - tb
tc = Int(Combo3.Text) - tc
If tc < 0 Then
tc = tc + 60
tb = tb - 1
End If
If tb < 0 Then
tb = tb + 60
ta = ta - 1
End If
If ta < 0 Then
ta = ta + 24
End If
bktime = Int(ta) * 3600 + Int(tb) * 60 + Int(tc)
Else
bktime = Int(Combo1.Text) * 3600 + Int(Combo2.Text) * 60 + Int(Combo3.Text)
End If
opt = 1
Timer1.Enabled = True
Timer2.Enabled = True
If Check2.Value = 1 Then

Form2.Option1(0).Enabled = False
Form2.Option1(1).Enabled = False
Form2.Command1.Enabled = False
Form2.Command2.Enabled = False
Form2.Command3.Enabled = False
Form2.Command4.Enabled = False
End If
Form2.Caption = "系統(tǒng)在" & time1 & "重啟"

End Sub

Private Sub Command3_Click()
If Option1(0).Value = True Then
t1a = Int(Combo1.Text)
t1b = Int(Combo2.Text)
t1c = Int(Combo3.Text)
If t1c < 10 Then
str1(0) = "0" & Trim(Str(t1c))
Else
str1(0) = Trim(Str(t1c))
End If
If t1b < 10 Then
str1(1) = "0" & Trim(Str(t1b))
Else
str1(1) = Trim(Str(t1b))
End If

str1(2) = Trim(Str(t1a))

time1 = str1(2) & ":" & str1(1) & ":" & str1(0)
Else
t1a = Int(Combo1.Text)
t1b = Int(Combo2.Text)
t1c = Int(Combo3.Text)
t1a = t1a + Int(Hour(Time()))

t1b = t1b + Int(Minute(Time()))
t1c = t1c + Int(Second(Time()))
If t1c > 60 Then
t1c = t1c - 60
t1b = t1b + 1
End If
If t1b > 60 Then
t1b = t1b - 60
t1a = t1a + 1
End If
If t1a > 24 Then
t1a = t1a - 24
End If
If t1c < 10 Then
str1(0) = Trim("0" & Str(t1c))
Else
str1(0) = Trim(Str(t1c))
End If
If t1b < 10 Then
str1(1) = Trim("0" & Str(t1b))
Else
str1(1) = Trim(Str(t1b))
End If

If t1a > 24 Then
t1a = t1a - 24
str1(2) = Trim(Str(t1a))
Else
str1(2) = Trim(Str(t1a))
End If
time1 = str1(2) & ":" & str1(1) & ":" & str1(0)


End If
If Check1.Value = 1 Then
If Option1(0).Value = True Then
If Int(Combo2.Text) - Int(Text1.Text) < 0 Then
time2 = Trim(Str(Int(Combo1.Text) - 1)) & ":" & Trim(Str(60 + Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Combo3.Text)
Else
time2 = Trim(Combo1.Text) & ":" & Trim(Str(Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Combo3.Text)
End If
Else
If Int(Trim(Str(60 + Int(Minute(Time())) + Int(Combo2.Text) - Int(Text1.Text)))) - Int(Text1.Text) < 0 Then
time2 = Trim(Str(Int(Hour(Time())) + Int(Combo1.Text) - 1)) & ":" & Trim(Str(60 + Int(Minute(Time())) + Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Str(Int(Second(Time())) + Int(Combo3.Text)))
Else
time2 = Trim(Str(Int(Hour(Time())) + Int(Combo1.Text))) & ":" & Trim(Str(Int(Minute(Time())) + Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Str(Int(Second(Time())) + Int(Combo3.Text)))
End If
End If
End If

If Option1(0).Value = True Then
ta = Int(Hour(Time()))
tb = Int(Minute(Time()))
tc = Int(Second(Time()))
ta = Int(Combo1.Text) - ta
tb = Int(Combo2.Text) - tb
tc = Int(Combo3.Text) - tc
If tc < 0 Then
tc = tc + 60
tb = tb - 1
End If
If tb < 0 Then
tb = tb + 60
ta = ta - 1
End If
If ta < 0 Then
ta = ta + 24
End If
bktime = Int(ta) * 3600 + Int(tb) * 60 + Int(tc)
Else
bktime = Int(Combo1.Text) * 3600 + Int(Combo2.Text) * 60 + Int(Combo3.Text)
End If
opt = 3
Timer1.Enabled = True
Timer2.Enabled = True
If Check2.Value = 1 Then
Form2.Option1(0).Enabled = False
Form2.Option1(1).Enabled = False
Form2.Command1.Enabled = False
Form2.Command2.Enabled = False
Form2.Command3.Enabled = False
Form2.Command4.Enabled = False
End If
Form2.Caption = "系統(tǒng)在" & time1 & "強(qiáng)行關(guān)閉"
End Sub

Private Sub Command4_Click()
If Option1(0).Value = True Then
t1a = Int(Combo1.Text)
t1b = Int(Combo2.Text)
t1c = Int(Combo3.Text)
If t1c < 10 Then
str1(0) = "0" & Trim(Str(t1c))
Else
str1(0) = Trim(Str(t1c))
End If
If t1b < 10 Then
str1(1) = "0" & Trim(Str(t1b))
Else
str1(1) = Trim(Str(t1b))
End If

str1(2) = Trim(Str(t1a))

time1 = str1(2) & ":" & str1(1) & ":" & str1(0)
Else
t1a = Int(Combo1.Text)
t1b = Int(Combo2.Text)
t1c = Int(Combo3.Text)
t1a = t1a + Int(Hour(Time()))

t1b = t1b + Int(Minute(Time()))
t1c = t1c + Int(Second(Time()))
If t1c > 60 Then
t1c = t1c - 60
t1b = t1b + 1
End If
If t1b > 60 Then
t1b = t1b - 60
t1a = t1a + 1
End If
If t1a > 24 Then
t1a = t1a - 24
End If
If t1c < 10 Then
str1(0) = Trim("0" & Str(t1c))
Else
str1(0) = Trim(Str(t1c))
End If
If t1b < 10 Then
str1(1) = Trim("0" & Str(t1b))
Else
str1(1) = Trim(Str(t1b))
End If

If t1a > 24 Then
t1a = t1a - 24
str1(2) = Trim(Str(t1a))
Else
str1(2) = Trim(Str(t1a))
End If
time1 = str1(2) & ":" & str1(1) & ":" & str1(0)


End If
If Check1.Value = 1 Then
If Option1(0).Value = True Then
If Int(Combo2.Text) - Int(Text1.Text) < 0 Then
time2 = Trim(Str(Int(Combo1.Text) - 1)) & ":" & Trim(Str(60 + Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Combo3.Text)
Else
time2 = Trim(Combo1.Text) & ":" & Trim(Str(Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Combo3.Text)
End If
Else
If Int(Trim(Str(60 + Int(Minute(Time())) + Int(Combo2.Text) - Int(Text1.Text)))) - Int(Text1.Text) < 0 Then
time2 = Trim(Str(Int(Hour(Time())) + Int(Combo1.Text) - 1)) & ":" & Trim(Str(60 + Int(Minute(Time())) + Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Str(Int(Second(Time())) + Int(Combo3.Text)))
Else
time2 = Trim(Str(Int(Hour(Time())) + Int(Combo1.Text))) & ":" & Trim(Str(Int(Minute(Time())) + Int(Combo2.Text) - Int(Text1.Text))) & ":" & Trim(Str(Int(Second(Time())) + Int(Combo3.Text)))
End If
End If
End If

If Option1(0).Value = True Then
ta = Int(Hour(Time()))
tb = Int(Minute(Time()))
tc = Int(Second(Time()))
ta = Int(Combo1.Text) - ta
tb = Int(Combo2.Text) - tb
tc = Int(Combo3.Text) - tc
If tc < 0 Then
tc = tc + 60
tb = tb - 1
End If
If tb < 0 Then
tb = tb + 60
ta = ta - 1
End If
If ta < 0 Then
ta = ta + 24
End If
bktime = Int(ta) * 3600 + Int(tb) * 60 + Int(tc)
Else
bktime = Int(Combo1.Text) * 3600 + Int(Combo2.Text) * 60 + Int(Combo3.Text)
End If
opt = 4
Timer1.Enabled = True
Timer2.Enabled = True

If Check2.Value = 1 Then
Form2.Option1(0).Enabled = False
Form2.Option1(1).Enabled = False
Form2.Command1.Enabled = False
Form2.Command2.Enabled = False
Form2.Command3.Enabled = False
Form2.Command4.Enabled = False
End If
Form2.Caption = "系統(tǒng)在" & time1 & "注銷"
End Sub

Private Sub Command5_Click()
Form2.Hide
End Sub

Private Sub Form_Load()
 MyMenu = GetSystemMenu(Me.hWnd, 0)
 RemoveMenu MyMenu, &HF060, MF_BYCOMMAND
 
Form2.Left = (Screen.Width - 5025) / 2
Form2.Top = (Screen.Height - 2235) / 2

For i = 0 To 23
Form2.Combo1.AddItem i
Next
For i = 0 To 59
Form2.Combo2.AddItem i
Next
For i = 0 To 59
Form2.Combo3.AddItem i
Next
Form2.Combo3.ListIndex = 0
Form2.Combo1.ListIndex = 1
Form2.Combo2.ListIndex = 0


End Sub

Private Sub nonbacktime_Click()
CoolTime.Height = 307
End Sub

Private Sub nonenotify_Click()
Form2.Check1.Value = vbUnchecked
End Sub

Private Sub notyfy_Click()
Form2.Check1.Value = 1
End Sub

Private Sub Option1_Click(Index As Integer)
If Index = 0 Then
Option1(1).Value = False
Option1(0).Value = True
Option1(1).ForeColor = vbBlack
Option1(0).ForeColor = vbRed
Label2.Caption = "點(diǎn)"
Label3.Caption = "分"
Label5.Caption = "秒時(shí)"
Else
Option1(0).Value = False
Option1(1).Value = True
Option1(0).ForeColor = vbBlack
Option1(1).ForeColor = vbRed
Label2.Caption = "小時(shí)"
Label3.Caption = "分鐘"
Label5.Caption = "秒后"
End If
End Sub

Private Sub set_Click()
Form2.Show
End Sub

Private Sub Timer1_Timer()

ntm = Trim(Str(Time()))
If Mid(ntm, 1, 2) = "下午" Or Mid(ntm, 1, 2) = "上午" Then
If (Mid(ntm, 1, 2) = "下午") Then
ntm3 = ntm
ntm2 = Mid(ntm, 4, 2)
ntm = Trim(Str((Int(ntm2) + 12)))
ntm2 = Mid(ntm3, 6)
ntm = ntm & ntm2
Else
ntm = Mid(ntm, 4)
End If
    Text3.Text = time1 & " " & ntm
    If time1 = ntm Then
    Select Case opt
    Case 1:
    lngresult = ExitWindowsEx(EWX_REBOOT, 0)
    End
    Case 2:

    lngresult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
    End
    Case 3:
    lngResubl = ExitWindowsEx(EWX_POWEROFF, 0)
    End
    Case 4:
    lngResubl = ExitWindowsEx(EWX_LOGOFF, 0)
    End
    End Select
    End If
    Else
    Text3.Text = time1 & " " & ntm
    If time1 = ntm Then
    Select Case opt
    Case 1:

    lngresult = ExitWindowsEx(EWX_REBOOT, 0)
    
    End
    Case 2:

    lngresult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
    End
    Case 3:
    lngResubl = ExitWindowsEx(EWX_POWEROFF, 0)
    End
    Case 4:
    lngResubl = ExitWindowsEx(EWX_LOGOFF, 0)
    End
    End Select
    End If
End If


If Form2.Check1.Value = 1 Then
If time2 = Str(Time()) Then
Form3.Label1.Caption = "離關(guān)閉時(shí)間還有" & Text1.Text & "分鐘" & "請保存好數(shù)據(jù)"
Form3.Show
Form3.SetFocus
End If
End If

End Sub

Private Sub Timer2_Timer()
If strpd = Str(Time()) Then
Else
strpd = Trim(Str(Time()))
bktime = bktime - 1
Text2.Text = bktime
CoolTime.Label1.Caption = "還有" & Trim(Str(bktime)) & "秒"
End If
If bktime = 0 Then
    Select Case opt
    Case 1:
     lngresult = ExitWindowsEx(EWX_REBOOT, 0)
    End
    Case 2:
   lngresult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
    End
    Case 3:
   lngResubl = ExitWindowsEx(EWX_POWEROFF, 0)
    End
    Case 4:
    lngResubl = ExitWindowsEx(EWX_LOGOFF, 0)
    End
    End Select

End If
End Sub

?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
日精品一区二区三区| 亚洲一区二区视频在线观看| 色婷婷一区二区三区四区| 日日欢夜夜爽一区| 最近中文字幕一区二区三区| 日韩一级大片在线| 一本色道**综合亚洲精品蜜桃冫| 青青草国产精品97视觉盛宴| 亚洲人一二三区| 久久久久国产精品厨房| 欧洲av在线精品| 成人av在线资源| 久久精品国产99国产| 亚洲午夜久久久久| 欧美韩国日本综合| 日韩一区二区在线观看| 91麻豆精品在线观看| 成人精品在线视频观看| 免费看欧美女人艹b| 亚洲一区二区三区四区在线免费观看 | 成人免费视频网站在线观看| 午夜成人免费电影| 一区二区三区日韩在线观看| |精品福利一区二区三区| 久久久三级国产网站| 日韩欧美国产一区二区在线播放| 欧美综合一区二区| 91在线免费播放| 99在线热播精品免费| 国产传媒一区在线| 国产一区二区三区精品视频| 久久99精品久久久久久动态图| 三级久久三级久久| 午夜电影网亚洲视频| 亚洲成人午夜电影| 亚洲综合在线第一页| 亚洲精品免费看| 亚洲日本在线视频观看| 亚洲视频一区在线观看| 成人欧美一区二区三区小说| 国产精品动漫网站| 亚洲女同女同女同女同女同69| 国产三级精品三级在线专区| 国产午夜精品久久久久久免费视| 精品乱码亚洲一区二区不卡| 色天天综合色天天久久| 91色婷婷久久久久合中文| av一本久道久久综合久久鬼色| 国产大片一区二区| 成人18视频在线播放| 丁香天五香天堂综合| 国产 欧美在线| 99视频精品在线| 日本久久一区二区| 欧美手机在线视频| 日韩精品中午字幕| 久久久电影一区二区三区| 久久日韩粉嫩一区二区三区| 精品国产乱子伦一区| 日韩免费性生活视频播放| 精品国产sm最大网站| 中文字幕欧美日韩一区| 国产精品动漫网站| 亚洲综合在线第一页| 亚洲欧美另类图片小说| 欧美国产激情一区二区三区蜜月| 久久久久久久网| 亚洲精品写真福利| 日本不卡一二三区黄网| 亚洲一级二级在线| 久久99精品久久久久婷婷| 精品一二三四在线| 99久久99久久精品国产片果冻 | 欧美日韩国产一级片| 91麻豆精品国产综合久久久久久| 91麻豆精品国产91久久久久| 欧美日韩一区视频| www国产成人免费观看视频 深夜成人网| 国产欧美视频一区二区| 国产精品麻豆视频| 无码av免费一区二区三区试看| 一区二区三区日本| 91麻豆精品在线观看| 国产精品69久久久久水密桃| 欧美tk—视频vk| 91热门视频在线观看| 91亚洲精品乱码久久久久久蜜桃 | 在线视频国内一区二区| 欧美视频日韩视频| www国产精品av| 亚洲国产精品久久艾草纯爱| 视频一区中文字幕国产| 国产v日产∨综合v精品视频| 91免费版pro下载短视频| 欧美日本精品一区二区三区| 2017欧美狠狠色| 亚洲国产精品麻豆| 国产成人精品一区二| 欧美色国产精品| 国产精品久久久久毛片软件| 亚洲国产aⅴ成人精品无吗| 国产麻豆精品theporn| 97精品电影院| 久久九九久久九九| 免费在线观看一区| 欧美最猛性xxxxx直播| 欧美一区二区日韩| 亚洲一区二区三区视频在线播放| 日本欧美肥老太交大片| 色综合中文综合网| 久久久亚洲欧洲日产国码αv| 中文字幕一区二区5566日韩| 亚洲国产sm捆绑调教视频| 久久av中文字幕片| 欧美日韩国产片| 亚洲激情中文1区| 成人综合婷婷国产精品久久免费| 欧美日韩你懂的| 亚洲乱码精品一二三四区日韩在线| 亚欧色一区w666天堂| 国产一区二区精品久久99| 欧美日韩一二三| 一区二区三区成人在线视频| 高清免费成人av| 国产欧美精品一区二区色综合 | 欧美极品美女视频| 九一九一国产精品| 中文字幕一区av| 粉嫩13p一区二区三区| 欧美高清hd18日本| 亚洲高清视频的网址| 成人av一区二区三区| 精品日产卡一卡二卡麻豆| 日本视频一区二区三区| 色老综合老女人久久久| 亚洲国产精品激情在线观看| 亚洲成a人v欧美综合天堂| 91浏览器在线视频| 成人免费在线视频观看| 波多野结衣视频一区| 国产亚洲美州欧州综合国| 国产尤物一区二区在线| 久久看人人爽人人| 国产.欧美.日韩| 日韩毛片高清在线播放| 99国产精品99久久久久久| 一区精品在线播放| 一本一道久久a久久精品| 久久精品这里都是精品| 免费观看91视频大全| 欧美日韩国产电影| 秋霞成人午夜伦在线观看| 日韩欧美黄色影院| 国产麻豆一精品一av一免费| 欧美一区二区精品久久911| 美女一区二区视频| 精品国产一区二区三区久久久蜜月| 麻豆精品蜜桃视频网站| 欧美日韩国产中文| 国产美女精品人人做人人爽| 精品乱人伦小说| 成人h动漫精品一区二区| 中文字幕色av一区二区三区| 日本精品免费观看高清观看| 亚洲动漫第一页| 欧美成人一区二区三区| 成人毛片老司机大片| 中文字幕一区二区三区不卡 | 91麻豆6部合集magnet| 亚洲国产成人av网| 久久久另类综合| 91在线国产观看| 日韩国产一二三区| 国产欧美日韩不卡免费| 色偷偷久久一区二区三区| 亚洲成a人v欧美综合天堂| 日韩欧美一二区| 91在线码无精品| 美脚の诱脚舐め脚责91| 国产精品伦一区| 欧美人与性动xxxx| 高清av一区二区| 天堂成人国产精品一区| 精品99999| 欧美亚洲日本一区| 国产精品自产自拍| 亚洲综合色婷婷| 国产午夜亚洲精品理论片色戒| av激情综合网| 精品一区二区三区久久| 国产偷国产偷精品高清尤物| 久久精品999| 尤物视频一区二区| 国产亚洲视频系列| 欧美高清激情brazzers| 99国产精品久久久久久久久久久 | 精品国产第一区二区三区观看体验 | 国产精品一区二区在线播放| 337p日本欧洲亚洲大胆精品| 国产精品69久久久久水密桃|