📄 form1.vb
字号:
Public Class Form1
Dim first As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
first = 0
ComboBox2.SelectedIndex = 39
ComboBox2.SelectAll()
ComboBox2.Focus()
Dim h As Integer
Dim temp As Integer
temp = ComboBox2.Items.IndexOf(ComboBox2.Text)
ComboBox4.SelectedIndex = temp
Label2.Text = ComboBox4.Text
Dim dMyDate As DateTime = DateTime.Now
If (first = 0) Then
first = 1
NumericUpDown1.Text = dMyDate.Year
h = dMyDate.Hour
If (h > 12) Then
NumericUpDown2.Text = h - 12
RadioButton2.Checked = True
Else
NumericUpDown2.Text = h
RadioButton1.Checked = True
End If
End If
NumericUpDown3.Text = dMyDate.Minute
NumericUpDown4.Text = dMyDate.Second
AxCalendar1.Day = dMyDate.Day
Dim MyString As String = dMyDate.ToString(" MMMM")
ComboBox1.Text = MyString
ComboBox1.SelectAll()
ComboBox1.Focus()
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
AxCalendar1.Month = ComboBox1.Items.IndexOf(ComboBox1.Text) + 1
End Sub
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
Dim year As Integer
year = NumericUpDown1.Value
If (first <> 0) Then ' first time,don't do it
AxCalendar1.Year = year
End If
End Sub
Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Dim hasSavingsTime(50) As Boolean
Dim i As Integer
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.
Dim j As Integer
j = ComboBox2.Items.IndexOf(ComboBox2.Text)
If (hasSavingsTime(j) = False) Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hasSavingsTime(50) As Boolean
Dim i As Integer
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.
Dim j, p As Integer
j = ComboBox2.Items.IndexOf(ComboBox2.Text)
p = j
ComboBox3.SelectedIndex = p
Dim n, k(50), m As Integer
n = 0
k(n) = -720
For n = 0 To 48
k(n + 1) = k(n) + 60
Next n
m = ComboBox2.Items.IndexOf(ComboBox2.Text)
MessageBox.Show("Time set to ..." + Chr(13) + "==================================" + Chr(13) + "TimeZone=" + ComboBox2.Text + Chr(13) + "Offset from GMT=" + ComboBox3.Text + " minutes" + Chr(13) + "Auto daylight=" + hasSavingsTime(j).ToString + Chr(13) + "==================================", "Exercise6", MessageBoxButtons.OK)
Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim hasSavingsTime(50) As Boolean
Dim i As Integer
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.
Dim j, p As Integer
j = ComboBox2.Items.IndexOf(ComboBox2.Text)
p = j
ComboBox3.SelectedIndex = p
Dim n, k(50), m As Integer
n = 0
k(n) = -720
For n = 0 To 48
k(n + 1) = k(n) + 60
Next n
m = ComboBox2.Items.IndexOf(ComboBox2.Text)
MessageBox.Show("Time set to ..." + Chr(13) + "==================================" + Chr(13) + "TimeZone=" + ComboBox2.Text + Chr(13) + "Offset from GMT=" + ComboBox3.Text + " minutes" + Chr(13) + "Auto daylight=" + hasSavingsTime(j).ToString + Chr(13) + "==================================", "Exercise6", MessageBoxButtons.OK)
Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim hasSavingsTime(50) As Boolean
Dim i As Integer
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.
Dim j, p As Integer
j = ComboBox2.Items.IndexOf(ComboBox2.Text)
p = j
ComboBox3.SelectedIndex = p
Dim n, k(50), m As Integer
n = 0
k(n) = -720
For n = 0 To 48
k(n + 1) = k(n) + 60
Next n
m = ComboBox2.Items.IndexOf(ComboBox2.Text)
MessageBox.Show("Time set to ..." + Chr(13) + "==================================" + Chr(13) + "TimeZone=" + ComboBox2.Text + Chr(13) + "Offset from GMT=" + ComboBox3.Text + " minutes" + Chr(13) + "Auto daylight=" + hasSavingsTime(j).ToString + Chr(13) + "==================================", "Exercise6", MessageBoxButtons.OK)
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -