form1.designer.vb

一个关于日历和时间的控件 vB的源代码 可能会有用

        Me.GroupBox1.Size = New System.Drawing.Size(231, 232)
        Me.GroupBox1.TabIndex = 0
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "&Date"
        '
        'AxCalendar1
        '
        Me.AxCalendar1.Enabled = True
        Me.AxCalendar1.Location = New System.Drawing.Point(6, 48)
        Me.AxCalendar1.Name = "AxCalendar1"
        Me.AxCalendar1.OcxState = CType(resources.GetObject("AxCalendar1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxCalendar1.Size = New System.Drawing.Size(214, 178)
        Me.AxCalendar1.TabIndex = 2
        '
        'NumericUpDown1
        '
        Me.NumericUpDown1.Location = New System.Drawing.Point(158, 21)
        Me.NumericUpDown1.Maximum = New Decimal(New Integer() {2099, 0, 0, 0})
        Me.NumericUpDown1.Minimum = New Decimal(New Integer() {1980, 0, 0, 0})
        Me.NumericUpDown1.Name = "NumericUpDown1"
        Me.NumericUpDown1.Size = New System.Drawing.Size(62, 21)
        Me.NumericUpDown1.TabIndex = 1
        Me.NumericUpDown1.Value = New Decimal(New Integer() {1980, 0, 0, 0})
        '
        'ComboBox1
        '
        Me.ComboBox1.FormattingEnabled = True
        Me.ComboBox1.Items.AddRange(New Object() {"一月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "十一月", "十二月"})
        Me.ComboBox1.Location = New System.Drawing.Point(6, 20)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(135, 20)
        Me.ComboBox1.TabIndex = 0
        '
        'TabPage2
        '
        Me.TabPage2.BackgroundImage = CType(resources.GetObject("TabPage2.BackgroundImage"), System.Drawing.Image)
        Me.TabPage2.Controls.Add(Me.ComboBox4)
        Me.TabPage2.Controls.Add(Me.CheckBox1)
        Me.TabPage2.Controls.Add(Me.PictureBox2)
        Me.TabPage2.Controls.Add(Me.ComboBox3)
        Me.TabPage2.Controls.Add(Me.ComboBox2)
        Me.TabPage2.Location = New System.Drawing.Point(4, 24)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
        Me.TabPage2.Size = New System.Drawing.Size(521, 300)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Time Zone"
        Me.TabPage2.UseVisualStyleBackColor = True
        '
        'ComboBox4
        '
        Me.ComboBox4.FormattingEnabled = True
        Me.ComboBox4.Items.AddRange(New Object() {" Eniwetok, Kwajalein ", " Midway Island, Samoa ", " Hawaii ", " Alaska ", " Pacific Time (US and Canada); Tijuana ", " Arizona ", " Mountain Time (US and Canada) ", "Central Time (US and Canada) ", " Mexico City, Tegucigalpa ", " Saskatchewan ", " Bogota, Lima ", " Eastern Time (US and Canada) ", " Indiana (East) ", " Atlantic Time (Canada) ", " Caracas, La Paz ", " Newfoundland ", " Brasilia ", "Buenos Aires, Georgetown ", " Mid-Atlantic ", " Azores, Cape Verde Is. ", " Greenwich Mean Time; Dublin, Edinburgh, London, Lisbon ", " Monrovia, Casablanca ", " Berlin, Stockhold, Rome, Bern, Brussels, Vienna ", " Paris, Madrid, Amsterdam ", " Prage, Warsaw, Budapest ", "Athens, Helsinki, Istanbul ", " Cairo ", " Eastern Europe ", "Harare, Pretoria ", " Israel ", " Baghdad, Kuwait, Nairobi, Riyadh ", "Moscow, St. Petersburgh, Kazan, Volgograd ", " Tehran ", " Abu Dhabi, Muscat, Tbilisi ", " Kabul ", " Islamabad, Karachi, Ekaterinburg, Tashkent ", " Bombay, Calcutta, Madras, New Delhi, Colombo ", " Almaty, Dhaka ", " Bangkok, Jakarta, Hanoi ", " Beijing, Chongqing, Urumqi ", " Hong Kong, Perth, Singapore, Taipei ", " Tokyo, Osaka, Sapporo, Seoul, Yakutsk ", " Adelaide ", " Darwin ", " Brisbane, Melbourne, Sydney ", " Guam, Port Moresby, Vladivostok ", " Hobart ", " Magadan, Solomon Is., New Caledonia ", " Fiji, Kamchatka, Marshall Is. ", " Wellington, Auckland "})
        Me.ComboBox4.Location = New System.Drawing.Point(67, 18)
        Me.ComboBox4.Name = "ComboBox4"
        Me.ComboBox4.Size = New System.Drawing.Size(371, 20)
        Me.ComboBox4.TabIndex = 4
        Me.ComboBox4.Visible = False
        '
        'CheckBox1
        '
        Me.CheckBox1.AutoSize = True
        Me.CheckBox1.Location = New System.Drawing.Point(46, 260)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(367, 16)
        Me.CheckBox1.TabIndex = 3
        Me.CheckBox1.Text = "Automatically adjust the day light saving changes"
        Me.CheckBox1.UseVisualStyleBackColor = True
        '
        'PictureBox2
        '
        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
        Me.PictureBox2.Location = New System.Drawing.Point(67, 71)
        Me.PictureBox2.Name = "PictureBox2"
        Me.PictureBox2.Size = New System.Drawing.Size(374, 167)
        Me.PictureBox2.TabIndex = 2
        Me.PictureBox2.TabStop = False
        '
        'ComboBox3
        '
        Me.ComboBox3.FormattingEnabled = True
        Me.ComboBox3.Items.AddRange(New Object() {"-720 ", "-660 ", "-600 ", "-540 ", "-480 ", "-420 ", "-420 ", "-360 ", "-360 ", "-360 ", "-300 ", "-300 ", "-300 ", "-240 ", "-240 ", "-210 ", "-180 ", "-180 ", "-120 ", "-060 ", "+000 ", "+000 ", "+060 ", "+060 ", "+060 ", "+120 ", "+120 ", "+120 ", "+120 ", "+120 ", "+180 ", "+180 ", "+180 ", "+240 ", "+270 ", "+300 ", "+330 ", "+360 ", "+420 ", "+480 ", "+480 ", "+540 ", "+570 ", "+570 ", "+600 ", "+600 ", "+600 ", "+660 ", "+720 ", "+720 "})
        Me.ComboBox3.Location = New System.Drawing.Point(67, 18)
        Me.ComboBox3.Name = "ComboBox3"
        Me.ComboBox3.Size = New System.Drawing.Size(374, 20)
        Me.ComboBox3.TabIndex = 1
        Me.ComboBox3.Visible = False
        '
        'ComboBox2
        '
        Me.ComboBox2.FormattingEnabled = True
        Me.ComboBox2.Items.AddRange(New Object() {"(GMT -12:00) Eniwetok, Kwajalein ", "(GMT -11:00) Midway Island, Samoa ", "(GMT -10:00) Hawaii ", "(GMT -09:00) Alaska ", "(GMT -08:00) Pacific Time (US and Canada); Tijuana ", "(GMT -07:00) Arizona ", "(GMT -07:00) Mountain Time (US and Canada) ", "(GMT -06:00) Central Time (US and Canada) ", "(GMT -06:00) Mexico City, Tegucigalpa ", "(GMT -06:00) Saskatchewan ", "(GMT -05:00) Bogota, Lima ", "(GMT -05:00) Eastern Time (US and Canada) ", "(GMT -05:00) Indiana (East) ", "(GMT -04:00) Atlantic Time (Canada) ", "(GMT -04:00) Caracas, La Paz ", "(GMT -03:30) Newfoundland ", "(GMT -03:00) Brasilia ", "(GMT -03:00) Buenos Aires, Georgetown ", "(GMT -02:00) Mid-Atlantic ", "(GMT -01:00) Azores, Cape Verde Is. ", "(GMT +00:00) Greenwich Mean Time; Dublin, Edinburgh, London, Lisbon ", "(GMT +00:00) Monrovia, Casablanca ", "(GMT +01:00) Berlin, Stockhold, Rome, Bern, Brussels, Vienna ", "(GMT +01:00) Paris, Madrid, Amsterdam ", "(GMT +01:00) Prage, Warsaw, Budapest ", "(GMT +02:00) Athens, Helsinki, Istanbul ", "(GMT +02:00) Cairo ", "(GMT +02:00) Eastern Europe ", "(GMT +02:00) Harare, Pretoria ", "(GMT +02:00) Israel ", "(GMT +03:00) Baghdad, Kuwait, Nairobi, Riyadh ", "(GMT +03:00) Moscow, St. Petersburgh, Kazan, Volgograd ", "(GMT +03:00) Tehran ", "(GMT +04:00) Abu Dhabi, Muscat, Tbilisi ", "(GMT +04:30) Kabul ", "(GMT +05:00) Islamabad, Karachi, Ekaterinburg, Tashkent ", "(GMT +05:30) Bombay, Calcutta, Madras, New Delhi, Colombo ", "(GMT +06:00) Almaty, Dhaka ", "(GMT +07:00) Bangkok, Jakarta, Hanoi ", "(GMT +08:00) Beijing, Chongqing, Urumqi ", "(GMT +08:00) Hong Kong, Perth, Singapore, Taipei ", "(GMT +09:00) Tokyo, Osaka, Sapporo, Seoul, Yakutsk ", "(GMT +09:30) Adelaide ", "(GMT +09:30) Darwin ", "(GMT +10:00) Brisbane, Melbourne, Sydney ", "(GMT +10:00) Guam, Port Moresby, Vladivostok ", "(GMT +10:00) Hobart ", "(GMT +11:00) Magadan, Solomon Is., New Caledonia ", "(GMT +12:00) Fiji, Kamchatka, Marshall Is. ", "(GMT +12:00) Wellington, Auckland "})
        Me.ComboBox2.Location = New System.Drawing.Point(67, 18)
        Me.ComboBox2.Name = "ComboBox2"
        Me.ComboBox2.Size = New System.Drawing.Size(374, 20)
        Me.ComboBox2.TabIndex = 0
        '
        'Button1
        '
        Me.Button1.BackColor = System.Drawing.Color.Lavender
        Me.Button1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button1.Location = New System.Drawing.Point(329, 374)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(55, 25)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "&OK"
        Me.Button1.UseVisualStyleBackColor = False
        '
        'Button2
        '
        Me.Button2.BackColor = System.Drawing.Color.Lavender
        Me.Button2.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button2.Location = New System.Drawing.Point(404, 374)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(55, 25)
        Me.Button2.TabIndex = 2
        Me.Button2.Text = "&Cancel"
        Me.Button2.UseVisualStyleBackColor = False
        '
        'Button3
        '
        Me.Button3.BackColor = System.Drawing.Color.Lavender
        Me.Button3.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button3.Location = New System.Drawing.Point(475, 374)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(55, 25)
        Me.Button3.TabIndex = 3
        Me.Button3.Text = "&Apply"
        Me.Button3.UseVisualStyleBackColor = False
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(599, 412)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TabControl1)
        Me.Name = "Form1"
        Me.Text = "Date/Time Properties"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage1.PerformLayout()
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
        CType(Me.NumericUpDown4, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.NumericUpDown3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.AxCalendar1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage2.PerformLayout()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents NumericUpDown2 As System.Windows.Forms.NumericUpDown
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
    Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents NumericUpDown4 As System.Windows.Forms.NumericUpDown
    Friend WithEvents NumericUpDown3 As System.Windows.Forms.NumericUpDown
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents AxCalendar1 As AxMSACAL.AxCalendar
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
    Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
    Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox

End Class