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

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? ex5.frm

?? Time Zone Editor This assignment is to create an interface for entering a time zone.
?? FRM
字號: 
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   7515
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10830
   LinkTopic       =   "Form1"
   ScaleHeight     =   7515
   ScaleWidth      =   10830
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command3 
      Caption         =   "Apply"
      Height          =   375
      Left            =   6000
      TabIndex        =   4
      Top             =   5160
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   4800
      TabIndex        =   3
      Top             =   5160
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "OK"
      Height          =   375
      Left            =   3600
      TabIndex        =   2
      Top             =   5160
      Width           =   855
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Automatically adjust clock for &daylight saving changes"
      Height          =   495
      Left            =   2640
      TabIndex        =   1
      Top             =   4080
      Width           =   4935
   End
   Begin VB.ComboBox Combo1 
      Height          =   315
      Left            =   2640
      TabIndex        =   0
      Text            =   "Combo1"
      Top             =   360
      Width           =   5415
   End
   Begin VB.Image Image1 
      Height          =   2760
      Left            =   0
      Picture         =   "ex5.frx":0000
      Top             =   960
      Width           =   10800
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim hasSavingsTime(50)
Dim fort 'false or true about the check1
Dim td 'time distance
Dim rc 'return carriage


Private Sub Combo1_Click()
    If hasSavingsTime(Combo1.ListIndex) = False Then
    Check1.Enabled = True
    fort = "false"
    Else: Check1.Enabled = False
    End If
End Sub

Private Sub Command1_Click()
    If Check1.Value = 0 Then
    fort = "false"
    Else: fort = "true"
    End If

    Select Case Combo1.ListIndex
    Case 0:  td = "-720 "
    Case 1:  td = "-660"
    Case 2:  td = "-600"
    Case 3:  td = "-540"
    Case 4:  td = "-480"
    Case 5:  td = "-420"
    Case 6:  td = "-420"
    Case 7:  td = "-360"
    Case 8:  td = "-360"
    Case 9:  td = "-360"
    Case 10:  td = "-300"
    Case 11:  td = "-300"
    Case 12:  td = "-300"
    Case 13:  td = "-240"
    Case 14:  td = "-240"
    Case 15:  td = "-210"
    Case 16:  td = "-180"
    Case 17:  td = "-180"
    Case 18:  td = "-120"
    Case 19:  td = "-060"
    Case 20:  td = "+000"
    Case 21:  td = "+000"
    Case 22:  td = "+060"
    Case 23:  td = "+060"
    Case 24:  td = "+060"
    Case 25:  td = "+120"
    Case 26:  td = "+120"
    Case 27:  td = "+120"
    Case 28:  td = "+120"
    Case 29:  td = "+120"
    Case 30:  td = "+180"
    Case 31:  td = "+180"
    Case 32:  td = "+180"
    Case 33:  td = "+240"
    Case 34:  td = "+270"
    Case 35:  td = "+300"
    Case 36:  td = "+330"
    Case 37:  td = "+360"
    Case 38:  td = "+420"
    Case 39:  td = "+480"
    Case 40:  td = "+480"
    Case 41:  td = "+540"
    Case 42:  td = "+570"
    Case 43:  td = "+570"
    Case 44:  td = "+600"
    Case 45:  td = "+600"
    Case 46:  td = "+600"
    Case 47:  td = "+660"
    Case 48:  td = "+720"
    Case 49:  td = "+720"
    End Select
    Unload Form1
 MsgBox "Time set to..." & rc & rc & "=======================================" & rc & Combo1.Text & rc & "Offset from GMT= " & td & " minutes" & rc & "Auto daylight =" & fort & rc & "======================================="
    
End Sub

Private Sub Command2_Click()
Unload Form1
End Sub

Private Sub Command3_Click()
If Check1.Value = 0 Then
    fort = "false"
    Else: fort = "true"
    End If
Select Case Combo1.ListIndex
    Case 0:  td = "-720 "
    Case 1:  td = "-660"
    Case 2:  td = "-600"
    Case 3:  td = "-540"
    Case 4:  td = "-480"
    Case 5:  td = "-420"
    Case 6:  td = "-420"
    Case 7:  td = "-360"
    Case 8:  td = "-360"
    Case 9:  td = "-360"
    Case 10:  td = "-300"
    Case 11:  td = "-300"
    Case 12:  td = "-300"
    Case 13:  td = "-240"
    Case 14:  td = "-240"
    Case 15:  td = "-210"
    Case 16:  td = "-180"
    Case 17:  td = "-180"
    Case 18:  td = "-120"
    Case 19:  td = "-060"
    Case 20:  td = "+000"
    Case 21:  td = "+000"
    Case 22:  td = "+060"
    Case 23:  td = "+060"
    Case 24:  td = "+060"
    Case 25:  td = "+120"
    Case 26:  td = "+120"
    Case 27:  td = "+120"
    Case 28:  td = "+120"
    Case 29:  td = "+120"
    Case 30:  td = "+180"
    Case 31:  td = "+180"
    Case 32:  td = "+180"
    Case 33:  td = "+240"
    Case 34:  td = "+270"
    Case 35:  td = "+300"
    Case 36:  td = "+330"
    Case 37:  td = "+360"
    Case 38:  td = "+420"
    Case 39:  td = "+480"
    Case 40:  td = "+480"
    Case 41:  td = "+540"
    Case 42:  td = "+570"
    Case 43:  td = "+570"
    Case 44:  td = "+600"
    Case 45:  td = "+600"
    Case 46:  td = "+600"
    Case 47:  td = "+660"
    Case 48:  td = "+720"
    Case 49:  td = "+720"
    End Select
 MsgBox "Time set to..." & rc & rc & "=======================================" & rc & Combo1.Text & rc & "Offset from GMT= " & td & " minutes" & rc & "Auto daylight =" & fort & rc & "======================================="
    
End Sub

Private Sub Form_Load()


rc = Chr$(13) + Chr$(10)
With Combo1
.AddItem "(GMT -12:00) Eniwetok, Kwajalein"
.AddItem "(GMT -11:00) Midway Island, Samoa"
.AddItem "(GMT -10:00) Hawaii"
.AddItem "(GMT -09:00) Alaska"
.AddItem "(GMT -08:00) Pacific Time (US and Canada); Tijuana"
.AddItem "(GMT -07:00) Arizona"
.AddItem "(GMT -07:00) Mountain Time (US and Canada)"
.AddItem "(GMT -06:00) Central Time (US and Canada)"
.AddItem "(GMT -06:00) Mexico City, Tegucigalpa"
.AddItem "(GMT -06:00) Saskatchewan"
.AddItem "(GMT -05:00) Bogota, Lima"
.AddItem "(GMT -05:00) Eastern Time (US and Canada)"
.AddItem "(GMT -05:00) Indiana (East)"
.AddItem "(GMT -04:00) Atlantic Time (Canada)"
.AddItem "(GMT -04:00) Caracas, La Paz"
.AddItem "(GMT -03:30) Newfoundland"
.AddItem "(GMT -03:00) Brasilia"
.AddItem "(GMT -03:00) Buenos Aires, Georgetown"
.AddItem "(GMT -02:00) Mid-Atlantic"
.AddItem "(GMT -01:00) Azores, Cape Verde Is."
.AddItem "(GMT +00:00) Greenwich Mean Time; Dublin, Edinburgh, London, Lisbon"
.AddItem "(GMT +00:00) Monrovia, Casablanca"
.AddItem "(GMT +01:00) Berlin, Stockhold, Rome, Bern, Brussels, Vienna"
.AddItem "(GMT +01:00) Paris, Madrid, Amsterdam"
.AddItem "(GMT +01:00) Prage, Warsaw, Budapest"
.AddItem "(GMT +02:00) Athens, Helsinki, Istanbul"
.AddItem "(GMT +02:00) Cairo"
.AddItem "(GMT +02:00) Eastern Europe"
.AddItem "(GMT +02:00) Harare, Pretoria"
.AddItem "(GMT +02:00) Israel"
.AddItem "(GMT +03:00) Baghdad, Kuwait, Nairobi, Riyadh"
.AddItem "(GMT +03:00) Moscow, St. Petersburgh, Kazan, Volgograd"
.AddItem "(GMT +03:00) Tehran"
.AddItem "(GMT +04:00) Abu Dhabi, Muscat, Tbilisi"
.AddItem "(GMT +04:30) Kabul"
.AddItem "(GMT +05:00) Islamabad, Karachi, Ekaterinburg, Tashkent"
.AddItem "(GMT +05:30) Bombay, Calcutta, Madras, New Delhi, Colombo"
.AddItem "(GMT +06:00) Almaty, Dhaka"
.AddItem "(GMT +07:00) Bangkok, Jakarta, Hanoi"
.AddItem "(GMT +08:00) Beijing, Chongqing, Urumqi"
.AddItem "(GMT +08:00) Hong Kong, Perth, Singapore, Taipei"
.AddItem "(GMT +09:00) Tokyo, Osaka, Sapporo, Seoul, Yakutsk"
.AddItem "(GMT +09:30) Adelaide"
.AddItem "(GMT +09:30) Darwin"
.AddItem "(GMT +10:00) Brisbane, Melbourne, Sydney"
.AddItem "(GMT +10:00) Guam, Port Moresby, Vladivostok"
.AddItem "(GMT +10:00) Hobart"
.AddItem "(GMT +11:00) Magadan, Solomon Is., New Caledonia"
.AddItem "(GMT +12:00) Fiji, Kamchatka, Marshall Is."
.AddItem "(GMT +12:00) Wellington, Auckland"
.ListIndex = 39
End With

