📄 ex5.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 + -