VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1045|回复: 7

[原创] 我也弄个日历控件

[复制链接]
发表于 2017-12-15 10:00:58 | 显示全部楼层 |阅读模式
本帖最后由 wNOname 于 2017-12-15 10:02 编辑

不多说直接上图
捕获.JPG
发表于 2017-12-15 16:15:39 | 显示全部楼层
弄成Combox那种啊,什么时候提供一下ocx来试试。
就一张图,我也能画出来哦
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-12-16 15:19:20 | 显示全部楼层
这种怎么样????
rl1.JPG
rl2.JPG
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-12-21 20:47:11 | 显示全部楼层
  1. Public Class g_biaoqian
  2.     Public Property myYLtxt() As String
  3.         Get
  4.             Return Label1.Text
  5.         End Get
  6.         Set(ByVal value As String)
  7.             Label1.Text = value
  8.         End Set
  9.     End Property
  10.     Public Property myNLtxt() As String
  11.         Get
  12.             Return Label2.Text
  13.         End Get
  14.         Set(ByVal value As String)
  15.             Label2.Text = value
  16.         End Set
  17.     End Property
  18.     Public Property myYLforecolor() As Drawing.Color
  19.         Get
  20.             Return Label1.ForeColor
  21.         End Get
  22.         Set(ByVal value As Drawing.Color)
  23.             Label1.ForeColor = value
  24.         End Set
  25.     End Property
  26.     Public Property myNLforecolor() As Drawing.Color
  27.         Get
  28.             Return Label2.ForeColor
  29.         End Get
  30.         Set(ByVal value As Drawing.Color)
  31.             Label2.ForeColor = value
  32.         End Set
  33.     End Property
  34.     Private Sub Label1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.Click, Label2.Click
  35.         If Me.myYLtxt = "" Then
  36.         Else
  37.             MyBase.BackColor = Color.LightBlue
  38.             MyBase.Focus()
  39.         End If
  40.     End Sub
  41.     Public Sub g_biaoqian_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
  42.         If Me.myYLtxt = "" Then
  43.         Else
  44.             MyBase.BackColor = Color.LightBlue
  45.             MyBase.Focus()
  46.         End If
  47.     End Sub
  48.     Private Sub g_biaoqian_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
  49.         MyBase.BackColor = Color.LightBlue
  50.     End Sub
  51.     Private Sub g_biaoqian_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus
  52.         MyBase.BackColor = Color.Transparent
  53.     End Sub

  54. End Class