For i = 0 To 49
        hasSavingsTime(i) = True
    Next i
    hasSavingsTime(0) = False  ' (GMT -12:00) Eniwetok, Kwajalein
    hasSavingsTime(1) = False  ' (GMT -11:00) Midway Island, Samoa
    hasSavingsTime(2) = False  ' (GMT -10:00) Hawaii
    hasSavingsTime(5) = False  ' (GMT -07:00) Arizona
    hasSavingsTime(8) = False  ' (GMT -06:00) Mexico City, Tegucigalpa
    hasSavingsTime(9) = False  ' (GMT -06:00) Saskatchewan
    hasSavingsTime(10) = False ' (GMT -05:00) Bogota, Lima
    hasSavingsTime(12) = False ' (GMT -05:00) Indiana (East)
    hasSavingsTime(14) = False ' (GMT -04:00) Caracas, La Paz
    hasSavingsTime(17) = False ' (GMT -03:00) Buenos Aires, Georgetown
    hasSavingsTime(21) = False ' (GMT +00:00) Monrovia, Casablanca
    hasSavingsTime(28) = False ' (GMT +02:00) Harare, Pretoria
    hasSavingsTime(30) = False ' (GMT +03:00) Baghdad, Kuwait, Nairobi, Riyadh
    hasSavingsTime(33) = False ' (GMT +04:00) Abu Dhabi, Muscat, Tbilisi
    hasSavingsTime(34) = False ' (GMT +04:30) Kabul
    hasSavingsTime(35) = False ' (GMT +05:00) Islamabad, Karachi, Ekaterinburg, Tashkent
    hasSavingsTime(36) = False ' (GMT +05:30) Bombay, Calcutta, Madras, New Delhi, Colombo
    hasSavingsTime(37) = False ' (GMT +06:00) Almaty, Dhaka
    hasSavingsTime(38) = False ' (GMT +07:00) Bangkok, Jakarta, Hanoi
    hasSavingsTime(40) = False ' (GMT +08:00) Hong Kong, Perth, Singapore, Taipei
    hasSavingsTime(41) = False ' (GMT +09:00) Tokyo, Osaka, Sapporo, Seoul, Yakutsk
    hasSavingsTime(43) = False ' (GMT +09:30) Darwin
    hasSavingsTime(45) = False ' (GMT +10:00) Guam, Port Moresby, Vladivostok
    hasSavingsTime(47) = False ' (GMT +11:00) Magadan, Solomon Is., New Caledonia
    hasSavingsTime(48) = False ' (GMT +12:00) Fiji, Kamchatka, Marshall Is.
   



