开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 文章/文档 > 查看源码
Form1.vb
资源名称：exercise6.zip　[点击查看]
上传用户：yauxiao
上传日期：2022-06-30
资源大小：250k
文件大小：10k
源码类别：

文章/文档

开发平台：

Visual Basic

Form1.vb：源码内容
  1. Public Class Form1
  3.     'my best solution
  4.     'author Bekarystanov Talgat
  6.     Dim hasSaveingsTime As Boolean
  7.     Dim setOff As String
  9.     Public Sub New()
  11.         ' This call is required by the Windows Form Designer.
  13.         InitializeComponent()
  15.         xYear.Value = Date.Today.Year
  16.         xMonth.SelectedIndex = Date.Today.Month - 1 'Index started from 0 like array
  18.         xHour.Value = Date.Now.Hour
  19.         xMinute.Value = Date.Now.Minute
  20.         xSecond.Value = Date.Now.Second
  22.         ' Add any initialization after the InitializeComponent() call.
  24.     End Sub
  26.     Private Sub xMonth_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xMonth.SelectedIndexChanged
  27.         MonthCalendar1.SetDate(Convert.ToDateTime(xYear.Value.ToString & "-" & (xMonth.SelectedIndex + 1).ToString & "-" & Date.Today.Day.ToString))
  28.     End Sub
  30.     Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
  31.         xMonth.SelectedIndex = MonthCalendar1.SelectionStart.Month - 1
  32.         xYear.Value = MonthCalendar1.SelectionStart.Year
  33.     End Sub
  35.     Private Sub xYear_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xYear.ValueChanged
  36.         MonthCalendar1.SetDate(Convert.ToDateTime(xYear.Value.ToString & "-" & Today.Month.ToString & "-" & Date.Today.Day.ToString))
  37.     End Sub
  39.     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
  40.         Select Case ComboBox1.SelectedIndex
  41.             Case 0, 1, 2, 5, 8, 9, 10, 12, 14, 17, 21, 28, 30, 33, 34, 35, 36, 37, 38, 40, 41, 43, 45, 47, 48
  42.                 hasSaveingsTime = False
  43.             Case Else
  44.                 hasSaveingsTime = True
  45.         End Select
  46.         Select Case ComboBox1.SelectedIndex
  47.             Case 0
  48.                 setOff = "-720"
  49.             Case 1
  50.                 setOff = "-660"
  51.             Case 2
  52.                 setOff = "-600"
  53.             Case 3
  54.                 setOff = "-540"
  55.             Case 4
  56.                 setOff = "-480"
  57.             Case 5
  58.                 setOff = "-420"
  59.             Case 6
  60.                 setOff = "-420"
  61.             Case 7
  62.                 setOff = "-360"
  63.             Case 8
  64.                 setOff = "-360"
  65.             Case 9
  66.                 setOff = "-360"
  67.             Case 10
  68.                 setOff = "-300"
  69.             Case 11
  70.                 setOff = "-300"
  71.             Case 12
  72.                 setOff = "-300"
  73.             Case 13
  74.                 setOff = "-240"
  75.             Case 14
  76.                 setOff = "-210"
  77.             Case 15
  78.                 setOff = "-180"
  79.             Case 16
  80.                 setOff = "-180"
  81.             Case 17
  82.                 setOff = "-120"
  83.             Case 18
  84.                 setOff = "-060"
  85.             Case 19
  86.                 setOff = "+000"
  87.             Case 20
  88.                 setOff = "+000"
  89.             Case 21
  90.                 setOff = "+060"
  91.             Case 22
  92.                 setOff = "+060"
  93.             Case 23
  94.                 setOff = "+060"
  95.             Case 24
  96.                 setOff = "+120"
  97.             Case 25
  98.                 setOff = "+120"
  99.             Case 26
  100.                 setOff = "+120"
  101.             Case 27
  102.                 setOff = "+120"
  103.             Case 28
  104.                 setOff = "+120"
  105.             Case 29
  106.                 setOff = "+180"
  107.             Case 30
  108.                 setOff = "+180"
  109.             Case 31
  110.                 setOff = "+180"
  111.             Case 32
  112.                 setOff = "+240"
  113.             Case 33
  114.                 setOff = "+270"
  115.             Case 34
  116.                 setOff = "+300"
  117.             Case 35
  118.                 setOff = "+330"
  119.             Case 36
  120.                 setOff = "+360"
  121.             Case 37
  122.                 setOff = "+420"
  123.             Case 38
  124.                 setOff = "+480"
  125.             Case 39
  126.                 setOff = "+480"
  127.             Case 40
  128.                 setOff = "+540"
  129.             Case 41
  130.                 setOff = "+570"
  131.             Case 42
  132.                 setOff = "+570"
  133.             Case 43
  134.                 setOff = "+600"
  135.             Case 44
  136.                 setOff = "+600"
  137.             Case 45
  138.                 setOff = "+600"
  139.             Case 46
  140.                 setOff = "+660"
  141.             Case 47
  142.                 setOff = "+720"
  143.             Case 48
  144.                 setOff = "+720 "
  145.         End Select
  146.         If hasSaveingsTime = False Then
  147.             CheckBox1.Enabled = False
  148.         Else
  149.             CheckBox1.Enabled = True
  150.         End If
  151.         tm.Text = ComboBox1.Text
  152.     End Sub
  154.     Private Sub Applyb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Applyb.Click
  155.         If CheckBox1.Enabled = True And CheckBox1.Checked Then
  156.             MsgBox("Applied..." & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "Year= " & Date.Today.Year & Chr(13) & Chr(10) & "Month= " & Date.Today.Month & Chr(13) & Chr(10) & "Day= " & Today.Day & Chr(13) & Chr(10) & "Hour= " & xHour.Value & Chr(13) & Chr(10) & "Minute= " & xMinute.Value & Chr(13) & Chr(10) & "Second= " & xSecond.Value & Chr(13) & Chr(10) & "Timezone= " & ComboBox1.Text.ToString & Chr(13) & Chr(10) & "Offset from GMT= " & setOff & " minutes" & Chr(13) & Chr(10) & "Auto daylight= " & hasSaveingsTime & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "(Time saved)", MsgBoxStyle.OkOnly, "Exercise 6")
  157.         Else
  158.             MsgBox("Applied..." & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "Year= " & Date.Today.Year & Chr(13) & Chr(10) & "Month= " & Date.Today.Month & Chr(13) & Chr(10) & "Day= " & Today.Day & Chr(13) & Chr(10) & "Hour= " & xHour.Value & Chr(13) & Chr(10) & "Minute= " & xMinute.Value & Chr(13) & Chr(10) & "Second= " & xSecond.Value & Chr(13) & Chr(10) & "Timezone= " & ComboBox1.Text.ToString & Chr(13) & Chr(10) & "Offset from GMT= " & setOff & " minutes" & Chr(13) & Chr(10) & "Auto daylight= " & hasSaveingsTime & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "(Time not saved)", MsgBoxStyle.OkOnly, "Exercise 6")
  159.         End If
  160.     End Sub
  162.     Private Sub okb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles okb.Click
  163.         If CheckBox1.Enabled = True And CheckBox1.Checked Then
  164.             MsgBox("OK..." & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "Year= " & Date.Today.Year & Chr(13) & Chr(10) & "Month= " & Date.Today.Month & Chr(13) & Chr(10) & "Day= " & Today.Day & Chr(13) & Chr(10) & "Hour= " & xHour.Value & Chr(13) & Chr(10) & "Minute= " & xMinute.Value & Chr(13) & Chr(10) & "Second= " & xSecond.Value & Chr(13) & Chr(10) & "Timezone= " & ComboBox1.Text.ToString & Chr(13) & Chr(10) & "Offset from GMT= " & setOff & " minutes" & Chr(13) & Chr(10) & "Auto daylight= " & hasSaveingsTime & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "(Time saved)", MsgBoxStyle.OkOnly, "Exercise 6")
  165.         Else
  166.             MsgBox("OK..." & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "Year= " & Date.Today.Year & Chr(13) & Chr(10) & "Month= " & Date.Today.Month & Chr(13) & Chr(10) & "Day= " & Today.Day & Chr(13) & Chr(10) & "Hour= " & xHour.Value & Chr(13) & Chr(10) & "Minute= " & xMinute.Value & Chr(13) & Chr(10) & "Second= " & xSecond.Value & Chr(13) & Chr(10) & "Timezone= " & ComboBox1.Text.ToString & Chr(13) & Chr(10) & "Offset from GMT= " & setOff & " minutes" & Chr(13) & Chr(10) & "Auto daylight= " & hasSaveingsTime & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "(Time not saved)", MsgBoxStyle.OkOnly, "Exercise 6")
  167.         End If
  168.         Me.Close()
  169.     End Sub
  171.     Private Sub Cancelb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancelb.Click
  172.         If CheckBox1.Enabled = True And CheckBox1.Checked Then
  173.             MsgBox("Cancelled" & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "Year= " & Date.Today.Year & Chr(13) & Chr(10) & "Month= " & Date.Today.Month & Chr(13) & Chr(10) & "Day= " & Today.Day & Chr(13) & Chr(10) & "Hour= " & xHour.Value & Chr(13) & Chr(10) & "Minute= " & xMinute.Value & Chr(13) & Chr(10) & "Second= " & xSecond.Value & Chr(13) & Chr(10) & "Timezone= " & ComboBox1.Text.ToString & Chr(13) & Chr(10) & "Offset from GMT= " & setOff & " minutes" & Chr(13) & Chr(10) & "Auto daylight= " & hasSaveingsTime & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "(Time saved)", MsgBoxStyle.OkOnly, "Exercise 6")
  174.         Else
  175.             MsgBox("Cancelled" & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "Year= " & Date.Today.Year & Chr(13) & Chr(10) & "Month= " & Date.Today.Month & Chr(13) & Chr(10) & "Day= " & Today.Day & Chr(13) & Chr(10) & "Hour= " & xHour.Value & Chr(13) & Chr(10) & "Minute= " & xMinute.Value & Chr(13) & Chr(10) & "Second= " & xSecond.Value & Chr(13) & Chr(10) & "Timezone= " & ComboBox1.Text.ToString & Chr(13) & Chr(10) & "Offset from GMT= " & setOff & " minutes" & Chr(13) & Chr(10) & "Auto daylight= " & hasSaveingsTime & Chr(13) & Chr(10) & "================================" & Chr(13) & Chr(10) & "(Time not saved)", MsgBoxStyle.OkOnly, "Exercise 6")
  176.         End If
  177.         Me.Close()
  178.     End Sub
  180.     Private Sub xam_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xam.CheckedChanged
  181.         If xHour.Value > 12 And xam.Checked = True Then
  182.             xHour.Value = xHour.Value - 12
  183.         ElseIf xHour.Value <= 12 And xHour.Value > 0 And xam.Checked = True Then
  184.             xHour.Value = xHour.Value
  185.         ElseIf xHour.Value = 0 And xam.Checked = True Then
  186.             xHour.Value = 12
  187.         End If
  188.     End Sub
  190.     Private Sub xpm_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xpm.CheckedChanged
  191.         If xHour.Value > 12 And xpm.Checked = True Then
  192.             xHour.Value = xHour.Value
  193.         ElseIf xHour.Value < 12 And xHour.Value > 0 And xpm.Checked = True Then
  194.             xHour.Value = xHour.Value + 12
  195.         ElseIf xHour.Value = 12 And xpm.Checked = True Then
  196.             xHour.Value = 0
  197.         End If
  198.     End Sub
  199. End Class