复制代码
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-12-21 20:48:48 | 显示全部楼层
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class g_wannl
  3.     Inherits System.Windows.Forms.UserControl

  4.     'UserControl overrides dispose to clean up the component list.
  5.     <System.Diagnostics.DebuggerNonUserCode()> _
  6.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  7.         If disposing AndAlso components IsNot Nothing Then
  8.             components.Dispose()
  9.         End If
  10.         MyBase.Dispose(disposing)
  11.     End Sub

  12.     'Required by the Windows Form Designer
  13.     Private components As System.ComponentModel.IContainer

  14.     'NOTE: The following procedure is required by the Windows Form Designer
  15.     'It can be modified using the Windows Form Designer.  
  16.     'Do not modify it using the code editor.
  17.     <System.Diagnostics.DebuggerStepThrough()> _
  18.     Private Sub InitializeComponent()
  19.         Me.Label1 = New System.Windows.Forms.Label()
  20.         Me.Panel1 = New System.Windows.Forms.Panel()
  21.         Me.Label2 = New System.Windows.Forms.Label()
  22.         Me.Panel2 = New System.Windows.Forms.Panel()
  23.         Me.Label8 = New System.Windows.Forms.Label()
  24.         Me.Label7 = New System.Windows.Forms.Label()
  25.         Me.Label6 = New System.Windows.Forms.Label()
  26.         Me.Label5 = New System.Windows.Forms.Label()
  27.         Me.Label4 = New System.Windows.Forms.Label()
  28.         Me.Label3 = New System.Windows.Forms.Label()
  29.         Me.Panel3 = New System.Windows.Forms.Panel()
  30.         Me.ComboBox2 = New System.Windows.Forms.ComboBox()
  31.         Me.ComboBox1 = New System.Windows.Forms.ComboBox()
  32.         Me.Label12 = New System.Windows.Forms.Label()
  33.         Me.Label11 = New System.Windows.Forms.Label()
  34.         Me.Label10 = New System.Windows.Forms.Label()
  35.         Me.Label9 = New System.Windows.Forms.Label()
  36.         Me.Label13 = New System.Windows.Forms.Label()
  37.         Me.Label14 = New System.Windows.Forms.Label()
  38.         Me.Gyp_biaoqian2 = New wnlkj.g_biaoqian()
  39.         Me.Gyp_biaoqian35 = New wnlkj.g_biaoqian()
  40.         Me.Gyp_biaoqian28 = New wnlkj.g_biaoqian()
  41.         Me.Gyp_biaoqian21 = New wnlkj.g_biaoqian()
  42.         Me.Gyp_biaoqian14 = New wnlkj.g_biaoqian()
  43.         Me.Gyp_biaoqian7 = New wnlkj.g_biaoqian()
  44.         Me.Gyp_biaoqian34 = New wnlkj.g_biaoqian()
  45.         Me.Gyp_biaoqian27 = New wnlkj.g_biaoqian()
  46.         Me.Gyp_biaoqian20 = New wnlkj.g_biaoqian()
  47.         Me.Gyp_biaoqian13 = New wnlkj.g_biaoqian()
  48.         Me.Gyp_biaoqian6 = New wnlkj.g_biaoqian()
  49.         Me.Gyp_biaoqian33 = New wnlkj.g_biaoqian()
  50.         Me.Gyp_biaoqian26 = New wnlkj.g_biaoqian()
  51.         Me.Gyp_biaoqian19 = New wnlkj.g_biaoqian()
  52.         Me.Gyp_biaoqian12 = New wnlkj.g_biaoqian()
  53.         Me.Gyp_biaoqian5 = New wnlkj.g_biaoqian()
  54.         Me.Gyp_biaoqian32 = New wnlkj.g_biaoqian()
  55.         Me.Gyp_biaoqian25 = New wnlkj.g_biaoqian()
  56.         Me.Gyp_biaoqian18 = New wnlkj.g_biaoqian()
  57.         Me.Gyp_biaoqian11 = New wnlkj.g_biaoqian()
  58.         Me.Gyp_biaoqian4 = New wnlkj.g_biaoqian()
  59.         Me.Gyp_biaoqian31 = New wnlkj.g_biaoqian()
  60.         Me.Gyp_biaoqian24 = New wnlkj.g_biaoqian()
  61.         Me.Gyp_biaoqian17 = New wnlkj.g_biaoqian()
  62.         Me.Gyp_biaoqian10 = New wnlkj.g_biaoqian()
  63.         Me.Gyp_biaoqian3 = New wnlkj.g_biaoqian()
  64.         Me.Gyp_biaoqian37 = New wnlkj.g_biaoqian()
  65.         Me.Gyp_biaoqian36 = New wnlkj.g_biaoqian()
  66.         Me.Gyp_biaoqian30 = New wnlkj.g_biaoqian()
  67.         Me.Gyp_biaoqian29 = New wnlkj.g_biaoqian()
  68.         Me.Gyp_biaoqian23 = New wnlkj.g_biaoqian()
  69.         Me.Gyp_biaoqian22 = New wnlkj.g_biaoqian()
  70.         Me.Gyp_biaoqian16 = New wnlkj.g_biaoqian()
  71.         Me.Gyp_biaoqian15 = New wnlkj.g_biaoqian()
  72.         Me.Gyp_biaoqian9 = New wnlkj.g_biaoqian()
  73.         Me.Gyp_biaoqian8 = New wnlkj.g_biaoqian()
  74.         Me.Gyp_biaoqian1 = New wnlkj.g_biaoqian()
  75.         Me.Panel1.SuspendLayout()
  76.         Me.Panel2.SuspendLayout()
  77.         Me.Panel3.SuspendLayout()
  78.         Me.SuspendLayout()
  79.         '
  80.         'Label1
  81.         '
  82.         Me.Label1.BackColor = System.Drawing.Color.CornflowerBlue
  83.         Me.Label1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  84.         Me.Label1.ForeColor = System.Drawing.Color.WhiteSmoke
  85.         Me.Label1.Location = New System.Drawing.Point(20, 0)
  86.         Me.Label1.Name = "Label1"
  87.         Me.Label1.Size = New System.Drawing.Size(283, 32)
  88.         Me.Label1.TabIndex = 0
  89.         Me.Label1.Text = "Label1"
  90.         Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  91.         '
  92.         'Panel1
  93.         '
  94.         Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
  95.         Me.Panel1.Controls.Add(Me.Label14)
  96.         Me.Panel1.Controls.Add(Me.Label13)
  97.         Me.Panel1.Controls.Add(Me.Label1)
  98.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
  99.         Me.Panel1.Location = New System.Drawing.Point(0, 0)
  100.         Me.Panel1.Name = "Panel1"
  101.         Me.Panel1.Size = New System.Drawing.Size(327, 32)
  102.         Me.Panel1.TabIndex = 1
  103.         '
  104.         'Label2
  105.         '
  106.         Me.Label2.AutoSize = True
  107.         Me.Label2.ForeColor = System.Drawing.Color.Red
  108.         Me.Label2.Location = New System.Drawing.Point(9, 6)
  109.         Me.Label2.Name = "Label2"
  110.         Me.Label2.Size = New System.Drawing.Size(41, 12)
  111.         Me.Label2.TabIndex = 2
  112.         Me.Label2.Text = "星期日"
  113.         '
  114.         'Panel2
  115.         '
  116.         Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
  117.         Me.Panel2.Controls.Add(Me.Label8)
  118.         Me.Panel2.Controls.Add(Me.Label7)
  119.         Me.Panel2.Controls.Add(Me.Label6)
  120.         Me.Panel2.Controls.Add(Me.Label5)
  121.         Me.Panel2.Controls.Add(Me.Label4)
  122.         Me.Panel2.Controls.Add(Me.Label3)
  123.         Me.Panel2.Controls.Add(Me.Label2)
  124.         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
  125.         Me.Panel2.Location = New System.Drawing.Point(0, 32)
  126.         Me.Panel2.Name = "Panel2"
  127.         Me.Panel2.Size = New System.Drawing.Size(327, 25)
  128.         Me.Panel2.TabIndex = 3
  129.         '
  130.         'Label8
  131.         '
  132.         Me.Label8.AutoSize = True
  133.         Me.Label8.ForeColor = System.Drawing.Color.Red
  134.         Me.Label8.Location = New System.Drawing.Point(279, 6)
  135.         Me.Label8.Name = "Label8"
  136.         Me.Label8.Size = New System.Drawing.Size(41, 12)
  137.         Me.Label8.TabIndex = 2
  138.         Me.Label8.Text = "星期六"
  139.         '
  140.         'Label7
  141.         '
  142.         Me.Label7.AutoSize = True
  143.         Me.Label7.ForeColor = System.Drawing.Color.Blue
  144.         Me.Label7.Location = New System.Drawing.Point(235, 6)
  145.         Me.Label7.Name = "Label7"
  146.         Me.Label7.Size = New System.Drawing.Size(41, 12)
  147.         Me.Label7.TabIndex = 2
  148.         Me.Label7.Text = "星期五"
  149.         '
  150.         'Label6
  151.         '
  152.         Me.Label6.AutoSize = True
  153.         Me.Label6.ForeColor = System.Drawing.Color.Blue
  154.         Me.Label6.Location = New System.Drawing.Point(191, 6)
  155.         Me.Label6.Name = "Label6"
  156.         Me.Label6.Size = New System.Drawing.Size(41, 12)
  157.         Me.Label6.TabIndex = 2
  158.         Me.Label6.Text = "星期四"
  159.         '
  160.         'Label5
  161.         '
  162.         Me.Label5.AutoSize = True
  163.         Me.Label5.ForeColor = System.Drawing.Color.Blue
  164.         Me.Label5.Location = New System.Drawing.Point(147, 6)
  165.         Me.Label5.Name = "Label5"
  166.         Me.Label5.Size = New System.Drawing.Size(41, 12)
  167.         Me.Label5.TabIndex = 2
  168.         Me.Label5.Text = "星期三"
  169.         '
  170.         'Label4
  171.         '
  172.         Me.Label4.AutoSize = True
  173.         Me.Label4.ForeColor = System.Drawing.Color.Blue
  174.         Me.Label4.Location = New System.Drawing.Point(100, 5)
  175.         Me.Label4.Name = "Label4"
  176.         Me.Label4.Size = New System.Drawing.Size(41, 12)
  177.         Me.Label4.TabIndex = 2
  178.         Me.Label4.Text = "星期二"
  179.         '
  180.         'Label3
  181.         '
  182.         Me.Label3.AutoSize = True
  183.         Me.Label3.ForeColor = System.Drawing.Color.Blue
  184.         Me.Label3.Location = New System.Drawing.Point(53, 6)
  185.         Me.Label3.Name = "Label3"
  186.         Me.Label3.Size = New System.Drawing.Size(47, 12)
  187.         Me.Label3.TabIndex = 2
  188.         Me.Label3.Text = "星期一 "
  189.         '
  190.         'Panel3
  191.         '
  192.         Me.Panel3.AutoSize = True
  193.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian2)
  194.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian35)
  195.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian28)
  196.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian21)
  197.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian14)
  198.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian7)
  199.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian34)
  200.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian27)
  201.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian20)
  202.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian13)
  203.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian6)
  204.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian33)
  205.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian26)
  206.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian19)
  207.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian12)
  208.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian5)
  209.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian32)
  210.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian25)
  211.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian18)
  212.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian11)
  213.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian4)
  214.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian31)
  215.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian24)
  216.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian17)
  217.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian10)
  218.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian3)
  219.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian37)
  220.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian36)
  221.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian30)
  222.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian29)
  223.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian23)
  224.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian22)
  225.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian16)
  226.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian15)
  227.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian9)
  228.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian8)
  229.         Me.Panel3.Controls.Add(Me.Gyp_biaoqian1)
  230.         Me.Panel3.Location = New System.Drawing.Point(0, 48)
  231.         Me.Panel3.Name = "Panel3"
  232.         Me.Panel3.Size = New System.Drawing.Size(324, 231)
  233.         Me.Panel3.TabIndex = 5
  234.         Me.Panel3.TabStop = True
  235.         '
  236.         'ComboBox2
  237.         '
  238.         Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
  239.         Me.ComboBox2.FormattingEnabled = True
  240.         Me.ComboBox2.Items.AddRange(New Object() {"1900", "1901", "1902", "1903", "1904", "1905", "1906", "1907", "1908", "1909", "1910", "1911", "1912", "1913", "1914", "1915", "1916", "1917", "1918", "1919", "1920", "1921", "1922", "1923", "1924", "1925", "1926", "1927", "1928", "1929", "1930", "1931", "1932", "1933", "1934", "1935", "1936", "1937", "1938", "1939", "1940", "1941", "1942", "1943", "1944", "1945", "1946", "1947", "1948", "1949", "1950", "1951", "1952", "1953", "1954", "1955", "1956", "1957", "1958", "1959", "1960", "1961", "1962", "1963", "1964", "1965", "1966", "1967", "1968", "1969", "1970", "1971", "1972", "1973", "1974", "1975", "1976", "1977", "1978", "1979", "1980", "1981", "1982", "1983", "1984", "1985", "1986", "1987", "1988", "1989", "1990", "1991", "1992", "1993", "1994", "1995", "1996", "1997", "1998", "1999", "2000", "2001", "2002", "2003", "2004", "2005", "2006", "2007", "2008", "2009", "2010", "2011", "2012", "2013", "2014", "2015", "2016", "2017", "2018", "2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030", "2031", "2032", "2033", "2034", "2035", "2036", "2037", "2038", "2039", "2040", "2041", "2042", "2043", "2044", "2045", "2046", "2047", "2048", "2049", "2050", "2051", "2052", "2053", "2054", "2055", "2056", "2057", "2058", "2059", "2060", "2061", "2062", "2063", "2064", "2065", "2066", "2067", "2068", "2069", "2070", "2071", "2072", "2073", "2074", "2075", "2076", "2077", "2078", "2079", "2080", "2081", "2082", "2083", "2084", "2085", "2086", "2087", "2088", "2089", "2090", "2091", "2092", "2093", "2094", "2095", "2096", "2097", "2098", "2099", "2100"})
  241.         Me.ComboBox2.Location = New System.Drawing.Point(101, 243)
  242.         Me.ComboBox2.Name = "ComboBox2"
  243.         Me.ComboBox2.Size = New System.Drawing.Size(57, 20)
  244.         Me.ComboBox2.TabIndex = 49
  245.         '
  246.         'ComboBox1
  247.         '
  248.         Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
  249.         Me.ComboBox1.FormattingEnabled = True
  250.         Me.ComboBox1.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"})
  251.         Me.ComboBox1.Location = New System.Drawing.Point(210, 243)
  252.         Me.ComboBox1.Name = "ComboBox1"
  253.         Me.ComboBox1.Size = New System.Drawing.Size(57, 20)
  254.         Me.ComboBox1.TabIndex = 48
  255.         '
  256.         'Label12
  257.         '
  258.         Me.Label12.AutoSize = True
  259.         Me.Label12.ForeColor = System.Drawing.Color.Blue
  260.         Me.Label12.Location = New System.Drawing.Point(275, 256)
  261.         Me.Label12.Name = "Label12"
  262.         Me.Label12.Size = New System.Drawing.Size(41, 12)
  263.         Me.Label12.TabIndex = 52
  264.         Me.Label12.Text = "下一月"
  265.         '
  266.         'Label11
  267.         '
  268.         Me.Label11.AutoSize = True
  269.         Me.Label11.ForeColor = System.Drawing.Color.Blue
  270.         Me.Label11.Location = New System.Drawing.Point(275, 238)
  271.         Me.Label11.Name = "Label11"
  272.         Me.Label11.Size = New System.Drawing.Size(41, 12)
  273.         Me.Label11.TabIndex = 53
  274.         Me.Label11.Text = "上一月"
  275.         '
  276.         'Label10
  277.         '
  278.         Me.Label10.AutoSize = True
  279.         Me.Label10.ForeColor = System.Drawing.Color.Blue
  280.         Me.Label10.Location = New System.Drawing.Point(164, 256)
  281.         Me.Label10.Name = "Label10"
  282.         Me.Label10.Size = New System.Drawing.Size(41, 12)
  283.         Me.Label10.TabIndex = 50
  284.         Me.Label10.Text = "下一年"
  285.         '
  286.         'Label9
  287.         '
  288.         Me.Label9.AutoSize = True
  289.         Me.Label9.ForeColor = System.Drawing.Color.Blue
  290.         Me.Label9.Location = New System.Drawing.Point(165, 238)
  291.         Me.Label9.Name = "Label9"
  292.         Me.Label9.Size = New System.Drawing.Size(41, 12)
  293.         Me.Label9.TabIndex = 51
  294.         Me.Label9.Text = "上一年"
  295.         '
  296.         'Label13
  297.         '
  298.         Me.Label13.Dock = System.Windows.Forms.DockStyle.Right
  299.         Me.Label13.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  300.         Me.Label13.ForeColor = System.Drawing.Color.Red
  301.         Me.Label13.Location = New System.Drawing.Point(303, 0)
  302.         Me.Label13.Name = "Label13"
  303.         Me.Label13.Size = New System.Drawing.Size(24, 32)
  304.         Me.Label13.TabIndex = 1
  305.         Me.Label13.Text = "↓"
  306.         Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  307.         '
  308.         'Label14
  309.         '
  310.         Me.Label14.BackColor = System.Drawing.Color.DarkCyan
  311.         Me.Label14.ForeColor = System.Drawing.Color.Lime
  312.         Me.Label14.Location = New System.Drawing.Point(0, 0)
  313.         Me.Label14.Name = "Label14"
  314.         Me.Label14.Size = New System.Drawing.Size(20, 32)
  315.         Me.Label14.TabIndex = 2
  316.         Me.Label14.Text = "今日"
  317.         Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  318.         '
  319.         'Gyp_biaoqian2
  320.         '
  321.         Me.Gyp_biaoqian2.AutoSize = True
  322.         Me.Gyp_biaoqian2.BackColor = System.Drawing.Color.Transparent
  323.         Me.Gyp_biaoqian2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  324.         Me.Gyp_biaoqian2.Location = New System.Drawing.Point(3, 11)
  325.         Me.Gyp_biaoqian2.Margin = New System.Windows.Forms.Padding(4)
  326.         Me.Gyp_biaoqian2.myNLforecolor = System.Drawing.SystemColors.ControlText
  327.         Me.Gyp_biaoqian2.myNLtxt = "0"
  328.         Me.Gyp_biaoqian2.myYLforecolor = System.Drawing.Color.Red
  329.         Me.Gyp_biaoqian2.myYLtxt = "0"
  330.         Me.Gyp_biaoqian2.Name = "Gyp_biaoqian2"
  331.         Me.Gyp_biaoqian2.Size = New System.Drawing.Size(46, 36)
  332.         Me.Gyp_biaoqian2.TabIndex = 0
  333.         Me.Gyp_biaoqian2.TabStop = False
  334.         Me.Gyp_biaoqian2.Tag = "0"
  335.         '
  336.         'Gyp_biaoqian35
  337.         '
  338.         Me.Gyp_biaoqian35.AutoSize = True
  339.         Me.Gyp_biaoqian35.BackColor = System.Drawing.Color.Transparent
  340.         Me.Gyp_biaoqian35.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  341.         Me.Gyp_biaoqian35.Location = New System.Drawing.Point(273, 151)
  342.         Me.Gyp_biaoqian35.Margin = New System.Windows.Forms.Padding(4)
  343.         Me.Gyp_biaoqian35.myNLforecolor = System.Drawing.SystemColors.ControlText
  344.         Me.Gyp_biaoqian35.myNLtxt = "初一"
  345.         Me.Gyp_biaoqian35.myYLforecolor = System.Drawing.Color.Red
  346.         Me.Gyp_biaoqian35.myYLtxt = "1"
  347.         Me.Gyp_biaoqian35.Name = "Gyp_biaoqian35"
  348.         Me.Gyp_biaoqian35.Size = New System.Drawing.Size(46, 36)
  349.         Me.Gyp_biaoqian35.TabIndex = 34
  350.         Me.Gyp_biaoqian35.TabStop = False
  351.         Me.Gyp_biaoqian35.Tag = "34"
  352.         '
  353.         'Gyp_biaoqian28
  354.         '
  355.         Me.Gyp_biaoqian28.AutoSize = True
  356.         Me.Gyp_biaoqian28.BackColor = System.Drawing.Color.Transparent
  357.         Me.Gyp_biaoqian28.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  358.         Me.Gyp_biaoqian28.Location = New System.Drawing.Point(273, 116)
  359.         Me.Gyp_biaoqian28.Margin = New System.Windows.Forms.Padding(4)
  360.         Me.Gyp_biaoqian28.myNLforecolor = System.Drawing.SystemColors.ControlText
  361.         Me.Gyp_biaoqian28.myNLtxt = "初一"
  362.         Me.Gyp_biaoqian28.myYLforecolor = System.Drawing.Color.Red
  363.         Me.Gyp_biaoqian28.myYLtxt = "1"
  364.         Me.Gyp_biaoqian28.Name = "Gyp_biaoqian28"
  365.         Me.Gyp_biaoqian28.Size = New System.Drawing.Size(46, 36)
  366.         Me.Gyp_biaoqian28.TabIndex = 27
  367.         Me.Gyp_biaoqian28.TabStop = False
  368.         Me.Gyp_biaoqian28.Tag = "27"
  369.         '
  370.         'Gyp_biaoqian21
  371.         '
  372.         Me.Gyp_biaoqian21.AutoSize = True
  373.         Me.Gyp_biaoqian21.BackColor = System.Drawing.Color.Transparent
  374.         Me.Gyp_biaoqian21.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  375.         Me.Gyp_biaoqian21.Location = New System.Drawing.Point(273, 81)
  376.         Me.Gyp_biaoqian21.Margin = New System.Windows.Forms.Padding(4)
  377.         Me.Gyp_biaoqian21.myNLforecolor = System.Drawing.SystemColors.ControlText
  378.         Me.Gyp_biaoqian21.myNLtxt = "初一"
  379.         Me.Gyp_biaoqian21.myYLforecolor = System.Drawing.Color.Red
  380.         Me.Gyp_biaoqian21.myYLtxt = "1"
  381.         Me.Gyp_biaoqian21.Name = "Gyp_biaoqian21"
  382.         Me.Gyp_biaoqian21.Size = New System.Drawing.Size(46, 36)
  383.         Me.Gyp_biaoqian21.TabIndex = 19
  384.         Me.Gyp_biaoqian21.TabStop = False
  385.         Me.Gyp_biaoqian21.Tag = "20"
  386.         '
  387.         'Gyp_biaoqian14
  388.         '
  389.         Me.Gyp_biaoqian14.AutoSize = True
  390.         Me.Gyp_biaoqian14.BackColor = System.Drawing.Color.Transparent
  391.         Me.Gyp_biaoqian14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  392.         Me.Gyp_biaoqian14.Location = New System.Drawing.Point(273, 46)
  393.         Me.Gyp_biaoqian14.Margin = New System.Windows.Forms.Padding(4)
  394.         Me.Gyp_biaoqian14.myNLforecolor = System.Drawing.SystemColors.ControlText
  395.         Me.Gyp_biaoqian14.myNLtxt = "初一"
  396.         Me.Gyp_biaoqian14.myYLforecolor = System.Drawing.Color.Red
  397.         Me.Gyp_biaoqian14.myYLtxt = "1"
  398.         Me.Gyp_biaoqian14.Name = "Gyp_biaoqian14"
  399.         Me.Gyp_biaoqian14.Size = New System.Drawing.Size(46, 36)
  400.         Me.Gyp_biaoqian14.TabIndex = 13
  401.         Me.Gyp_biaoqian14.TabStop = False
  402.         Me.Gyp_biaoqian14.Tag = "13"
  403.         '
  404.         'Gyp_biaoqian7
  405.         '
  406.         Me.Gyp_biaoqian7.AutoSize = True
  407.         Me.Gyp_biaoqian7.BackColor = System.Drawing.Color.Transparent
  408.         Me.Gyp_biaoqian7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  409.         Me.Gyp_biaoqian7.Location = New System.Drawing.Point(273, 11)
  410.         Me.Gyp_biaoqian7.Margin = New System.Windows.Forms.Padding(4)
  411.         Me.Gyp_biaoqian7.myNLforecolor = System.Drawing.SystemColors.ControlText
  412.         Me.Gyp_biaoqian7.myNLtxt = "初一"
  413.         Me.Gyp_biaoqian7.myYLforecolor = System.Drawing.Color.Red
  414.         Me.Gyp_biaoqian7.myYLtxt = "1"
  415.         Me.Gyp_biaoqian7.Name = "Gyp_biaoqian7"
  416.         Me.Gyp_biaoqian7.Size = New System.Drawing.Size(46, 36)
  417.         Me.Gyp_biaoqian7.TabIndex = 6
  418.         Me.Gyp_biaoqian7.TabStop = False
  419.         Me.Gyp_biaoqian7.Tag = "6"
  420.         '
  421.         'Gyp_biaoqian34
  422.         '
  423.         Me.Gyp_biaoqian34.AutoSize = True
  424.         Me.Gyp_biaoqian34.BackColor = System.Drawing.Color.Transparent
  425.         Me.Gyp_biaoqian34.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  426.         Me.Gyp_biaoqian34.Location = New System.Drawing.Point(228, 151)
  427.         Me.Gyp_biaoqian34.Margin = New System.Windows.Forms.Padding(4)
  428.         Me.Gyp_biaoqian34.myNLforecolor = System.Drawing.SystemColors.ControlText
  429.         Me.Gyp_biaoqian34.myNLtxt = "初一"
  430.         Me.Gyp_biaoqian34.myYLforecolor = System.Drawing.SystemColors.ControlText
  431.         Me.Gyp_biaoqian34.myYLtxt = "1"
  432.         Me.Gyp_biaoqian34.Name = "Gyp_biaoqian34"
  433.         Me.Gyp_biaoqian34.Size = New System.Drawing.Size(46, 36)
  434.         Me.Gyp_biaoqian34.TabIndex = 33
  435.         Me.Gyp_biaoqian34.TabStop = False
  436.         Me.Gyp_biaoqian34.Tag = "33"
  437.         '
  438.         'Gyp_biaoqian27
  439.         '
  440.         Me.Gyp_biaoqian27.AutoSize = True
  441.         Me.Gyp_biaoqian27.BackColor = System.Drawing.Color.Transparent
  442.         Me.Gyp_biaoqian27.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  443.         Me.Gyp_biaoqian27.Location = New System.Drawing.Point(228, 116)
  444.         Me.Gyp_biaoqian27.Margin = New System.Windows.Forms.Padding(4)
  445.         Me.Gyp_biaoqian27.myNLforecolor = System.Drawing.SystemColors.ControlText
  446.         Me.Gyp_biaoqian27.myNLtxt = "初一"
  447.         Me.Gyp_biaoqian27.myYLforecolor = System.Drawing.SystemColors.ControlText
  448.         Me.Gyp_biaoqian27.myYLtxt = "1"
  449.         Me.Gyp_biaoqian27.Name = "Gyp_biaoqian27"
  450.         Me.Gyp_biaoqian27.Size = New System.Drawing.Size(46, 36)
  451.         Me.Gyp_biaoqian27.TabIndex = 26
  452.         Me.Gyp_biaoqian27.TabStop = False
  453.         Me.Gyp_biaoqian27.Tag = "26"
  454.         '
  455.         'Gyp_biaoqian20
  456.         '
  457.         Me.Gyp_biaoqian20.AutoSize = True
  458.         Me.Gyp_biaoqian20.BackColor = System.Drawing.Color.Transparent
  459.         Me.Gyp_biaoqian20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  460.         Me.Gyp_biaoqian20.Location = New System.Drawing.Point(228, 81)
  461.         Me.Gyp_biaoqian20.Margin = New System.Windows.Forms.Padding(4)
  462.         Me.Gyp_biaoqian20.myNLforecolor = System.Drawing.SystemColors.ControlText
  463.         Me.Gyp_biaoqian20.myNLtxt = "初一"
  464.         Me.Gyp_biaoqian20.myYLforecolor = System.Drawing.SystemColors.ControlText
  465.         Me.Gyp_biaoqian20.myYLtxt = "1"
  466.         Me.Gyp_biaoqian20.Name = "Gyp_biaoqian20"
  467.         Me.Gyp_biaoqian20.Size = New System.Drawing.Size(46, 36)
  468.         Me.Gyp_biaoqian20.TabIndex = 18
  469.         Me.Gyp_biaoqian20.TabStop = False
  470.         Me.Gyp_biaoqian20.Tag = "19"
  471.         '
  472.         'Gyp_biaoqian13
  473.         '
  474.         Me.Gyp_biaoqian13.AutoSize = True
  475.         Me.Gyp_biaoqian13.BackColor = System.Drawing.Color.Transparent
  476.         Me.Gyp_biaoqian13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  477.         Me.Gyp_biaoqian13.Location = New System.Drawing.Point(228, 46)
  478.         Me.Gyp_biaoqian13.Margin = New System.Windows.Forms.Padding(4)
  479.         Me.Gyp_biaoqian13.myNLforecolor = System.Drawing.SystemColors.ControlText
  480.         Me.Gyp_biaoqian13.myNLtxt = "初一"
  481.         Me.Gyp_biaoqian13.myYLforecolor = System.Drawing.SystemColors.ControlText
  482.         Me.Gyp_biaoqian13.myYLtxt = "1"
  483.         Me.Gyp_biaoqian13.Name = "Gyp_biaoqian13"
  484.         Me.Gyp_biaoqian13.Size = New System.Drawing.Size(46, 36)
  485.         Me.Gyp_biaoqian13.TabIndex = 12
  486.         Me.Gyp_biaoqian13.TabStop = False
  487.         Me.Gyp_biaoqian13.Tag = "12"
  488.         '
  489.         'Gyp_biaoqian6
  490.         '
  491.         Me.Gyp_biaoqian6.AutoSize = True
  492.         Me.Gyp_biaoqian6.BackColor = System.Drawing.Color.Transparent
  493.         Me.Gyp_biaoqian6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  494.         Me.Gyp_biaoqian6.Location = New System.Drawing.Point(228, 11)
  495.         Me.Gyp_biaoqian6.Margin = New System.Windows.Forms.Padding(4)
  496.         Me.Gyp_biaoqian6.myNLforecolor = System.Drawing.SystemColors.ControlText
  497.         Me.Gyp_biaoqian6.myNLtxt = "初一"
  498.         Me.Gyp_biaoqian6.myYLforecolor = System.Drawing.SystemColors.ControlText
  499.         Me.Gyp_biaoqian6.myYLtxt = "1"
  500.         Me.Gyp_biaoqian6.Name = "Gyp_biaoqian6"
  501.         Me.Gyp_biaoqian6.Size = New System.Drawing.Size(46, 36)
  502.         Me.Gyp_biaoqian6.TabIndex = 5
  503.         Me.Gyp_biaoqian6.TabStop = False
  504.         Me.Gyp_biaoqian6.Tag = "5"
  505.         '
  506.         'Gyp_biaoqian33
  507.         '
  508.         Me.Gyp_biaoqian33.AutoSize = True
  509.         Me.Gyp_biaoqian33.BackColor = System.Drawing.Color.Transparent
  510.         Me.Gyp_biaoqian33.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  511.         Me.Gyp_biaoqian33.Location = New System.Drawing.Point(183, 151)
  512.         Me.Gyp_biaoqian33.Margin = New System.Windows.Forms.Padding(4)
  513.         Me.Gyp_biaoqian33.myNLforecolor = System.Drawing.SystemColors.ControlText
  514.         Me.Gyp_biaoqian33.myNLtxt = "初一"
  515.         Me.Gyp_biaoqian33.myYLforecolor = System.Drawing.SystemColors.ControlText
  516.         Me.Gyp_biaoqian33.myYLtxt = "1"
  517.         Me.Gyp_biaoqian33.Name = "Gyp_biaoqian33"
  518.         Me.Gyp_biaoqian33.Size = New System.Drawing.Size(46, 36)
  519.         Me.Gyp_biaoqian33.TabIndex = 32
  520.         Me.Gyp_biaoqian33.TabStop = False
  521.         Me.Gyp_biaoqian33.Tag = "32"
  522.         '
  523.         'Gyp_biaoqian26
  524.         '
  525.         Me.Gyp_biaoqian26.AutoSize = True
  526.         Me.Gyp_biaoqian26.BackColor = System.Drawing.Color.Transparent
  527.         Me.Gyp_biaoqian26.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  528.         Me.Gyp_biaoqian26.Location = New System.Drawing.Point(183, 116)
  529.         Me.Gyp_biaoqian26.Margin = New System.Windows.Forms.Padding(4)
  530.         Me.Gyp_biaoqian26.myNLforecolor = System.Drawing.SystemColors.ControlText
  531.         Me.Gyp_biaoqian26.myNLtxt = "初一"
  532.         Me.Gyp_biaoqian26.myYLforecolor = System.Drawing.SystemColors.ControlText
  533.         Me.Gyp_biaoqian26.myYLtxt = "1"
  534.         Me.Gyp_biaoqian26.Name = "Gyp_biaoqian26"
  535.         Me.Gyp_biaoqian26.Size = New System.Drawing.Size(46, 36)
  536.         Me.Gyp_biaoqian26.TabIndex = 25
  537.         Me.Gyp_biaoqian26.TabStop = False
  538.         Me.Gyp_biaoqian26.Tag = "25"
  539.         '
  540.         'Gyp_biaoqian19
  541.         '
  542.         Me.Gyp_biaoqian19.AutoSize = True
  543.         Me.Gyp_biaoqian19.BackColor = System.Drawing.Color.Transparent
  544.         Me.Gyp_biaoqian19.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  545.         Me.Gyp_biaoqian19.Location = New System.Drawing.Point(183, 81)
  546.         Me.Gyp_biaoqian19.Margin = New System.Windows.Forms.Padding(4)
  547.         Me.Gyp_biaoqian19.myNLforecolor = System.Drawing.SystemColors.ControlText
  548.         Me.Gyp_biaoqian19.myNLtxt = "初一"
  549.         Me.Gyp_biaoqian19.myYLforecolor = System.Drawing.SystemColors.ControlText
  550.         Me.Gyp_biaoqian19.myYLtxt = "1"
  551.         Me.Gyp_biaoqian19.Name = "Gyp_biaoqian19"
  552.         Me.Gyp_biaoqian19.Size = New System.Drawing.Size(46, 36)
  553.         Me.Gyp_biaoqian19.TabIndex = 17
  554.         Me.Gyp_biaoqian19.TabStop = False
  555.         Me.Gyp_biaoqian19.Tag = "18"
  556.         '
  557.         'Gyp_biaoqian12
  558.         '
  559.         Me.Gyp_biaoqian12.AutoSize = True
  560.         Me.Gyp_biaoqian12.BackColor = System.Drawing.Color.Transparent
  561.         Me.Gyp_biaoqian12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  562.         Me.Gyp_biaoqian12.Location = New System.Drawing.Point(183, 46)
  563.         Me.Gyp_biaoqian12.Margin = New System.Windows.Forms.Padding(4)
  564.         Me.Gyp_biaoqian12.myNLforecolor = System.Drawing.SystemColors.ControlText
  565.         Me.Gyp_biaoqian12.myNLtxt = "初一"
  566.         Me.Gyp_biaoqian12.myYLforecolor = System.Drawing.SystemColors.ControlText
  567.         Me.Gyp_biaoqian12.myYLtxt = "1"
  568.         Me.Gyp_biaoqian12.Name = "Gyp_biaoqian12"
  569.         Me.Gyp_biaoqian12.Size = New System.Drawing.Size(46, 36)
  570.         Me.Gyp_biaoqian12.TabIndex = 11
  571.         Me.Gyp_biaoqian12.TabStop = False
  572.         Me.Gyp_biaoqian12.Tag = "11"
  573.         '
  574.         'Gyp_biaoqian5
  575.         '
  576.         Me.Gyp_biaoqian5.AutoSize = True
  577.         Me.Gyp_biaoqian5.BackColor = System.Drawing.Color.Transparent
  578.         Me.Gyp_biaoqian5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  579.         Me.Gyp_biaoqian5.Location = New System.Drawing.Point(183, 11)
  580.         Me.Gyp_biaoqian5.Margin = New System.Windows.Forms.Padding(4)
  581.         Me.Gyp_biaoqian5.myNLforecolor = System.Drawing.SystemColors.ControlText
  582.         Me.Gyp_biaoqian5.myNLtxt = "初一"
  583.         Me.Gyp_biaoqian5.myYLforecolor = System.Drawing.SystemColors.ControlText
  584.         Me.Gyp_biaoqian5.myYLtxt = "1"
  585.         Me.Gyp_biaoqian5.Name = "Gyp_biaoqian5"
  586.         Me.Gyp_biaoqian5.Size = New System.Drawing.Size(46, 36)
  587.         Me.Gyp_biaoqian5.TabIndex = 4
  588.         Me.Gyp_biaoqian5.TabStop = False
  589.         Me.Gyp_biaoqian5.Tag = "4"
  590.         '
  591.         'Gyp_biaoqian32
  592.         '
  593.         Me.Gyp_biaoqian32.AutoSize = True
  594.         Me.Gyp_biaoqian32.BackColor = System.Drawing.Color.Transparent
  595.         Me.Gyp_biaoqian32.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  596.         Me.Gyp_biaoqian32.Location = New System.Drawing.Point(138, 151)
  597.         Me.Gyp_biaoqian32.Margin = New System.Windows.Forms.Padding(4)
  598.         Me.Gyp_biaoqian32.myNLforecolor = System.Drawing.SystemColors.ControlText
  599.         Me.Gyp_biaoqian32.myNLtxt = "初一"
  600.         Me.Gyp_biaoqian32.myYLforecolor = System.Drawing.SystemColors.ControlText
  601.         Me.Gyp_biaoqian32.myYLtxt = "1"
  602.         Me.Gyp_biaoqian32.Name = "Gyp_biaoqian32"
  603.         Me.Gyp_biaoqian32.Size = New System.Drawing.Size(46, 36)
  604.         Me.Gyp_biaoqian32.TabIndex = 31
  605.         Me.Gyp_biaoqian32.TabStop = False
  606.         Me.Gyp_biaoqian32.Tag = "31"
  607.         '
  608.         'Gyp_biaoqian25
  609.         '
  610.         Me.Gyp_biaoqian25.AutoSize = True
  611.         Me.Gyp_biaoqian25.BackColor = System.Drawing.Color.Transparent
  612.         Me.Gyp_biaoqian25.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  613.         Me.Gyp_biaoqian25.Location = New System.Drawing.Point(138, 116)
  614.         Me.Gyp_biaoqian25.Margin = New System.Windows.Forms.Padding(4)
  615.         Me.Gyp_biaoqian25.myNLforecolor = System.Drawing.SystemColors.ControlText
  616.         Me.Gyp_biaoqian25.myNLtxt = "初一"
  617.         Me.Gyp_biaoqian25.myYLforecolor = System.Drawing.SystemColors.ControlText
  618.         Me.Gyp_biaoqian25.myYLtxt = "1"
  619.         Me.Gyp_biaoqian25.Name = "Gyp_biaoqian25"
  620.         Me.Gyp_biaoqian25.Size = New System.Drawing.Size(46, 36)
  621.         Me.Gyp_biaoqian25.TabIndex = 24
  622.         Me.Gyp_biaoqian25.TabStop = False
  623.         Me.Gyp_biaoqian25.Tag = "24"
  624.         '
  625.         'Gyp_biaoqian18
  626.         '
  627.         Me.Gyp_biaoqian18.AutoSize = True
  628.         Me.Gyp_biaoqian18.BackColor = System.Drawing.Color.Transparent
  629.         Me.Gyp_biaoqian18.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  630.         Me.Gyp_biaoqian18.Location = New System.Drawing.Point(138, 81)
  631.         Me.Gyp_biaoqian18.Margin = New System.Windows.Forms.Padding(4)
  632.         Me.Gyp_biaoqian18.myNLforecolor = System.Drawing.SystemColors.ControlText
  633.         Me.Gyp_biaoqian18.myNLtxt = "初一"
  634.         Me.Gyp_biaoqian18.myYLforecolor = System.Drawing.SystemColors.ControlText
  635.         Me.Gyp_biaoqian18.myYLtxt = "1"
  636.         Me.Gyp_biaoqian18.Name = "Gyp_biaoqian18"
  637.         Me.Gyp_biaoqian18.Size = New System.Drawing.Size(46, 36)
  638.         Me.Gyp_biaoqian18.TabIndex = 17
  639.         Me.Gyp_biaoqian18.TabStop = False
  640.         Me.Gyp_biaoqian18.Tag = "17"
  641.         '
  642.         'Gyp_biaoqian11
  643.         '
  644.         Me.Gyp_biaoqian11.AutoSize = True
  645.         Me.Gyp_biaoqian11.BackColor = System.Drawing.Color.Transparent
  646.         Me.Gyp_biaoqian11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  647.         Me.Gyp_biaoqian11.Location = New System.Drawing.Point(138, 46)
  648.         Me.Gyp_biaoqian11.Margin = New System.Windows.Forms.Padding(4)
  649.         Me.Gyp_biaoqian11.myNLforecolor = System.Drawing.SystemColors.ControlText
  650.         Me.Gyp_biaoqian11.myNLtxt = "初一"
  651.         Me.Gyp_biaoqian11.myYLforecolor = System.Drawing.SystemColors.ControlText
  652.         Me.Gyp_biaoqian11.myYLtxt = "1"
  653.         Me.Gyp_biaoqian11.Name = "Gyp_biaoqian11"
  654.         Me.Gyp_biaoqian11.Size = New System.Drawing.Size(46, 36)
  655.         Me.Gyp_biaoqian11.TabIndex = 10
  656.         Me.Gyp_biaoqian11.TabStop = False
  657.         Me.Gyp_biaoqian11.Tag = "10"
  658.         '
  659.         'Gyp_biaoqian4
  660.         '
  661.         Me.Gyp_biaoqian4.AutoSize = True
  662.         Me.Gyp_biaoqian4.BackColor = System.Drawing.Color.Transparent
  663.         Me.Gyp_biaoqian4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  664.         Me.Gyp_biaoqian4.Location = New System.Drawing.Point(138, 11)
  665.         Me.Gyp_biaoqian4.Margin = New System.Windows.Forms.Padding(4)
  666.         Me.Gyp_biaoqian4.myNLforecolor = System.Drawing.SystemColors.ControlText
  667.         Me.Gyp_biaoqian4.myNLtxt = "初一"
  668.         Me.Gyp_biaoqian4.myYLforecolor = System.Drawing.SystemColors.ControlText
  669.         Me.Gyp_biaoqian4.myYLtxt = "1"
  670.         Me.Gyp_biaoqian4.Name = "Gyp_biaoqian4"
  671.         Me.Gyp_biaoqian4.Size = New System.Drawing.Size(46, 36)
  672.         Me.Gyp_biaoqian4.TabIndex = 3
  673.         Me.Gyp_biaoqian4.TabStop = False
  674.         Me.Gyp_biaoqian4.Tag = "3"
  675.         '
  676.         'Gyp_biaoqian31
  677.         '
  678.         Me.Gyp_biaoqian31.AutoSize = True
  679.         Me.Gyp_biaoqian31.BackColor = System.Drawing.Color.Transparent
  680.         Me.Gyp_biaoqian31.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  681.         Me.Gyp_biaoqian31.Location = New System.Drawing.Point(93, 151)
  682.         Me.Gyp_biaoqian31.Margin = New System.Windows.Forms.Padding(4)
  683.         Me.Gyp_biaoqian31.myNLforecolor = System.Drawing.SystemColors.ControlText
  684.         Me.Gyp_biaoqian31.myNLtxt = "初一"
  685.         Me.Gyp_biaoqian31.myYLforecolor = System.Drawing.SystemColors.ControlText
  686.         Me.Gyp_biaoqian31.myYLtxt = "1"
  687.         Me.Gyp_biaoqian31.Name = "Gyp_biaoqian31"
  688.         Me.Gyp_biaoqian31.Size = New System.Drawing.Size(46, 36)
  689.         Me.Gyp_biaoqian31.TabIndex = 30
  690.         Me.Gyp_biaoqian31.TabStop = False
  691.         Me.Gyp_biaoqian31.Tag = "30"
  692.         '
  693.         'Gyp_biaoqian24
  694.         '
  695.         Me.Gyp_biaoqian24.AutoSize = True
  696.         Me.Gyp_biaoqian24.BackColor = System.Drawing.Color.Transparent
  697.         Me.Gyp_biaoqian24.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  698.         Me.Gyp_biaoqian24.Location = New System.Drawing.Point(93, 116)
  699.         Me.Gyp_biaoqian24.Margin = New System.Windows.Forms.Padding(4)
  700.         Me.Gyp_biaoqian24.myNLforecolor = System.Drawing.SystemColors.ControlText
  701.         Me.Gyp_biaoqian24.myNLtxt = "初一"
  702.         Me.Gyp_biaoqian24.myYLforecolor = System.Drawing.SystemColors.ControlText
  703.         Me.Gyp_biaoqian24.myYLtxt = "1"
  704.         Me.Gyp_biaoqian24.Name = "Gyp_biaoqian24"
  705.         Me.Gyp_biaoqian24.Size = New System.Drawing.Size(46, 36)
  706.         Me.Gyp_biaoqian24.TabIndex = 0
  707.         Me.Gyp_biaoqian24.TabStop = False
  708.         Me.Gyp_biaoqian24.Tag = "23"
  709.         '
  710.         'Gyp_biaoqian17
  711.         '
  712.         Me.Gyp_biaoqian17.AutoSize = True
  713.         Me.Gyp_biaoqian17.BackColor = System.Drawing.Color.Transparent
  714.         Me.Gyp_biaoqian17.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  715.         Me.Gyp_biaoqian17.Location = New System.Drawing.Point(93, 81)
  716.         Me.Gyp_biaoqian17.Margin = New System.Windows.Forms.Padding(4)
  717.         Me.Gyp_biaoqian17.myNLforecolor = System.Drawing.SystemColors.ControlText
  718.         Me.Gyp_biaoqian17.myNLtxt = "初一"
  719.         Me.Gyp_biaoqian17.myYLforecolor = System.Drawing.SystemColors.ControlText
  720.         Me.Gyp_biaoqian17.myYLtxt = "1"
  721.         Me.Gyp_biaoqian17.Name = "Gyp_biaoqian17"
  722.         Me.Gyp_biaoqian17.Size = New System.Drawing.Size(46, 36)
  723.         Me.Gyp_biaoqian17.TabIndex = 16
  724.         Me.Gyp_biaoqian17.TabStop = False
  725.         Me.Gyp_biaoqian17.Tag = "16"
  726.         '
  727.         'Gyp_biaoqian10
  728.         '
  729.         Me.Gyp_biaoqian10.AutoSize = True
  730.         Me.Gyp_biaoqian10.BackColor = System.Drawing.Color.Transparent
  731.         Me.Gyp_biaoqian10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  732.         Me.Gyp_biaoqian10.Location = New System.Drawing.Point(93, 46)
  733.         Me.Gyp_biaoqian10.Margin = New System.Windows.Forms.Padding(4)
  734.         Me.Gyp_biaoqian10.myNLforecolor = System.Drawing.SystemColors.ControlText
  735.         Me.Gyp_biaoqian10.myNLtxt = "初一"
  736.         Me.Gyp_biaoqian10.myYLforecolor = System.Drawing.SystemColors.ControlText
  737.         Me.Gyp_biaoqian10.myYLtxt = "1"
  738.         Me.Gyp_biaoqian10.Name = "Gyp_biaoqian10"
  739.         Me.Gyp_biaoqian10.Size = New System.Drawing.Size(46, 36)
  740.         Me.Gyp_biaoqian10.TabIndex = 9
  741.         Me.Gyp_biaoqian10.TabStop = False
  742.         Me.Gyp_biaoqian10.Tag = "9"
  743.         '
  744.         'Gyp_biaoqian3
  745.         '
  746.         Me.Gyp_biaoqian3.AutoSize = True
  747.         Me.Gyp_biaoqian3.BackColor = System.Drawing.Color.Transparent
  748.         Me.Gyp_biaoqian3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  749.         Me.Gyp_biaoqian3.Location = New System.Drawing.Point(93, 11)
  750.         Me.Gyp_biaoqian3.Margin = New System.Windows.Forms.Padding(4)
  751.         Me.Gyp_biaoqian3.myNLforecolor = System.Drawing.SystemColors.ControlText
  752.         Me.Gyp_biaoqian3.myNLtxt = "初一"
  753.         Me.Gyp_biaoqian3.myYLforecolor = System.Drawing.SystemColors.ControlText
  754.         Me.Gyp_biaoqian3.myYLtxt = "1"
  755.         Me.Gyp_biaoqian3.Name = "Gyp_biaoqian3"
  756.         Me.Gyp_biaoqian3.Size = New System.Drawing.Size(46, 36)
  757.         Me.Gyp_biaoqian3.TabIndex = 2
  758.         Me.Gyp_biaoqian3.TabStop = False
  759.         Me.Gyp_biaoqian3.Tag = "2"
  760.         '
  761.         'Gyp_biaoqian37
  762.         '
  763.         Me.Gyp_biaoqian37.AutoSize = True
  764.         Me.Gyp_biaoqian37.BackColor = System.Drawing.Color.Transparent
  765.         Me.Gyp_biaoqian37.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  766.         Me.Gyp_biaoqian37.Location = New System.Drawing.Point(48, 186)
  767.         Me.Gyp_biaoqian37.Margin = New System.Windows.Forms.Padding(4)
  768.         Me.Gyp_biaoqian37.myNLforecolor = System.Drawing.SystemColors.ControlText
  769.         Me.Gyp_biaoqian37.myNLtxt = "初一"
  770.         Me.Gyp_biaoqian37.myYLforecolor = System.Drawing.SystemColors.ControlText
  771.         Me.Gyp_biaoqian37.myYLtxt = "1"
  772.         Me.Gyp_biaoqian37.Name = "Gyp_biaoqian37"
  773.         Me.Gyp_biaoqian37.Size = New System.Drawing.Size(46, 36)
  774.         Me.Gyp_biaoqian37.TabIndex = 36
  775.         Me.Gyp_biaoqian37.TabStop = False
  776.         Me.Gyp_biaoqian37.Tag = "36"
  777.         '
  778.         'Gyp_biaoqian36
  779.         '
  780.         Me.Gyp_biaoqian36.AutoSize = True
  781.         Me.Gyp_biaoqian36.BackColor = System.Drawing.Color.Transparent
  782.         Me.Gyp_biaoqian36.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  783.         Me.Gyp_biaoqian36.Location = New System.Drawing.Point(3, 186)
  784.         Me.Gyp_biaoqian36.Margin = New System.Windows.Forms.Padding(4)
  785.         Me.Gyp_biaoqian36.myNLforecolor = System.Drawing.SystemColors.ControlText
  786.         Me.Gyp_biaoqian36.myNLtxt = "初一"
  787.         Me.Gyp_biaoqian36.myYLforecolor = System.Drawing.Color.Red
  788.         Me.Gyp_biaoqian36.myYLtxt = "1"
  789.         Me.Gyp_biaoqian36.Name = "Gyp_biaoqian36"
  790.         Me.Gyp_biaoqian36.Size = New System.Drawing.Size(46, 36)
  791.         Me.Gyp_biaoqian36.TabIndex = 35
  792.         Me.Gyp_biaoqian36.TabStop = False
  793.         Me.Gyp_biaoqian36.Tag = "35"
  794.         '
  795.         'Gyp_biaoqian30
  796.         '
  797.         Me.Gyp_biaoqian30.AutoSize = True
  798.         Me.Gyp_biaoqian30.BackColor = System.Drawing.Color.Transparent
  799.         Me.Gyp_biaoqian30.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  800.         Me.Gyp_biaoqian30.Location = New System.Drawing.Point(48, 151)
  801.         Me.Gyp_biaoqian30.Margin = New System.Windows.Forms.Padding(4)
  802.         Me.Gyp_biaoqian30.myNLforecolor = System.Drawing.SystemColors.ControlText
  803.         Me.Gyp_biaoqian30.myNLtxt = "初一"
  804.         Me.Gyp_biaoqian30.myYLforecolor = System.Drawing.SystemColors.ControlText
  805.         Me.Gyp_biaoqian30.myYLtxt = "1"
  806.         Me.Gyp_biaoqian30.Name = "Gyp_biaoqian30"
  807.         Me.Gyp_biaoqian30.Size = New System.Drawing.Size(46, 36)
  808.         Me.Gyp_biaoqian30.TabIndex = 29
  809.         Me.Gyp_biaoqian30.TabStop = False
  810.         Me.Gyp_biaoqian30.Tag = "29"
  811.         '
  812.         'Gyp_biaoqian29
  813.         '
  814.         Me.Gyp_biaoqian29.AutoSize = True
  815.         Me.Gyp_biaoqian29.BackColor = System.Drawing.Color.Transparent
  816.         Me.Gyp_biaoqian29.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  817.         Me.Gyp_biaoqian29.Location = New System.Drawing.Point(3, 151)
  818.         Me.Gyp_biaoqian29.Margin = New System.Windows.Forms.Padding(4)
  819.         Me.Gyp_biaoqian29.myNLforecolor = System.Drawing.SystemColors.ControlText
  820.         Me.Gyp_biaoqian29.myNLtxt = "初一"
  821.         Me.Gyp_biaoqian29.myYLforecolor = System.Drawing.Color.Red
  822.         Me.Gyp_biaoqian29.myYLtxt = "1"
  823.         Me.Gyp_biaoqian29.Name = "Gyp_biaoqian29"
  824.         Me.Gyp_biaoqian29.Size = New System.Drawing.Size(46, 36)
  825.         Me.Gyp_biaoqian29.TabIndex = 28
  826.         Me.Gyp_biaoqian29.TabStop = False
  827.         Me.Gyp_biaoqian29.Tag = "28"
  828.         '
  829.         'Gyp_biaoqian23
  830.         '
  831.         Me.Gyp_biaoqian23.AutoSize = True
  832.         Me.Gyp_biaoqian23.BackColor = System.Drawing.Color.Transparent
  833.         Me.Gyp_biaoqian23.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  834.         Me.Gyp_biaoqian23.Location = New System.Drawing.Point(48, 116)
  835.         Me.Gyp_biaoqian23.Margin = New System.Windows.Forms.Padding(4)
  836.         Me.Gyp_biaoqian23.myNLforecolor = System.Drawing.SystemColors.ControlText
  837.         Me.Gyp_biaoqian23.myNLtxt = "初一"
  838.         Me.Gyp_biaoqian23.myYLforecolor = System.Drawing.SystemColors.ControlText
  839.         Me.Gyp_biaoqian23.myYLtxt = "1"
  840.         Me.Gyp_biaoqian23.Name = "Gyp_biaoqian23"
  841.         Me.Gyp_biaoqian23.Size = New System.Drawing.Size(46, 36)
  842.         Me.Gyp_biaoqian23.TabIndex = 0
  843.         Me.Gyp_biaoqian23.TabStop = False
  844.         Me.Gyp_biaoqian23.Tag = "22"
  845.         '
  846.         'Gyp_biaoqian22
  847.         '
  848.         Me.Gyp_biaoqian22.AutoSize = True
  849.         Me.Gyp_biaoqian22.BackColor = System.Drawing.Color.Transparent
  850.         Me.Gyp_biaoqian22.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  851.         Me.Gyp_biaoqian22.Location = New System.Drawing.Point(3, 116)
  852.         Me.Gyp_biaoqian22.Margin = New System.Windows.Forms.Padding(4)
  853.         Me.Gyp_biaoqian22.myNLforecolor = System.Drawing.SystemColors.ControlText
  854.         Me.Gyp_biaoqian22.myNLtxt = "初一"
  855.         Me.Gyp_biaoqian22.myYLforecolor = System.Drawing.Color.Red
  856.         Me.Gyp_biaoqian22.myYLtxt = "1"
  857.         Me.Gyp_biaoqian22.Name = "Gyp_biaoqian22"
  858.         Me.Gyp_biaoqian22.Size = New System.Drawing.Size(46, 36)
  859.         Me.Gyp_biaoqian22.TabIndex = 0
  860.         Me.Gyp_biaoqian22.TabStop = False
  861.         Me.Gyp_biaoqian22.Tag = "21"
  862.         '
  863.         'Gyp_biaoqian16
  864.         '
  865.         Me.Gyp_biaoqian16.AutoSize = True
  866.         Me.Gyp_biaoqian16.BackColor = System.Drawing.Color.Transparent
  867.         Me.Gyp_biaoqian16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  868.         Me.Gyp_biaoqian16.Location = New System.Drawing.Point(48, 81)
  869.         Me.Gyp_biaoqian16.Margin = New System.Windows.Forms.Padding(4)
  870.         Me.Gyp_biaoqian16.myNLforecolor = System.Drawing.SystemColors.ControlText
  871.         Me.Gyp_biaoqian16.myNLtxt = "初一"
  872.         Me.Gyp_biaoqian16.myYLforecolor = System.Drawing.SystemColors.ControlText
  873.         Me.Gyp_biaoqian16.myYLtxt = "1"
  874.         Me.Gyp_biaoqian16.Name = "Gyp_biaoqian16"
  875.         Me.Gyp_biaoqian16.Size = New System.Drawing.Size(46, 36)
  876.         Me.Gyp_biaoqian16.TabIndex = 15
  877.         Me.Gyp_biaoqian16.TabStop = False
  878.         Me.Gyp_biaoqian16.Tag = "15"
  879.         '
  880.         'Gyp_biaoqian15
  881.         '
  882.         Me.Gyp_biaoqian15.AutoSize = True
  883.         Me.Gyp_biaoqian15.BackColor = System.Drawing.Color.Transparent
  884.         Me.Gyp_biaoqian15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  885.         Me.Gyp_biaoqian15.Location = New System.Drawing.Point(3, 81)
  886.         Me.Gyp_biaoqian15.Margin = New System.Windows.Forms.Padding(4)
  887.         Me.Gyp_biaoqian15.myNLforecolor = System.Drawing.SystemColors.ControlText
  888.         Me.Gyp_biaoqian15.myNLtxt = "初一"
  889.         Me.Gyp_biaoqian15.myYLforecolor = System.Drawing.Color.Red
  890.         Me.Gyp_biaoqian15.myYLtxt = "1"
  891.         Me.Gyp_biaoqian15.Name = "Gyp_biaoqian15"
  892.         Me.Gyp_biaoqian15.Size = New System.Drawing.Size(46, 36)
  893.         Me.Gyp_biaoqian15.TabIndex = 14
  894.         Me.Gyp_biaoqian15.TabStop = False
  895.         Me.Gyp_biaoqian15.Tag = "14"
  896.         '
  897.         'Gyp_biaoqian9
  898.         '
  899.         Me.Gyp_biaoqian9.AutoSize = True
  900.         Me.Gyp_biaoqian9.BackColor = System.Drawing.Color.Transparent
  901.         Me.Gyp_biaoqian9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  902.         Me.Gyp_biaoqian9.Location = New System.Drawing.Point(48, 46)
  903.         Me.Gyp_biaoqian9.Margin = New System.Windows.Forms.Padding(4)
  904.         Me.Gyp_biaoqian9.myNLforecolor = System.Drawing.SystemColors.ControlText
  905.         Me.Gyp_biaoqian9.myNLtxt = "初一"
  906.         Me.Gyp_biaoqian9.myYLforecolor = System.Drawing.SystemColors.ControlText
  907.         Me.Gyp_biaoqian9.myYLtxt = "1"
  908.         Me.Gyp_biaoqian9.Name = "Gyp_biaoqian9"
  909.         Me.Gyp_biaoqian9.Size = New System.Drawing.Size(46, 36)
  910.         Me.Gyp_biaoqian9.TabIndex = 8
  911.         Me.Gyp_biaoqian9.TabStop = False
  912.         Me.Gyp_biaoqian9.Tag = "8"
  913.         '
  914.         'Gyp_biaoqian8
  915.         '
  916.         Me.Gyp_biaoqian8.AutoSize = True
  917.         Me.Gyp_biaoqian8.BackColor = System.Drawing.Color.Transparent
  918.         Me.Gyp_biaoqian8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  919.         Me.Gyp_biaoqian8.Location = New System.Drawing.Point(3, 46)
  920.         Me.Gyp_biaoqian8.Margin = New System.Windows.Forms.Padding(4)
  921.         Me.Gyp_biaoqian8.myNLforecolor = System.Drawing.SystemColors.ControlText
  922.         Me.Gyp_biaoqian8.myNLtxt = "初一"
  923.         Me.Gyp_biaoqian8.myYLforecolor = System.Drawing.Color.Red
  924.         Me.Gyp_biaoqian8.myYLtxt = "1"
  925.         Me.Gyp_biaoqian8.Name = "Gyp_biaoqian8"
  926.         Me.Gyp_biaoqian8.Size = New System.Drawing.Size(46, 36)
  927.         Me.Gyp_biaoqian8.TabIndex = 7
  928.         Me.Gyp_biaoqian8.TabStop = False
  929.         Me.Gyp_biaoqian8.Tag = "7"
  930.         '
  931.         'Gyp_biaoqian1
  932.         '
  933.         Me.Gyp_biaoqian1.AutoSize = True
  934.         Me.Gyp_biaoqian1.BackColor = System.Drawing.Color.Transparent
  935.         Me.Gyp_biaoqian1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  936.         Me.Gyp_biaoqian1.Location = New System.Drawing.Point(48, 11)
  937.         Me.Gyp_biaoqian1.Margin = New System.Windows.Forms.Padding(4)
  938.         Me.Gyp_biaoqian1.myNLforecolor = System.Drawing.SystemColors.ControlText
  939.         Me.Gyp_biaoqian1.myNLtxt = "初一"
  940.         Me.Gyp_biaoqian1.myYLforecolor = System.Drawing.SystemColors.ControlText
  941.         Me.Gyp_biaoqian1.myYLtxt = "1"
  942.         Me.Gyp_biaoqian1.Name = "Gyp_biaoqian1"
  943.         Me.Gyp_biaoqian1.Size = New System.Drawing.Size(46, 36)
  944.         Me.Gyp_biaoqian1.TabIndex = 1
  945.         Me.Gyp_biaoqian1.TabStop = False
  946.         Me.Gyp_biaoqian1.Tag = "1"
  947.         '
  948.         'g_wannl
  949.         '
  950.         Me.AllowDrop = True
  951.         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
  952.         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
  953.         Me.BackColor = System.Drawing.SystemColors.Control
  954.         Me.Controls.Add(Me.Label12)
  955.         Me.Controls.Add(Me.Label11)
  956.         Me.Controls.Add(Me.Label10)
  957.         Me.Controls.Add(Me.Label9)
  958.         Me.Controls.Add(Me.ComboBox2)
  959.         Me.Controls.Add(Me.ComboBox1)
  960.         Me.Controls.Add(Me.Panel2)
  961.         Me.Controls.Add(Me.Panel3)
  962.         Me.Controls.Add(Me.Panel1)
  963.         Me.MinimumSize = New System.Drawing.Size(325, 35)
  964.         Me.Name = "g_wannl"
  965.         Me.Size = New System.Drawing.Size(327, 282)
  966.         Me.Panel1.ResumeLayout(False)
  967.         Me.Panel2.ResumeLayout(False)
  968.         Me.Panel2.PerformLayout()
  969.         Me.Panel3.ResumeLayout(False)
  970.         Me.Panel3.PerformLayout()
  971.         Me.ResumeLayout(False)
  972.         Me.PerformLayout()

  973.     End Sub
  974.     Friend WithEvents Label1 As System.Windows.Forms.Label
  975.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  976.     Friend WithEvents Label2 As System.Windows.Forms.Label
  977.     Friend WithEvents Panel2 As System.Windows.Forms.Panel
  978.     Friend WithEvents Label8 As System.Windows.Forms.Label
  979.     Friend WithEvents Label7 As System.Windows.Forms.Label
  980.     Friend WithEvents Label6 As System.Windows.Forms.Label
  981.     Friend WithEvents Label5 As System.Windows.Forms.Label
  982.     Friend WithEvents Label4 As System.Windows.Forms.Label
  983.     Friend WithEvents Label3 As System.Windows.Forms.Label
  984.     Friend WithEvents Panel3 As System.Windows.Forms.Panel
  985.     Friend WithEvents Gyp_biaoqian7 As wnlkj.g_biaoqian
  986.     Friend WithEvents Gyp_biaoqian6 As wnlkj.g_biaoqian
  987.     Friend WithEvents Gyp_biaoqian5 As wnlkj.g_biaoqian
  988.     Friend WithEvents Gyp_biaoqian4 As wnlkj.g_biaoqian
  989.     Friend WithEvents Gyp_biaoqian3 As wnlkj.g_biaoqian
  990.     Friend WithEvents Gyp_biaoqian1 As wnlkj.g_biaoqian
  991.     Friend WithEvents Gyp_biaoqian28 As wnlkj.g_biaoqian
  992.     Friend WithEvents Gyp_biaoqian21 As wnlkj.g_biaoqian
  993.     Friend WithEvents Gyp_biaoqian14 As wnlkj.g_biaoqian
  994.     Friend WithEvents Gyp_biaoqian34 As wnlkj.g_biaoqian
  995.     Friend WithEvents Gyp_biaoqian27 As wnlkj.g_biaoqian
  996.     Friend WithEvents Gyp_biaoqian20 As wnlkj.g_biaoqian
  997.     Friend WithEvents Gyp_biaoqian13 As wnlkj.g_biaoqian
  998.     Friend WithEvents Gyp_biaoqian33 As wnlkj.g_biaoqian
  999.     Friend WithEvents Gyp_biaoqian26 As wnlkj.g_biaoqian
  1000.     Friend WithEvents Gyp_biaoqian19 As wnlkj.g_biaoqian
  1001.     Friend WithEvents Gyp_biaoqian12 As wnlkj.g_biaoqian
  1002.     Friend WithEvents Gyp_biaoqian32 As wnlkj.g_biaoqian
  1003.     Friend WithEvents Gyp_biaoqian25 As wnlkj.g_biaoqian
  1004.     Friend WithEvents Gyp_biaoqian18 As wnlkj.g_biaoqian
  1005.     Friend WithEvents Gyp_biaoqian11 As wnlkj.g_biaoqian
  1006.     Friend WithEvents Gyp_biaoqian31 As wnlkj.g_biaoqian
  1007.     Friend WithEvents Gyp_biaoqian24 As wnlkj.g_biaoqian
  1008.     Friend WithEvents Gyp_biaoqian17 As wnlkj.g_biaoqian
  1009.     Friend WithEvents Gyp_biaoqian10 As wnlkj.g_biaoqian
  1010.     Friend WithEvents Gyp_biaoqian30 As wnlkj.g_biaoqian
  1011.     Friend WithEvents Gyp_biaoqian29 As wnlkj.g_biaoqian
  1012.     Friend WithEvents Gyp_biaoqian23 As wnlkj.g_biaoqian
  1013.     Friend WithEvents Gyp_biaoqian22 As wnlkj.g_biaoqian
  1014.     Friend WithEvents Gyp_biaoqian16 As wnlkj.g_biaoqian
  1015.     Friend WithEvents Gyp_biaoqian15 As wnlkj.g_biaoqian
  1016.     Friend WithEvents Gyp_biaoqian9 As wnlkj.g_biaoqian
  1017.     Friend WithEvents Gyp_biaoqian8 As wnlkj.g_biaoqian
  1018.     Friend WithEvents Gyp_biaoqian2 As wnlkj.g_biaoqian
  1019.     Friend WithEvents Gyp_biaoqian37 As wnlkj.g_biaoqian
  1020.     Friend WithEvents Gyp_biaoqian36 As wnlkj.g_biaoqian
  1021.     Friend WithEvents Gyp_biaoqian35 As wnlkj.g_biaoqian
  1022.     Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
  1023.     Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
  1024.     Friend WithEvents Label12 As System.Windows.Forms.Label
  1025.     Friend WithEvents Label11 As System.Windows.Forms.Label
  1026.     Friend WithEvents Label10 As System.Windows.Forms.Label
  1027.     Friend WithEvents Label9 As System.Windows.Forms.Label
  1028.     Friend WithEvents Label13 As System.Windows.Forms.Label
  1029.     Friend WithEvents Label14 As System.Windows.Forms.Label

  1030. End Class