'''Select Case Combo1.ListIndex
'''Case 0: MsgBox "Time set to" + rc + "(GMT -12:00) Eniwetok, Kwajalein"
'''Case 1: MsgBox "(GMT -11:00) Midway Island, Samoa"
'''Case 2: MsgBox "(GMT -10:00) Hawaii"
'''Case 3: MsgBox "(GMT -09:00) Alaska"
'''Case 4: MsgBox "(GMT -08:00) Pacific Time (US and Canada); Tijuana"
'''Case 5: MsgBox "(GMT -07:00) Arizona"
'''Case 6: MsgBox "(GMT -07:00) Mountain Time (US and Canada)"
'''Case 7: MsgBox "(GMT -06:00) Central Time (US and Canada)"
'''Case 8: MsgBox "(GMT -06:00) Mexico City, Tegucigalpa"
'''Case 9: MsgBox "(GMT -06:00) Saskatchewan"
'''Case 10: MsgBox "(GMT -05:00) Bogota, Lima"
'''Case 11: MsgBox "(GMT -05:00) Eastern Time (US and Canada)"
'''Case 12: MsgBox "(GMT -05:00) Indiana (East)"
'''Case 13: MsgBox "(GMT -04:00) Atlantic Time (Canada)"
'''Case 14: MsgBox "(GMT -04:00) Caracas, La Paz"
'''Case 15: MsgBox "(GMT -03:30) Newfoundland"
'''Case 16: MsgBox "(GMT -03:00) Brasilia"
'''Case 17: MsgBox "(GMT -03:00) Buenos Aires, Georgetown"
'''Case 18: MsgBox "(GMT -02:00) Mid-Atlantic"
'''Case 19: MsgBox "(GMT -01:00) Azores, Cape Verde Is."
'''Case 20: MsgBox "(GMT +00:00) Greenwich Mean Time; Dublin, Edinburgh, London, Lisbon"
'''Case 21: MsgBox "(GMT +00:00) Monrovia, Casablanca"
'''Case 22: MsgBox "(GMT +01:00) Berlin, Stockhold, Rome, Bern, Brussels, Vienna"
'''Case 23: MsgBox "(GMT +01:00) Paris, Madrid, Amsterdam"
'''Case 24: MsgBox "(GMT +01:00) Prage, Warsaw, Budapest"
'''Case 25: MsgBox "(GMT +02:00) Athens, Helsinki, Istanbul"
'''Case 26: MsgBox "(GMT +02:00) Cairo"
'''Case 27: MsgBox "(GMT +02:00) Eastern Europe"
'''Case 28: MsgBox "(GMT +02:00) Harare, Pretoria"
'''Case 29: MsgBox "(GMT +02:00) Israel"
'''Case 30: MsgBox "(GMT +03:00) Baghdad, Kuwait, Nairobi, Riyadh"
'''Case 31: MsgBox "(GMT +03:00) Moscow, St. Petersburgh, Kazan, Volgograd"
'''Case 32: MsgBox "(GMT +03:00) Tehran"
'''Case 33: MsgBox "(GMT +04:00) Abu Dhabi, Muscat, Tbilisi"
'''Case 34: MsgBox "(GMT +04:30) Kabul"
'''Case 35: MsgBox "(GMT +05:00) Islamabad, Karachi, Ekaterinburg, Tashkent"
'''Case 36: MsgBox "(GMT +05:30) Bombay, Calcutta, Madras, New Delhi, Colombo"
'''Case 37: MsgBox "(GMT +06:00) Almaty, Dhaka"
'''Case 38: MsgBox "(GMT +07:00) Bangkok, Jakarta, Hanoi"
'''Case 29: MsgBox "(GMT +08:00) Beijing, Chongqing, Urumqi"
'''Case 40: MsgBox "(GMT +08:00) Hong Kong, Perth, Singapore, Taipei"
'''Case 41: MsgBox "(GMT +09:00) Tokyo, Osaka, Sapporo, Seoul, Yakutsk"
'''Case 42: MsgBox "(GMT +09:30) Adelaide"
'''Case 43: MsgBox "(GMT +09:30) Darwin"
'''Case 44: MsgBox "(GMT +10:00) Brisbane, Melbourne, Sydney"
'''Case 45: MsgBox "(GMT +10:00) Guam, Port Moresby, Vladivostok"
'''Case 46: MsgBox "(GMT +10:00) Hobart"
'''Case 47: MsgBox "(GMT +11:00) Magadan, Solomon Is., New Caledonia"
'''Case 48: MsgBox "(GMT +12:00) Fiji, Kamchatka, Marshall Is."
'''Case 49: MsgBox "(GMT +12:00) Wellington, Auckland"
'''End Select