复制代码
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-12-21 20:50:33 | 显示全部楼层
  1. Public Class g_wannl
  2.     Dim nongDat() As String
  3.     Private Biaonian As Integer '用于修正年
  4.     Private Jieqi As String = "小寒大寒立春雨水惊蛰春分清明谷雨立夏小满芒种夏至小暑大暑立秋处暑白露秋分寒露霜降立冬小雪大雪冬至"
  5.     Private myCurrenYear As Integer = 0
  6.     Private myCurrenMonth As Integer = 0
  7.     Private myCurrenDay As Integer = 0
  8.     Private Sub setdat() '给数组赋值用于查询
  9.         '数据结构:1-12位为农历月份,30天标为1,29天标为0,13位为该年闰月大小,14位为闰月数,A为10月,B为11月,C为12月,
  10.         '           15-18位为该年正月初一的公历数
  11.         '闰月月份数比正常大1,例:1900年应为闰8月,数据中为9
  12.         ReDim nongDat(2101)
  13.         nongDat(1899) = "101010110101000210"
  14.         nongDat(1900) = "010010111101090131"
  15.         nongDat(1901) = "010010101110000219"
  16.         nongDat(1902) = "101001010111000208"
  17.         nongDat(1903) = "010101001101060129"
  18.         nongDat(1904) = "110100100110000216"
  19.         nongDat(1905) = "110110010101000204"
  20.         nongDat(1906) = "011001010101150125"
  21.         nongDat(1907) = "010101101010000213"
  22.         nongDat(1908) = "100110101101000202"
  23.         nongDat(1909) = "010101011101030122"
  24.         nongDat(1910) = "010010101110000210"
  25.         nongDat(1911) = "101001011011070130"
  26.         nongDat(1912) = "101001001101000218"
  27.         nongDat(1913) = "110100100101000206"
  28.         nongDat(1914) = "110100100101160126"
  29.         nongDat(1915) = "101101010100000214"
  30.         nongDat(1916) = "110101101010000203"
  31.         nongDat(1917) = "101011011010030123"
  32.         nongDat(1918) = "100101011011000211"
  33.         nongDat(1919) = "010010010111180201"
  34.         nongDat(1920) = "010010010111000220"
  35.         nongDat(1921) = "101001001011000208"
  36.         nongDat(1922) = "101001001011060128"
  37.         nongDat(1923) = "011010100101000216"
  38.         nongDat(1924) = "011011010100000205"
  39.         nongDat(1925) = "101010110101150124"
  40.         nongDat(1926) = "001010110110000213"
  41.         nongDat(1927) = "100101010111000202"
  42.         nongDat(1928) = "010100101111030123"
  43.         nongDat(1929) = "010010010111000210"
  44.         nongDat(1930) = "011001010110070130"
  45.         nongDat(1931) = "110101001010000217"
  46.         nongDat(1932) = "111010100101000203"
  47.         nongDat(1933) = "011010101001160126"
  48.         nongDat(1934) = "010110101101000214"
  49.         nongDat(1935) = "001010110110000204"
  50.         nongDat(1936) = "100001101110140124"
  51.         nongDat(1937) = "100100101110000211"
  52.         nongDat(1938) = "110010001101180131"
  53.         nongDat(1939) = "110010010101000219"
  54.         nongDat(1940) = "110101001010000208"
  55.         nongDat(1941) = "110110001010170127"
  56.         nongDat(1942) = "101101010101000215"
  57.         nongDat(1943) = "010101101010000205"
  58.         nongDat(1944) = "101001011011150125"
  59.         nongDat(1945) = "001001011101000213"
  60.         nongDat(1946) = "100100101101000202"
  61.         nongDat(1947) = "110100101011030122"
  62.         nongDat(1948) = "101010010101000210"
  63.         nongDat(1949) = "101101010101080129"
  64.         nongDat(1950) = "011011001010000217"
  65.         nongDat(1951) = "101101010101000206"
  66.         nongDat(1952) = "010100110101160127"
  67.         nongDat(1953) = "010011011010000214"
  68.         nongDat(1954) = "101001011011000203"
  69.         nongDat(1955) = "010001010111140124"
  70.         nongDat(1956) = "010100101011000212"
  71.         nongDat(1957) = "101010011010090131"
  72.         nongDat(1958) = "111010010101000218"
  73.         nongDat(1959) = "011010101010000208"
  74.         nongDat(1960) = "101011101010070128"
  75.         nongDat(1961) = "101010110101000215"
  76.         nongDat(1962) = "010010110110000205"
  77.         nongDat(1963) = "101010101110050125"
  78.         nongDat(1964) = "101001010111000213"
  79.         nongDat(1965) = "010100100110000202"
  80.         nongDat(1966) = "111100100110040121"
  81.         nongDat(1967) = "110110010101000209"
  82.         nongDat(1968) = "010110110101080130"
  83.         nongDat(1969) = "010101101010000217"
  84.         nongDat(1970) = "100101101101000206"
  85.         nongDat(1971) = "010011011101060127"
  86.         nongDat(1972) = "010010101101000215"
  87.         nongDat(1973) = "101001001101000203"
  88.         nongDat(1974) = "110101001101050123"
  89.         nongDat(1975) = "110100100101000211"
  90.         nongDat(1976) = "110101010101090131"
  91.         nongDat(1977) = "101101010100000218"
  92.         nongDat(1978) = "101101101010000207"
  93.         nongDat(1979) = "100101011010170128"
  94.         nongDat(1980) = "100101011011000216"
  95.         nongDat(1981) = "010010011011000205"
  96.         nongDat(1982) = "101010010111050125"
  97.         nongDat(1983) = "101001001011000213"
  98.         nongDat(1984) = "1011001001110B0202"
  99.         nongDat(1985) = "011010100101000220"
  100.         nongDat(1986) = "011011010100000209"
  101.         nongDat(1987) = "101011110100070129"
  102.         nongDat(1988) = "101010110110000217"
  103.         nongDat(1989) = "100101010111000206"
  104.         nongDat(1990) = "010010101111060127"
  105.         nongDat(1991) = "010010010111000215"
  106.         nongDat(1992) = "011001001011000204"
  107.         nongDat(1993) = "011101001010040123"
  108.         nongDat(1994) = "111010100101000210"
  109.         nongDat(1995) = "011010110101090131"
  110.         nongDat(1996) = "010110101100000219"
  111.         nongDat(1997) = "101010110110000207"
  112.         nongDat(1998) = "100101101101060128"
  113.         nongDat(1999) = "100100101110000216"
  114.         nongDat(2000) = "110010010110000205"
  115.         nongDat(2001) = "010110010101050124"
  116.         nongDat(2002) = "110101001010000212"
  117.         nongDat(2003) = "110110100101000201"
  118.         nongDat(2004) = "011101010101030122"
  119.         nongDat(2005) = "010101101010000209"
  120.         nongDat(2006) = "101010111011080129"
  121.         nongDat(2007) = "001001011001000218"
  122.         nongDat(2008) = "100100101101000207"
  123.         nongDat(2009) = "110010101011060126"
  124.         nongDat(2010) = "101010010101000214"
  125.         nongDat(2011) = "101101001010000203"
  126.         nongDat(2012) = "101110101010050123"
  127.         nongDat(2013) = "101011010101000210"
  128.         nongDat(2014) = "0101010111010A0131"
  129.         nongDat(2015) = "010010111010000219"
  130.         nongDat(2016) = "101001011011000208"
  131.         nongDat(2017) = "010100010111170128"
  132.         nongDat(2018) = "010100101011000216"
  133.         nongDat(2019) = "101010010011000205"
  134.         nongDat(2020) = "011110010101050125"
  135.         nongDat(2021) = "011010101010000212"
  136.         nongDat(2022) = "101011010101000201"
  137.         nongDat(2023) = "010110110101030122"
  138.         nongDat(2024) = "010010110110000210"
  139.         nongDat(2025) = "101001101110070129"
  140.         nongDat(2026) = "101001001110000217"
  141.         nongDat(2027) = "110100100110000206"
  142.         nongDat(2028) = "111010100110060126"
  143.         nongDat(2029) = "110101010011000213"
  144.         nongDat(2030) = "010110101010000203"
  145.         nongDat(2031) = "011101101010040123"
  146.         nongDat(2032) = "100101101101000211"
  147.         nongDat(2033) = "0100101011110C0131"
  148.         nongDat(2034) = "010010101101000219"
  149.         nongDat(2035) = "101001001101000208"
  150.         nongDat(2036) = "110100001011170128"
  151.         nongDat(2037) = "110100100101000215"
  152.         nongDat(2038) = "110101010010000204"
  153.         nongDat(2039) = "110111010100060124"
  154.         nongDat(2040) = "101101011010000212"
  155.         nongDat(2041) = "010101101101000201"
  156.         nongDat(2042) = "010101011011030122"
  157.         nongDat(2043) = "010010011011000210"
  158.         nongDat(2044) = "101001010111080130"
  159.         nongDat(2045) = "101001001011000217"
  160.         nongDat(2046) = "101010100101000206"
  161.         nongDat(2047) = "101100100101160126"
  162.         nongDat(2048) = "011011010010000214"
  163.         nongDat(2049) = "101011011010000202"
  164.         nongDat(2050) = "010010110110140123"
  165.         nongDat(2051) = "100100110111000211"
  166.         nongDat(2052) = "010010011111090201"
  167.         nongDat(2053) = "010010010111000219"
  168.         nongDat(2054) = "011001001011000208"
  169.         nongDat(2055) = "011000001010170128"
  170.         nongDat(2056) = "111010100101000215"
  171.         nongDat(2057) = "011010101010000204"
  172.         nongDat(2058) = "101001101100150124"
  173.         nongDat(2059) = "101010101110000212"
  174.         nongDat(2060) = "100100101110000202"
  175.         nongDat(2061) = "110100101110040121"
  176.         nongDat(2062) = "110010010110000209"
  177.         nongDat(2063) = "110101010101080129"
  178.         nongDat(2064) = "110101001010000217"
  179.         nongDat(2065) = "110110100101000205"
  180.         nongDat(2066) = "010111010101060126"
  181.         nongDat(2067) = "010101101010000214"
  182.         nongDat(2068) = "101001101101000203"
  183.         nongDat(2069) = "010101011101050123"
  184.         nongDat(2070) = "010100101101000211"
  185.         nongDat(2071) = "101010011011090131"
  186.         nongDat(2072) = "101010010101000219"
  187.         nongDat(2073) = "101101001010000207"
  188.         nongDat(2074) = "101101101010070127"
  189.         nongDat(2075) = "101011010101000215"
  190.         nongDat(2076) = "010101011010000205"
  191.         nongDat(2077) = "101010111010050124"
  192.         nongDat(2078) = "101001011011000212"
  193.         nongDat(2079) = "010100101011000202"
  194.         nongDat(2080) = "101100100111040122"
  195.         nongDat(2081) = "011010010011000209"
  196.         nongDat(2082) = "011100110011080129"
  197.         nongDat(2083) = "011010101010000217"
  198.         nongDat(2084) = "101011010101000206"
  199.         nongDat(2085) = "010010110101160126"
  200.         nongDat(2086) = "010010110110000214"
  201.         nongDat(2087) = "101001010111000203"
  202.         nongDat(2088) = "010101001110050124"
  203.         nongDat(2089) = "110100010110000210"
  204.         nongDat(2090) = "111010010110090130"
  205.         nongDat(2091) = "110101010010000218"
  206.         nongDat(2092) = "110110101010000207"
  207.         nongDat(2093) = "011010101010170127"
  208.         nongDat(2094) = "010101101101000215"
  209.         nongDat(2095) = "010010101110000205"
  210.         nongDat(2096) = "101010011101050125"
  211.         nongDat(2097) = "101000101101000212"
  212.         nongDat(2098) = "110100010101000201"
  213.         nongDat(2099) = "111100100101030121"
  214.         nongDat(2100) = "110101010010000209"
  215.         nongDat(2101) = "110110110010080129"
  216.     End Sub
  217.     '根据阳历计算该日是星期几?
  218.     Public Function GetXingQi(ByVal ac As Integer, ByVal bc As Integer, ByVal cc As Integer) As String
  219.         Dim C As Integer, Y As Integer, M As Integer, D As Integer, XX As Integer
  220.         GetXingQi = ""
  221.         C = Int(ac.ToString.Substring(0, 2))
  222.         Y = Int(ac.ToString.Substring(2, 2))
  223.         'MsgBox(C.ToString & "||" & Y.ToString)
  224.         M = bc
  225.         D = cc
  226.         If M = 1 Then
  227.             M = 13
  228.             If Y = 0 Then
  229.                 Y = 99
  230.                 C = C - 1
  231.             Else
  232.                 Y = Y - 1
  233.             End If
  234.         End If

  235.         If M = 2 Then
  236.             If Y = 0 Then
  237.                 Y = 99
  238.                 C = C - 1
  239.             Else
  240.                 Y = Y - 1
  241.             End If
  242.             M = 14
  243.         End If
  244.         XX = (Int(C / 4) - 2 * C + Y + Int(Y / 4) + Int(26 * (M + 1) / 10) + D - 1) Mod 7
  245.         Select Case XX
  246.             Case 1, -6
  247.                 GetXingQi = "一"
  248.             Case 2, -5
  249.                 GetXingQi = "二"
  250.             Case 3, -4
  251.                 GetXingQi = "三"
  252.             Case 4, -3
  253.                 GetXingQi = "四"
  254.             Case 5, -2
  255.                 GetXingQi = "五"
  256.             Case 6, -1
  257.                 GetXingQi = "六"
  258.             Case 0
  259.                 GetXingQi = "天"
  260.         End Select
  261.         Return GetXingQi
  262.     End Function
  263.     Sub New()
  264.         ' This call is required by the Windows Form Designer.
  265.         InitializeComponent()
  266.         ' Add any initialization after the InitializeComponent() call.
  267.         Me.Height = 35
  268.         Me.Width = 330
  269.         setdat()
  270.     End Sub
  271.     Private Sub g_wannl_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  272.         Dim Tstr As String = "今日 "
  273.         Dim tst As String = Format(Today(), "yyyy年MM月dd日")
  274.         myCurrenYear = CInt(tst.Substring(0, 4))
  275.         myCurrenMonth = CInt(tst.Substring(5, 2))
  276.         myCurrenDay = CInt(tst.Substring(8, 2))
  277.         Label1.Text = "g_日历"
  278.         ComboBox2.SelectedIndex = myCurrenYear - 1900
  279.         ComboBox1.SelectedIndex = myCurrenMonth - 1
  280.         For Each latxt1 As g_biaoqian In Panel3.Controls
  281.             AddHandler latxt1.GotFocus, AddressOf g_biaoqian_GotFocus
  282.         Next
  283.     End Sub
  284.     Private Sub wannl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

  285.     End Sub
  286.     Private Sub showData(ByVal myYear As Integer, ByVal myMonth As Integer)
  287.         '根据年份、月份显示界面
  288.         Dim dayNum As Integer = 0
  289.         Select Case myMonth '根据月份确定该月有几天
  290.             Case 1, 3, 5, 7, 8, 10, 12
  291.                 dayNum = 31
  292.             Case 4, 6, 9, 11
  293.                 dayNum = 30
  294.             Case 2
  295.                 dayNum = IIf((RUNnian(myYear)), 29, 28)
  296.         End Select
  297.         If myCurrenDay > dayNum Then
  298.             myCurrenDay = 1
  299.         End If
  300.         Dim xq As String = GetXingQi(myYear, myMonth, 1)
  301.         Dim hideIndx As Integer
  302.         Select Case xq
  303.             Case "一"
  304.                 hideIndx = 1
  305.             Case "二"
  306.                 hideIndx = 2
  307.             Case "三"
  308.                 hideIndx = 3
  309.             Case "四"
  310.                 hideIndx = 4
  311.             Case "五"
  312.                 hideIndx = 5
  313.             Case "六"
  314.                 hideIndx = 6
  315.             Case "七"
  316.                 hideIndx = 0
  317.         End Select
  318.         Dim jiqi1 As Integer = getJieqi(myYear, myMonth * 2 - 2)
  319.         Dim jiqi2 As Integer = getJieqi(myYear, myMonth * 2 - 1)
  320.         For Each latxt As g_biaoqian In Panel3.Controls
  321.             If latxt.Tag < hideIndx Or latxt.Tag > hideIndx + dayNum - 1 Then
  322.                 latxt.myYLtxt = ""
  323.                 latxt.myNLtxt = ""
  324.             Else
  325.                 latxt.myYLtxt = (latxt.Tag - hideIndx + 1).ToString
  326.                 If latxt.Tag - hideIndx + 1 - jiqi1 = 0 Then
  327.                     latxt.myNLtxt = Jieqi.Substring((4 * (myMonth - 1)), 2)
  328.                     latxt.myNLforecolor = Color.Blue
  329.                 ElseIf latxt.Tag - hideIndx + 1 - jiqi2 = 0 Then
  330.                     latxt.myNLtxt = Jieqi.Substring((4 * (myMonth - 1) + 2), 2)
  331.                     latxt.myNLforecolor = Color.Blue
  332.                 ElseIf latxt.Tag - hideIndx + 1 - jiqi1 <> 0 And latxt.Tag - hideIndx + 1 - jiqi2 <> 0 Then
  333.                     latxt.myNLforecolor = Color.Black
  334.                     If (Getnongli1(myYear, myMonth, CInt(latxt.myYLtxt))).Substring(4, 2) = "初一" Then
  335.                         latxt.myNLtxt = (Getnongli1(myYear, myMonth, CInt(latxt.myYLtxt))).Substring(0, 4)
  336.                     Else
  337.                         latxt.myNLtxt = (Getnongli1(myYear, myMonth, CInt(latxt.myYLtxt))).Substring(4, 2)
  338.                     End If
  339.                 End If
  340.                 If getylJR(myYear, myMonth, CInt(latxt.myYLtxt)) = "" Then
  341.                 Else
  342.                     latxt.myNLtxt = getylJR(myYear, myMonth, CInt(latxt.myYLtxt))
  343.                     latxt.myNLforecolor = Color.Red
  344.                 End If
  345.                 If getnlJR(myYear, myMonth, CInt(latxt.myYLtxt)) = "" Then
  346.                 Else
  347.                     latxt.myNLtxt = getnlJR(myYear, myMonth, CInt(latxt.myYLtxt))
  348.                     latxt.myNLforecolor = Color.Green
  349.                 End If
  350.                 If (CInt(latxt.myYLtxt) = myCurrenDay) Then
  351.                     biqian(latxt.myYLtxt)
  352.                     latxt.Select()
  353.                 End If
  354.             End If
  355.         Next
  356.     End Sub
  357.     '判断某年是否为闰年
  358.     Private Function RUNnian(ByVal aa As Integer) As Boolean
  359.         Dim tf As Boolean = False
  360.         If aa Mod 4 = 0 Then
  361.             If aa Mod 400 = 0 Then
  362.                 tf = True
  363.             ElseIf aa Mod 100 = 0 Then
  364.                 tf = False
  365.             Else
  366.                 tf = True
  367.             End If
  368.         Else
  369.             tf = False
  370.         End If
  371.         Return tf
  372.     End Function
  373.     '计算二十四节气方法
  374.     Private Function getJieqi(ByVal myYear As Integer, ByVal jq As Integer) As String
  375.         getJieqi = ""
  376.         Dim a As Integer = 0
  377.         Select Case jq
  378.             Case 0 '小寒
  379.                 If myYear < 2000 And myYear >= 1900 Then
  380.                     If RUNnian(myYear) Then
  381.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 6.11) - Int(Val(myYear.ToString.Substring(2, 2)) / 4 - 0.25)
  382.                     Else
  383.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 6.11) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  384.                     End If
  385.                     If myYear = 1982 Then a += 1
  386.                 End If
  387.                 If myYear < 2100 And myYear > 1999 Then
  388.                     If RUNnian(myYear) Then
  389.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 5.4055) - Int(Val(myYear.ToString.Substring(2, 2)) / 4 - 0.25)
  390.                     Else
  391.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 5.4055) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  392.                     End If
  393.                     If myYear = 2019 Then a -= 1
  394.                 End If
  395.                 getJieqi = a.ToString
  396.             Case 1 '大寒
  397.                 If myYear < 2000 And myYear >= 1900 Then
  398.                     If RUNnian(myYear) Then
  399.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 20.84) - Int(Val(myYear.ToString.Substring(2, 2)) / 4 - 0.25)
  400.                     Else
  401.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 20.84) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  402.                     End If

  403.                 End If
  404.                 If myYear < 2100 And myYear > 1999 Then
  405.                     If RUNnian(myYear) Then
  406.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 20.12) - Int(Val(myYear.ToString.Substring(2, 2)) / 4 - 0.25)
  407.                     Else
  408.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 20.12) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  409.                     End If
  410.                     If myYear = 2082 Then a += 1
  411.                 End If
  412.                 getJieqi = a.ToString
  413.             Case 2 '立春
  414.                 If myYear < 2000 And myYear >= 1900 Then
  415.                     If RUNnian(myYear) Then
  416.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 4.6295) - Int(Val(myYear.ToString.Substring(2, 2)) / 4 - 0.25)
  417.                     Else
  418.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 4.6295) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  419.                     End If
  420.                 End If
  421.                 If myYear < 2100 And myYear > 1999 Then
  422.                     If RUNnian(myYear) Then
  423.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 3.87) - Int(Val(myYear.ToString.Substring(2, 2)) / 4 - 0.25)
  424.                     Else
  425.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 3.87) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  426.                     End If
  427.                 End If
  428.                 If myYear < 2200 And myYear > 2099 Then
  429.                     If RUNnian(myYear) Then
  430.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 4.15) - Int(Val(myYear.ToString.Substring(2, 2)) / 4 - 0.25)
  431.                     Else
  432.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 4.15) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  433.                     End If
  434.                 End If
  435.                 getJieqi = a.ToString
  436.             Case 3 '雨水
  437.                 If myYear < 2000 And myYear >= 1900 Then
  438.                     If RUNnian(myYear) Then
  439.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 19.4599) - Int(Val(myYear.ToString.Substring(2, 2)) / 4 - 0.25)
  440.                     Else
  441.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 19.4599) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  442.                     End If
  443.                 End If
  444.                 If myYear < 2100 And myYear > 1999 Then
  445.                     If RUNnian(myYear) Then
  446.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 18.73) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  447.                     Else
  448.                         a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 18.73) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  449.                     End If
  450.                     If myYear = 2026 Then a -= 1
  451.                 End If
  452.                 getJieqi = a.ToString
  453.                 getJieqi = a.ToString
  454.             Case 4 '惊蛰
  455.                 If myYear < 2000 And myYear >= 1900 Then
  456.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 6.3826) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  457.                 End If
  458.                 If myYear < 2100 And myYear > 1999 Then
  459.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 5.63) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  460.                 End If
  461.                 getJieqi = a.ToString
  462.             Case 5 '春分
  463.                 If myYear < 2000 And myYear >= 1900 Then
  464.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 21.4155) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  465.                 End If
  466.                 If myYear < 2100 And myYear > 1999 Then
  467.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 20.646) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  468.                     If myYear = 2084 Then a += 1
  469.                 End If
  470.                 getJieqi = a.ToString
  471.             Case 6 '清明
  472.                 If myYear < 2000 And myYear >= 1900 Then
  473.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 5.59) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  474.                 End If
  475.                 If myYear < 2100 And myYear > 1999 Then
  476.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 4.81) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  477.                 End If
  478.                 getJieqi = a.ToString
  479.             Case 7 '谷雨
  480.                 If myYear < 2000 And myYear >= 1900 Then
  481.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 20.888) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  482.                 End If
  483.                 If myYear < 2100 And myYear > 1999 Then
  484.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 20.1) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  485.                 End If
  486.                 getJieqi = a.ToString
  487.             Case 8 '立夏
  488.                 If myYear < 2000 And myYear >= 1900 Then
  489.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 6.318) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  490.                     If myYear = 1911 Then a += 1
  491.                 End If
  492.                 If myYear < 2100 And myYear > 1999 Then
  493.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 5.52) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  494.                 End If
  495.                 getJieqi = a.ToString
  496.             Case 9 '小满
  497.                 If myYear < 2000 And myYear >= 1900 Then
  498.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 21.86) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)

  499.                 End If
  500.                 If myYear < 2100 And myYear > 1999 Then
  501.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 21.04) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  502.                     If myYear = 2008 Then a += 1
  503.                 End If
  504.                 getJieqi = a.ToString
  505.             Case 10 '芒种
  506.                 If myYear < 2000 And myYear >= 1900 Then
  507.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 6.5) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  508.                     If myYear = 1902 Then a += 1
  509.                 End If
  510.                 If myYear < 2100 And myYear > 1999 Then
  511.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 5.678) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)

  512.                 End If
  513.                 getJieqi = a.ToString
  514.             Case 11 '夏至
  515.                 If myYear < 2000 And myYear >= 1900 Then
  516.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 22.2) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  517.                     If myYear = 1928 Then a += 1
  518.                 End If
  519.                 If myYear < 2100 And myYear > 1999 Then
  520.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 21.37) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)

  521.                 End If
  522.                 getJieqi = a.ToString
  523.             Case 12 '小暑
  524.                 If myYear < 2000 And myYear >= 1900 Then
  525.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 7.928) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  526.                     If myYear = 1925 Then a += 1
  527.                 End If
  528.                 If myYear < 2100 And myYear > 1999 Then
  529.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 7.108) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  530.                     If myYear = 2016 Then a += 1
  531.                 End If
  532.                 getJieqi = a.ToString
  533.             Case 13 '大暑
  534.                 If myYear < 2000 And myYear >= 1900 Then
  535.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 23.65) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  536.                     If myYear = 1922 Then a += 1
  537.                 End If
  538.                 If myYear < 2100 And myYear > 1999 Then
  539.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 22.83) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  540.                 End If
  541.                 getJieqi = a.ToString
  542.             Case 14 '立秋
  543.                 If myYear < 2000 And myYear >= 1900 Then
  544.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 8.35) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)

  545.                 End If
  546.                 If myYear < 2100 And myYear > 1999 Then
  547.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 7.5) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  548.                     If myYear = 2002 Then a += 1
  549.                 End If
  550.                 getJieqi = a.ToString
  551.             Case 15 '处暑
  552.                 If myYear < 2000 And myYear >= 1900 Then
  553.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 23.95) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  554.                 End If
  555.                 If myYear < 2100 And myYear > 1999 Then
  556.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 23.13) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  557.                     If myYear = 2002 Then a += 1
  558.                 End If
  559.                 getJieqi = a.ToString
  560.             Case 16 '白露
  561.                 If myYear < 2000 And myYear >= 1900 Then
  562.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 8.44) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  563.                     If myYear = 1927 Then a += 1
  564.                 End If
  565.                 If myYear < 2100 And myYear > 1999 Then
  566.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 7.646) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  567.                 End If
  568.                 getJieqi = a.ToString
  569.             Case 17 '秋分
  570.                 If myYear < 2000 And myYear >= 1900 Then
  571.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 23.822) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  572.                     If myYear = 1942 Then a += 1
  573.                 End If
  574.                 If myYear < 2100 And myYear > 1999 Then
  575.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 23.042) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  576.                 End If
  577.                 getJieqi = a.ToString
  578.             Case 18 '寒露
  579.                 If myYear < 2000 And myYear >= 1900 Then
  580.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 9.098) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)

  581.                 End If
  582.                 If myYear < 2100 And myYear > 1999 Then
  583.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 8.318) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  584.                 End If
  585.                 getJieqi = a.ToString
  586.             Case 19 '霜降
  587.                 If myYear < 2000 And myYear >= 1900 Then
  588.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 24.218) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)

  589.                 End If
  590.                 If myYear < 2100 And myYear > 1999 Then
  591.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 23.438) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  592.                     If myYear = 2089 Then a += 1
  593.                 End If
  594.                 getJieqi = a.ToString
  595.             Case 20 '立冬
  596.                 If myYear < 2000 And myYear >= 1900 Then
  597.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 8.218) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)

  598.                 End If
  599.                 If myYear < 2100 And myYear > 1999 Then
  600.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 7.438) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  601.                     If myYear = 2089 Then a += 1
  602.                 End If
  603.                 getJieqi = a.ToString
  604.             Case 21 '小雪
  605.                 If myYear < 2000 And myYear >= 1900 Then
  606.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 23.08) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  607.                     If myYear = 1978 Then a += 1
  608.                 End If
  609.                 If myYear < 2100 And myYear > 1999 Then
  610.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 22.36) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)

  611.                 End If
  612.                 getJieqi = a.ToString
  613.             Case 22 '大雪
  614.                 If myYear < 2000 And myYear >= 1900 Then
  615.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 7.9) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  616.                     If myYear = 1954 Then a += 1
  617.                 End If
  618.                 If myYear < 2100 And myYear > 1999 Then
  619.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 7.18) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  620.                 End If
  621.                 getJieqi = a.ToString
  622.             Case 23 '冬至
  623.                 If myYear < 2000 And myYear >= 1900 Then
  624.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 22.6) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  625.                     If myYear = 1918 Then a -= 1
  626.                 End If
  627.                 If myYear < 2100 And myYear > 1999 Then
  628.                     a = Int(Val(myYear.ToString.Substring(2, 2)) * 0.2422 + 21.94) - Int(Val(myYear.ToString.Substring(2, 2)) / 4)
  629.                     If myYear = 2021 Then a -= 1
  630.                 End If
  631.                 getJieqi = a.ToString
  632.         End Select
  633.         Return getJieqi
  634.     End Function
  635.     '计算农历
  636.     Private Function Getnongli1(ByVal nY As Integer, ByVal nM As Integer, ByVal nD As Integer) As String
  637.         Getnongli1 = ""
  638.         Dim Tian As Integer = TianSU(nY, nM, nD)
  639.         Dim runY As Integer = 0 '得到闰月月份
  640.         Dim runyDx As Integer = 0 '得到闰月大小
  641.         Dim i As Integer = 0
  642.         Dim newDat As String = ""   '形成新的数据串(13位),如果没有闰月则取原数据前13位
  643.         Dim dx As String = " " '记录大小月
  644.         Dim Ry As String = " " '记录是不是为闰月
  645.         runY = GetRuny(Biaonian)
  646.         runyDx = Val(nongDat(Biaonian).Substring(12, 1))
  647.         If runY <> 0 Then
  648.             newDat = nongDat(Biaonian).Substring(0, runY - 1) & runyDx.ToString & nongDat(Biaonian).Substring(runY - 1, 12 - runY + 1)
  649.         Else
  650.             newDat = nongDat(Biaonian).Substring(0, 13)
  651.         End If
  652.         Dim YIYUE As Integer = 0
  653.         If Val(newDat.Substring(0, 1)) = 1 Then
  654.             YIYUE = 30
  655.         Else
  656.             YIYUE = 29
  657.         End If
  658.         If Tian < YIYUE Then
  659.             dx = IIf(YIYUE - 30 = 0, "大", "小")
  660.             Ry = " "
  661.             Getnongli1 += Ry + Cyue(0) + dx
  662.             Getnongli1 += Cri(Tian + 1)
  663.         Else
  664.             For i = 1 To 12
  665.                 If Val(newDat.Substring(i - 1, 1)) = 1 Then
  666.                     Tian -= 30
  667.                 Else
  668.                     Tian -= 29
  669.                 End If
  670.                 Dim max As Integer = 0
  671.                 If Val(newDat.Substring(i, 1)) = 1 Then
  672.                     max = 30
  673.                 Else
  674.                     max = 29
  675.                 End If
  676.                 If Tian < max Then
  677.                     dx = IIf(max - 30 = 0, "大", "小")
  678.                     Exit For
  679.                 End If
  680.             Next
  681.             If runY > 0 Then
  682.                 Ry = IIf((i = runY - 1), "闰", " ")
  683.                 If i >= runY - 1 Then
  684.                     i -= 1
  685.                 End If
  686.             Else
  687.                 Ry = " "
  688.             End If
  689.             Getnongli1 += Ry + Cyue(i) + dx
  690.             Getnongli1 += Cri(Tian + 1)
  691.         End If
  692.         'MsgBox(Getnongli1)
  693.         Return Getnongli1
  694.     End Function
  695.     '得到闰月的月份
  696.     Private Function GetRuny(ByVal n As Integer) As Integer
  697.         GetRuny = 0
  698.         Select Case nongDat(n).Substring(13, 1)
  699.             Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
  700.                 GetRuny = Val(nongDat(n).Substring(13, 1))
  701.             Case "A"
  702.                 GetRuny = 10
  703.             Case "B"
  704.                 GetRuny = 11
  705.             Case "C"
  706.                 GetRuny = 12
  707.         End Select
  708.         Return GetRuny
  709.     End Function
  710.     '将数值转换成日期
  711.     Private Function Cri(ByVal b As Integer) As String
  712.         Cri = ""
  713.         Select Case b
  714.             Case 1
  715.                 Cri += "初一"
  716.             Case 2
  717.                 Cri += "初二 "
  718.             Case 3
  719.                 Cri += "初三"
  720.             Case 4
  721.                 Cri += "初四"
  722.             Case 5
  723.                 Cri += "初五"
  724.             Case 6
  725.                 Cri += "初六"
  726.             Case 7
  727.                 Cri += "初七"
  728.             Case 8
  729.                 Cri += "初八"
  730.             Case 9
  731.                 Cri += "初九"
  732.             Case 10
  733.                 Cri += "初十"
  734.             Case 11
  735.                 Cri += "十一"
  736.             Case 12
  737.                 Cri += "十二 "
  738.             Case 13
  739.                 Cri += "十三"
  740.             Case 14
  741.                 Cri += "十四"
  742.             Case 15
  743.                 Cri += "十五"
  744.             Case 16
  745.                 Cri += "十六"
  746.             Case 17
  747.                 Cri += "十七"
  748.             Case 18
  749.                 Cri += "十八"
  750.             Case 19
  751.                 Cri += "十九"
  752.             Case 20
  753.                 Cri += "二十"
  754.             Case 21
  755.                 Cri += "廿一"
  756.             Case 22
  757.                 Cri += "廿二"
  758.             Case 23
  759.                 Cri += "廿三"
  760.             Case 24
  761.                 Cri += "廿四"
  762.             Case 25
  763.                 Cri += "廿五"
  764.             Case 26
  765.                 Cri += "廿六"
  766.             Case 27
  767.                 Cri += "廿七"
  768.             Case 28
  769.                 Cri += "廿八"
  770.             Case 29
  771.                 Cri += "廿九"
  772.             Case 30
  773.                 Cri += "三十"
  774.             Case 31
  775.                 Cri += "初一"
  776.         End Select
  777.         Return Cri
  778.     End Function
  779.     '将数字转换成月
  780.     Private Function Cyue(ByVal a As Integer) As String
  781.         Cyue = ""
  782.         Select Case a
  783.             Case 0
  784.                 Cyue = "正月"
  785.             Case 1
  786.                 Cyue = "二月"
  787.             Case 2
  788.                 Cyue = "三月"
  789.             Case 3
  790.                 Cyue = "四月"
  791.             Case 4
  792.                 Cyue = "五月"
  793.             Case 5
  794.                 Cyue = "六月"
  795.             Case 6
  796.                 Cyue = "七月"
  797.             Case 7
  798.                 Cyue = "八月"
  799.             Case 8
  800.                 Cyue = "九月"
  801.             Case 9
  802.                 Cyue = "十月"
  803.             Case 10
  804.                 Cyue = "冬月"
  805.             Case 11
  806.                 Cyue = "腊月"
  807.             Case 12
  808.                 Cyue = "正月"
  809.         End Select
  810.         Return Cyue
  811.     End Function
  812.     '计算公历天数,确定农历年份
  813.     Private Function TianSU(ByVal nY As Integer, ByVal nM As Integer, ByVal nD As Integer) As Integer
  814.         Dim i As Integer
  815.         Dim bM As Integer, bD As Integer
  816.         bM = Val(nongDat(nY).Substring(14, 2))
  817.         bD = Val(nongDat(nY).Substring(16, 2))
  818.         TianSU = 0
  819.         If nM > bM Or (nM = bM And nD >= bD) Then
  820.             Biaonian = nY
  821.             If nM = bM Then
  822.                 TianSU += nD - bD
  823.             Else
  824.                 For i = 1 To nM - bM - 1
  825.                     Select Case (bM + i)
  826.                         Case 1, 3, 5, 7, 8, 10, 12
  827.                             TianSU += 31
  828.                         Case 2
  829.                             If RUNnian(nY) Then
  830.                                 TianSU += 29
  831.                             Else
  832.                                 TianSU += 28
  833.                             End If
  834.                         Case 4, 6, 9, 11
  835.                             TianSU += 30
  836.                     End Select
  837.                 Next
  838.                 TianSU += nD
  839.                 Select Case bM
  840.                     Case 1, 3
  841.                         TianSU += 31 - bD
  842.                     Case 2
  843.                         If RUNnian(nY) Then
  844.                             TianSU += 29 - bD
  845.                         Else
  846.                             TianSU += 28 - bD
  847.                         End If
  848.                 End Select
  849.             End If
  850.         Else
  851.             Biaonian = nY - 1
  852.             If nM = 3 Then
  853.                 TianSU += 31
  854.                 If RUNnian(nY) Then
  855.                     TianSU += 29
  856.                 Else
  857.                     TianSU += 28
  858.                 End If
  859.             End If
  860.             If nM = 2 Then
  861.                 TianSU += 31
  862.             End If

  863.             TianSU += nD
  864.             bM = Val(nongDat(nY - 1).Substring(14, 2))
  865.             bD = Val(nongDat(nY - 1).Substring(16, 2))
  866.             For i = 12 To bM + 1 Step -1
  867.                 Select Case i
  868.                     Case 1, 3, 5, 7, 8, 10, 12
  869.                         TianSU += 31
  870.                     Case 2
  871.                         If RUNnian(nY - 1) Then
  872.                             TianSU += 29
  873.                         Else
  874.                             TianSU += 28
  875.                         End If
  876.                     Case 4, 6, 9, 11
  877.                         TianSU += 30
  878.                 End Select
  879.             Next
  880.             Select Case bM
  881.                 Case 1, 3
  882.                     TianSU += 31 - bD
  883.                 Case 2
  884.                     If RUNnian(nY - 1) Then
  885.                         TianSU += 29 - bD
  886.                     Else
  887.                         TianSU += 28 - bD
  888.                     End If
  889.             End Select
  890.         End If
  891.         Return TianSU
  892.     End Function
  893.     Private Sub Label9_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label9.MouseEnter, Label10.MouseEnter, Label11.MouseEnter, Label12.MouseEnter
  894.         sender.forecolor = Color.Red
  895.     End Sub
  896.     Private Sub Label9_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label9.MouseLeave, Label10.MouseLeave, Label11.MouseLeave, Label12.MouseLeave
  897.         sender.forecolor = Color.Blue
  898.     End Sub
  899.     Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click  '上一年
  900.         myCurrenYear -= 1
  901.         If myCurrenYear < 1900 Then myCurrenYear = 1900
  902.         ComboBox2.SelectedIndex = myCurrenYear - 1900
  903.     End Sub
  904.     Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click  '下一年
  905.         myCurrenYear += 1
  906.         If myCurrenYear > 2100 Then myCurrenYear = 2100
  907.         ComboBox2.SelectedIndex = myCurrenYear - 1900
  908.     End Sub
  909.     Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click  '上一月
  910.         myCurrenMonth -= 1
  911.         If myCurrenMonth < 1 Then
  912.             myCurrenYear -= 1
  913.             myCurrenMonth = 12
  914.             If myCurrenYear < 1900 Then myCurrenYear = 1900
  915.             ComboBox2.SelectedIndex = myCurrenYear - 1900
  916.         End If
  917.         ComboBox1.SelectedIndex = myCurrenMonth - 1
  918.     End Sub
  919.     Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click  '下一月
  920.         myCurrenMonth += 1
  921.         If myCurrenMonth > 12 Then
  922.             myCurrenYear += 1
  923.             myCurrenMonth = 1
  924.             If myCurrenYear > 2100 Then myCurrenYear = 2100
  925.             ComboBox2.SelectedIndex = myCurrenYear - 1900
  926.         End If
  927.         ComboBox1.SelectedIndex = myCurrenMonth - 1
  928.     End Sub
  929.     Private Sub biqian(ByVal ylstr As String)
  930.         If ylstr <> "" Then
  931.             Dim jiqi1 As Integer = getJieqi(myCurrenYear, myCurrenMonth * 2 - 2)
  932.             Dim jiqi2 As Integer = getJieqi(myCurrenYear, myCurrenMonth * 2 - 1)
  933.             Dim jqstr As String = ""
  934.             Dim nlstr As String = ""
  935.             If Val(ylstr) - jiqi1 = 0 Then
  936.                 jqstr = Jieqi.Substring((4 * (myCurrenMonth - 1)), 2)
  937.             ElseIf Val(ylstr) - jiqi2 = 0 Then
  938.                 jqstr = Jieqi.Substring((4 * (myCurrenMonth - 1) + 2), 2)
  939.             ElseIf Val(ylstr) - jiqi1 <> 0 And Val(ylstr) - jiqi2 <> 0 Then
  940.                 jqstr = " "
  941.             End If
  942.             nlstr = Getnongli1(myCurrenYear, myCurrenMonth, Val(ylstr))
  943.             Dim TDnl As String = Ctiandi(Biaonian - 1900)
  944.             Dim SXnl As String = Cshengxiao(Biaonian - 1900)
  945.             myCurrenDay = Val(ylstr)
  946.             Label1.Text = myCurrenYear.ToString + "年" + myCurrenMonth.ToString + "月" + ylstr + "日" + "  星期" + GetXingQi(myCurrenYear, myCurrenMonth, Val(ylstr))
  947.             Label1.Text += vbCrLf + TDnl + "【" + SXnl + "】年" + " " + nlstr.Substring(0, 3) + "(" + nlstr.Substring(3, 1) + ") " + nlstr.Substring(4, 2) + "日  " + jqstr
  948.         End If
  949.     End Sub
  950.     '农历天干、地支转换,以1900年庚子年计算
  951.     Private Function Ctiandi(ByVal n1 As Integer) As String
  952.         Ctiandi = ""
  953.         If n1 > 0 Then
  954.             Select Case n1 Mod 10
  955.                 Case 0
  956.                     Ctiandi += "庚"
  957.                 Case 1
  958.                     Ctiandi += "辛"
  959.                 Case 2
  960.                     Ctiandi += "壬"
  961.                 Case 3
  962.                     Ctiandi += "癸"
  963.                 Case 4
  964.                     Ctiandi += "甲"
  965.                 Case 5
  966.                     Ctiandi += "乙"
  967.                 Case 6
  968.                     Ctiandi += "丙"
  969.                 Case 7
  970.                     Ctiandi += "丁"
  971.                 Case 8
  972.                     Ctiandi += "戊"
  973.                 Case 9
  974.                     Ctiandi += "已"
  975.             End Select
  976.             Select Case n1 Mod 12
  977.                 Case 0
  978.                     Ctiandi += "子"
  979.                 Case 1
  980.                     Ctiandi += "丑"
  981.                 Case 2
  982.                     Ctiandi += "寅"
  983.                 Case 3
  984.                     Ctiandi += "卯"
  985.                 Case 4
  986.                     Ctiandi += "辰"
  987.                 Case 5
  988.                     Ctiandi += "巳"
  989.                 Case 6
  990.                     Ctiandi += "午"
  991.                 Case 7
  992.                     Ctiandi += "未"
  993.                 Case 8
  994.                     Ctiandi += "申"
  995.                 Case 9
  996.                     Ctiandi += "酉"
  997.                 Case 10
  998.                     Ctiandi += "戍"
  999.                 Case 11
  1000.                     Ctiandi += "亥"
  1001.             End Select
  1002.         Else

  1003.         End If
  1004.     End Function
  1005.     '农历生肖转换,以1900年鼠年计算
  1006.     Private Function Cshengxiao(ByVal n2 As Integer) As String
  1007.         Cshengxiao = ""
  1008.         If n2 > 0 Then
  1009.             Select Case n2 Mod 12
  1010.                 Case 0
  1011.                     Cshengxiao += "鼠"
  1012.                 Case 1
  1013.                     Cshengxiao += "牛"
  1014.                 Case 2
  1015.                     Cshengxiao += "虎"
  1016.                 Case 3
  1017.                     Cshengxiao += "兔"
  1018.                 Case 4
  1019.                     Cshengxiao += "龙"
  1020.                 Case 5
  1021.                     Cshengxiao += "蛇"
  1022.                 Case 6
  1023.                     Cshengxiao += "马"
  1024.                 Case 7
  1025.                     Cshengxiao += "羊"
  1026.                 Case 8
  1027.                     Cshengxiao += "猴"
  1028.                 Case 9
  1029.                     Cshengxiao += "鸡"
  1030.                 Case 10
  1031.                     Cshengxiao += "狗"
  1032.                 Case 11
  1033.                     Cshengxiao += "猪"
  1034.             End Select
  1035.         End If
  1036.     End Function
  1037.     Private Sub g_biaoqian_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
  1038.         biqian(sender.myyltxt)
  1039.     End Sub
  1040.     Public Function getnlJR(ByVal myYearJR As Integer, ByVal myMonthJR As Integer, ByVal myDayJR As Integer) As String '得到农历节日
  1041.         getnlJR = ""
  1042.         Dim NLstr As String = Getnongli1(myYearJR, myMonthJR, myDayJR)
  1043.         If NLstr.Substring(0, 3) = " 腊月" And NLstr.Substring(4, 2) = "初八" Then getnlJR = "腊八节" '腊月初八腊八节
  1044.         If NLstr.Substring(0, 3) = " 正月" And NLstr.Substring(4, 2) = "十五" Then getnlJR = "元宵节" '正月十五元宵节
  1045.         If NLstr.Substring(0, 3) = " 二月" And NLstr.Substring(4, 2) = "初二" Then getnlJR = "龙抬头" '二月初二龙抬头节
  1046.         If NLstr.Substring(0, 3) = " 五月" And NLstr.Substring(4, 2) = "初五" Then getnlJR = "端午节" '五月初五端午节
  1047.         If NLstr.Substring(0, 3) = " 七月" And NLstr.Substring(4, 2) = "初七" Then getnlJR = "七夕节" '七月初七七夕节
  1048.         If NLstr.Substring(0, 3) = " 八月" And NLstr.Substring(4, 2) = "十五" Then getnlJR = "中秋节" '八月十五中秋节
  1049.         If NLstr.Substring(0, 3) = " 九月" And NLstr.Substring(4, 2) = "初九" Then getnlJR = "重阳节" '九月初九重阳节
  1050.         If NLstr.Substring(0, 3) = " 七月" And NLstr.Substring(4, 2) = "十五" Then getnlJR = "中元节" '七月十五中元节
  1051.         If NLstr.Substring(0, 3) = " 腊月" And NLstr.Substring(4, 2) = "三十" Then getnlJR = "除夕" '大年三十除夕
  1052.         If NLstr.Substring(0, 3) = " 腊月" And NLstr.Substring(4, 2) = "廿三" Then getnlJR = "小年" '腊月廿三小年
  1053.         If NLstr.Substring(0, 3) = " 腊月" And NLstr.Substring(4, 2) = "廿九" Then
  1054.             If myDayJR = 31 And myMonthJR = 1 Then
  1055.                 Dim NLstr1 As String = Getnongli1(myYearJR, 2, 1)
  1056.                 If NLstr1.Substring(0, 3) = " 正月" And NLstr1.Substring(4, 2) = "初一" Then getnlJR = "除夕 "
  1057.             ElseIf myDayJR = 29 And myMonthJR = 2 And RUNnian(myYearJR) Then
  1058.                 Dim NLstr2 As String = Getnongli1(myYearJR, 3, 1)
  1059.                 If NLstr2.Substring(0, 3) = " 正月" And NLstr2.Substring(4, 2) = "初一" Then getnlJR = "除夕 "
  1060.             ElseIf myDayJR = 28 And myMonthJR = 2 And RUNnian(myYearJR) = False Then
  1061.                 Dim NLstr3 As String = Getnongli1(myYearJR, 3, 1)
  1062.                 If NLstr3.Substring(0, 3) = " 正月" And NLstr3.Substring(4, 2) = "初一" Then getnlJR = "除夕 "
  1063.             Else
  1064.                 Dim NLstr4 As String = Getnongli1(myYearJR, myMonthJR, myDayJR + 1)
  1065.                 If NLstr4.Substring(0, 3) = " 正月" And NLstr4.Substring(4, 2) = "初一" Then getnlJR = "除夕 "
  1066.             End If
  1067.         End If
  1068.         Return getnlJR
  1069.     End Function
  1070.     Private Function getylJR(ByVal myYearJR As Integer, ByVal myMonthJR As Integer, ByVal myDayJR As Integer) '得到阳历节日
  1071.         getylJR = ""
  1072.         If myYearJR >= 1910 And myMonthJR = 3 And myDayJR = 8 Then getylJR = "妇女节" '3月8日 国际劳动妇女节(1910)
  1073.         If myMonthJR = 4 And myDayJR = 1 Then getylJR = "愚人节" '4月1日 国际愚人节
  1074.         If myYearJR >= 1889 And myMonthJR = 5 And myDayJR = 1 Then getylJR = "劳动节" '5月1日 国际劳动节(1889)
  1075.         If myYearJR >= 1949 And myMonthJR = 6 And myDayJR = 1 Then getylJR = "儿童节" '6月1日 国际儿童节(1949)
  1076.         If myYearJR >= 1949 And myMonthJR = 10 And myDayJR = 1 Then getylJR = "国庆节" '10月1日 中国国庆节(1949)
  1077.         If myMonthJR = 1 And myDayJR = 1 Then getylJR = "元旦" '1月1日 元旦
  1078.         If myMonthJR = 12 And myDayJR = 25 Then getylJR = "圣诞节" '12月25日 圣诞节
  1079.         If myYearJR >= 1939 And myMonthJR = 5 And myDayJR = 4 Then getylJR = "青年节" '10月1日 中国青年节(1939)
  1080.         If myMonthJR = 2 And myDayJR = 14 Then getylJR = "情人节" '2月14日 情人节
  1081.         If myYearJR >= 1914 And myMonthJR = 5 And myDayJR <= 14 And myDayJR > 7 And GetXingQi(myYearJR, myMonthJR, myDayJR) = "天" Then getylJR = "母亲节" '5月第二个星期日 母亲节(1914)
  1082.         If myYearJR >= 1934 And myMonthJR = 6 And myDayJR <= 21 And myDayJR > 14 And GetXingQi(myYearJR, myMonthJR, myDayJR) = "天" Then getylJR = "父亲节" '6月第三个星期日父亲节(1934)
  1083.         Return getylJR
  1084.     End Function
  1085.    
  1086.     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
  1087.         myCurrenMonth = CInt(ComboBox1.Items.Item(ComboBox1.SelectedIndex))
  1088.         If myCurrenYear < 1900 Then myCurrenYear = 1900
  1089.         If myCurrenYear > 2100 Then myCurrenYear = 2100
  1090.         showData(myCurrenYear, myCurrenMonth)
  1091.     End Sub
  1092.     Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
  1093.         myCurrenYear = CInt(ComboBox2.Items.Item(ComboBox2.SelectedIndex))
  1094.         If myCurrenYear < 1900 Then myCurrenYear = 1900
  1095.         If myCurrenYear > 2100 Then myCurrenYear = 2100
  1096.         showData(myCurrenYear, myCurrenMonth)
  1097.     End Sub

  1098.     Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click
  1099.         If Me.Height <> 35 Then
  1100.             Me.Height = 35
  1101.             Me.Width = 320
  1102.             Label13.Text = "↓"
  1103.         Else
  1104.             Me.Width = 320
  1105.             Me.Height = 280
  1106.             Label13.Text = "↑"
  1107.         End If
  1108.     End Sub
  1109.     '指定当前日期
  1110.     Private Sub Label14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label14.Click
  1111.         Dim tst As String = Format(Today(), "yyyy年MM月dd日")
  1112.         myCurrenYear = CInt(tst.Substring(0, 4))
  1113.         myCurrenMonth = CInt(tst.Substring(5, 2))
  1114.         myCurrenDay = CInt(tst.Substring(8, 2))
  1115.         ComboBox2.SelectedIndex = myCurrenYear - 1900
  1116.         ComboBox1.SelectedIndex = myCurrenMonth - 1
  1117.         showData(myCurrenYear, myCurrenMonth)
  1118.     End Sub
  1119. End Class
复制代码
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-12-21 20:56:27 | 显示全部楼层
以上为代码,适用于vb.net2005以上版本。

可应用于1900-2100年。
代码注解很详细了。
欢迎改进。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-4-22 16:50

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表