End Sub

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
国产福利电影一区二区三区| 精品国产一区久久| 欧美日韩精品系列| 久久亚洲一级片| 亚洲品质自拍视频| 国产馆精品极品| 欧美一区二区视频在线观看| 中文字幕亚洲区| 国产麻豆精品视频| 欧美日韩第一区日日骚| 国产精品激情偷乱一区二区∴| 蜜桃av一区二区在线观看| 99re这里都是精品| 久久精品一区二区| 蜜臀av国产精品久久久久| 色噜噜狠狠色综合欧洲selulu| 久久青草欧美一区二区三区| 日韩在线一区二区三区| 色猫猫国产区一区二在线视频| 国产丝袜在线精品| 国产一区二区三区免费观看| 欧美区在线观看| 一区二区三区美女| 91蜜桃在线观看| 亚洲欧美综合色| 成人app在线观看| 国产欧美日本一区视频| 免费成人美女在线观看.| 欧美日韩国产综合视频在线观看| 亚洲乱码一区二区三区在线观看| 成人app在线观看| 中文字幕日本乱码精品影院| 国产精品69毛片高清亚洲| 久久色.com| 国产精品一区二区不卡| 精品成人私密视频| 国产伦精品一区二区三区视频青涩| 欧美zozo另类异族| 国产一区视频导航| 国产网红主播福利一区二区| 国内国产精品久久| 久久精品欧美一区二区三区麻豆| 99久久99久久综合| 中文字幕一区二区在线播放| 国产91高潮流白浆在线麻豆 | 欧美精品一区二区在线观看| 久久av资源网| 国产午夜亚洲精品不卡| 成人听书哪个软件好| 国产精品国产自产拍高清av| 91丨porny丨中文| 性做久久久久久免费观看| 91精品国产一区二区三区蜜臀| 美女免费视频一区二区| 26uuu亚洲综合色| 91在线观看视频| 丝袜亚洲精品中文字幕一区| 精品成a人在线观看| av色综合久久天堂av综合| 亚洲图片欧美色图| 精品美女一区二区三区| 粉嫩av一区二区三区| 亚洲一区二区三区四区在线| 欧美区在线观看| 成人妖精视频yjsp地址| 亚洲成人在线观看视频| 欧美精品一区二区三区视频| 不卡一卡二卡三乱码免费网站| 亚洲一区二区美女| 久久久久久免费网| 色www精品视频在线观看| 久久精品av麻豆的观看方式| 国产精品国产三级国产普通话三级 | 欧美日韩国产一区| 国产一二精品视频| 亚洲观看高清完整版在线观看| 亚洲精品一区二区精华| 欧洲一区二区三区免费视频| 精品一区二区国语对白| 亚洲综合小说图片| 国产日韩欧美激情| 欧美精品在线视频| 91丝袜国产在线播放| 玖玖九九国产精品| 一区二区三区91| 欧美高清一级片在线观看| 在线播放亚洲一区| av在线播放成人| 北条麻妃一区二区三区| 日韩国产欧美三级| 亚洲激情一二三区| 中文幕一区二区三区久久蜜桃| 欧美久久久久久久久| 色悠悠亚洲一区二区| 国产精品一级在线| 久久精品噜噜噜成人av农村| 一区二区三区在线免费观看| 国产精品系列在线| 精品噜噜噜噜久久久久久久久试看| 91美女片黄在线观看| 丁香婷婷综合网| 国产高清在线精品| 国产精品1区二区.| 国产在线精品免费av| 日韩高清在线电影| 午夜激情久久久| 亚洲成人av免费| 亚洲国产sm捆绑调教视频 | 亚洲亚洲人成综合网络| 亚洲美女视频在线| 日韩一区在线免费观看| 国产精品久久久久久久岛一牛影视| 久久久久久久网| 久久久久久亚洲综合| 久久伊人蜜桃av一区二区| 精品福利av导航| 久久日一线二线三线suv| 日韩欧美一区二区视频| 7777精品伊人久久久大香线蕉经典版下载| 一本色道久久综合亚洲91| 99国产精品视频免费观看| av一区二区久久| 色综合天天综合给合国产| 99精品视频一区| 91精品办公室少妇高潮对白| 一本大道综合伊人精品热热| 欧美午夜理伦三级在线观看| 精品视频123区在线观看| 欧美日韩在线播放| 国产丝袜美腿一区二区三区| 久久夜色精品一区| 国产精品久久二区二区| 亚洲精品中文字幕在线观看| 亚洲一二三专区| 日本三级韩国三级欧美三级| 久久国产精品色婷婷| 激情五月激情综合网| 国产成人精品一区二区三区网站观看| 国产传媒欧美日韩成人| 99精品黄色片免费大全| 欧美日韩在线不卡| 精品av久久707| 亚洲女同女同女同女同女同69| 一区二区三区不卡在线观看| 麻豆一区二区三| 99精品国产视频| 91精品婷婷国产综合久久| 久久久久免费观看| 亚洲乱码国产乱码精品精的特点| 亚洲国产成人高清精品| 久久精品国产一区二区三| 成人av网址在线观看| 欧美高清视频不卡网| 久久精品网站免费观看| 亚洲一区二区三区激情| 国模一区二区三区白浆| 91豆麻精品91久久久久久| 精品免费视频一区二区| 一区二区三区资源| 国产精品自在在线| 欧美精品vⅰdeose4hd| 中文字幕乱码久久午夜不卡| 午夜精品123| 91性感美女视频| 久久综合色婷婷| 午夜精品福利一区二区三区蜜桃| 国产黄色成人av| 欧美一级精品在线| 一区二区三区四区视频精品免费| 久久狠狠亚洲综合| 欧美四级电影网| 亚洲欧洲精品成人久久奇米网| 日日摸夜夜添夜夜添国产精品 | 精品一区二区三区不卡| 色综合久久88色综合天天| 久久综合久久鬼色| 成人福利视频在线看| 欧美日韩国产高清一区二区| 中文字幕色av一区二区三区| 国产一区二区久久| 日韩欧美中文一区| 视频一区视频二区中文| 在线国产亚洲欧美| **性色生活片久久毛片| 国产成人aaa| 精品国产网站在线观看| 蜜桃视频一区二区三区| 欧美日韩精品是欧美日韩精品| 亚洲欧美日韩人成在线播放| 成人激情视频网站| 久久久久久久久蜜桃| 韩国在线一区二区| 欧美v日韩v国产v| 美腿丝袜亚洲色图| 欧美一级爆毛片| 美女视频免费一区| 91精品国产色综合久久 | 亚洲婷婷国产精品电影人久久| 国产成人亚洲精品狼色在线| 久久久久久久久免费|