_ Partial Class 匯出EXCEL Inherits System.Windows.Forms.Form 'Form 覆寫 Dispose 以清除元件清單。 _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub '為 Windows Form 設計工具的必要項 Private components As System.ComponentModel.IContainer '注意: 以下為 Windows Form 設計工具所需的程序 '可以使用 Windows Form 設計工具進行修改。 '請勿使用程式碼編輯器進行修改。 _ Private Sub InitializeComponent() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Label1 = New System.Windows.Forms.Label() Me.薪轉Ex存檔名_tb = New System.Windows.Forms.TextBox() Me.薪資匯出_dgv = New System.Windows.Forms.DataGridView() Me.顯示選擇月份_lb = New System.Windows.Forms.ListBox() Me.計算月數_tb = New System.Windows.Forms.TextBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.結束加一個月_bt = New System.Windows.Forms.Button() Me.月選_結束年_cb = New System.Windows.Forms.ComboBox() Me.月選_結束_dtp = New System.Windows.Forms.DateTimePicker() Me.結束減一個月_bt = New System.Windows.Forms.Button() Me.月選_結束_tb = New System.Windows.Forms.TextBox() Me.月選_結束月_cb = New System.Windows.Forms.ComboBox() Me.Label60 = New System.Windows.Forms.Label() Me.民國年月_tb = New System.Windows.Forms.TextBox() Me.Label59 = New System.Windows.Forms.Label() Me.月選_起始_dtp = New System.Windows.Forms.DateTimePicker() Me.月選_起始_tb = New System.Windows.Forms.TextBox() Me.月選_起始年_cb = New System.Windows.Forms.ComboBox() Me.起始加一個月_bt = New System.Windows.Forms.Button() Me.起始減一個月_bt = New System.Windows.Forms.Button() Me.月份選擇_gb = New System.Windows.Forms.GroupBox() Me.月選_起始月_cb = New System.Windows.Forms.ComboBox() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.匯出EXCEL_bt = New System.Windows.Forms.Button() CType(Me.薪資匯出_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox1.SuspendLayout() Me.月份選擇_gb.SuspendLayout() Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Label1.ForeColor = System.Drawing.Color.Teal Me.Label1.Location = New System.Drawing.Point(11, 280) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(60, 17) Me.Label1.TabIndex = 1190 Me.Label1.Text = "資料年度" ' '薪轉Ex存檔名_tb ' Me.薪轉Ex存檔名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.薪轉Ex存檔名_tb.Location = New System.Drawing.Point(73, 277) Me.薪轉Ex存檔名_tb.Name = "薪轉Ex存檔名_tb" Me.薪轉Ex存檔名_tb.Size = New System.Drawing.Size(117, 25) Me.薪轉Ex存檔名_tb.TabIndex = 1189 ' '薪資匯出_dgv ' Me.薪資匯出_dgv.AllowUserToAddRows = False Me.薪資匯出_dgv.AllowUserToDeleteRows = False DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.薪資匯出_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.薪資匯出_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.薪資匯出_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.薪資匯出_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.薪資匯出_dgv.Location = New System.Drawing.Point(202, 9) Me.薪資匯出_dgv.Name = "薪資匯出_dgv" Me.薪資匯出_dgv.RowHeadersWidth = 5 DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.薪資匯出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4 Me.薪資匯出_dgv.RowTemplate.Height = 24 Me.薪資匯出_dgv.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.薪資匯出_dgv.Size = New System.Drawing.Size(1030, 609) Me.薪資匯出_dgv.TabIndex = 1187 ' '顯示選擇月份_lb ' Me.顯示選擇月份_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.顯示選擇月份_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.顯示選擇月份_lb.FormattingEnabled = True Me.顯示選擇月份_lb.ItemHeight = 17 Me.顯示選擇月份_lb.Location = New System.Drawing.Point(13, 308) Me.顯示選擇月份_lb.Name = "顯示選擇月份_lb" Me.顯示選擇月份_lb.Size = New System.Drawing.Size(177, 225) Me.顯示選擇月份_lb.TabIndex = 1186 ' '計算月數_tb ' Me.計算月數_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.計算月數_tb.Location = New System.Drawing.Point(233, 465) Me.計算月數_tb.Name = "計算月數_tb" Me.計算月數_tb.Size = New System.Drawing.Size(100, 25) Me.計算月數_tb.TabIndex = 1185 Me.計算月數_tb.Visible = False ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.結束加一個月_bt) Me.GroupBox1.Controls.Add(Me.月選_結束年_cb) Me.GroupBox1.Controls.Add(Me.月選_結束_dtp) Me.GroupBox1.Controls.Add(Me.結束減一個月_bt) Me.GroupBox1.Controls.Add(Me.月選_結束_tb) Me.GroupBox1.Controls.Add(Me.月選_結束月_cb) Me.GroupBox1.Controls.Add(Me.Label60) Me.GroupBox1.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.GroupBox1.Location = New System.Drawing.Point(13, 142) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(179, 126) Me.GroupBox1.TabIndex = 1184 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "結束月份" ' '結束加一個月_bt ' Me.結束加一個月_bt.Location = New System.Drawing.Point(91, 91) Me.結束加一個月_bt.Name = "結束加一個月_bt" Me.結束加一個月_bt.Size = New System.Drawing.Size(70, 25) Me.結束加一個月_bt.TabIndex = 1186 Me.結束加一個月_bt.Text = "加一個月" Me.結束加一個月_bt.UseVisualStyleBackColor = True ' '月選_結束年_cb ' Me.月選_結束年_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.月選_結束年_cb.FormattingEnabled = True Me.月選_結束年_cb.Items.AddRange(New Object() {"2018", "2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"}) Me.月選_結束年_cb.Location = New System.Drawing.Point(14, 58) Me.月選_結束年_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.月選_結束年_cb.Name = "月選_結束年_cb" Me.月選_結束年_cb.Size = New System.Drawing.Size(80, 25) Me.月選_結束年_cb.TabIndex = 1183 ' '月選_結束_dtp ' Me.月選_結束_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right Me.月選_結束_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.月選_結束_dtp.Location = New System.Drawing.Point(14, 123) Me.月選_結束_dtp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.月選_結束_dtp.Name = "月選_結束_dtp" Me.月選_結束_dtp.Size = New System.Drawing.Size(146, 25) Me.月選_結束_dtp.TabIndex = 1182 Me.月選_結束_dtp.Visible = False ' '結束減一個月_bt ' Me.結束減一個月_bt.Location = New System.Drawing.Point(14, 91) Me.結束減一個月_bt.Name = "結束減一個月_bt" Me.結束減一個月_bt.Size = New System.Drawing.Size(70, 25) Me.結束減一個月_bt.TabIndex = 1185 Me.結束減一個月_bt.Text = "減一個月" Me.結束減一個月_bt.UseVisualStyleBackColor = True ' '月選_結束_tb ' Me.月選_結束_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.月選_結束_tb.Location = New System.Drawing.Point(14, 25) Me.月選_結束_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.月選_結束_tb.Name = "月選_結束_tb" Me.月選_結束_tb.ReadOnly = True Me.月選_結束_tb.Size = New System.Drawing.Size(146, 25) Me.月選_結束_tb.TabIndex = 1181 ' '月選_結束月_cb ' Me.月選_結束月_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.月選_結束月_cb.FormattingEnabled = True Me.月選_結束月_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"}) Me.月選_結束月_cb.Location = New System.Drawing.Point(111, 58) Me.月選_結束月_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.月選_結束月_cb.Name = "月選_結束月_cb" Me.月選_結束月_cb.Size = New System.Drawing.Size(50, 25) Me.月選_結束月_cb.TabIndex = 1179 ' 'Label60 ' Me.Label60.AutoSize = True Me.Label60.Location = New System.Drawing.Point(98, 61) Me.Label60.Name = "Label60" Me.Label60.Size = New System.Drawing.Size(13, 17) Me.Label60.TabIndex = 1184 Me.Label60.Text = "/" ' '民國年月_tb ' Me.民國年月_tb.Location = New System.Drawing.Point(233, 496) Me.民國年月_tb.Name = "民國年月_tb" Me.民國年月_tb.Size = New System.Drawing.Size(100, 23) Me.民國年月_tb.TabIndex = 1188 Me.民國年月_tb.Visible = False ' 'Label59 ' Me.Label59.AutoSize = True Me.Label59.Location = New System.Drawing.Point(97, 63) Me.Label59.Name = "Label59" Me.Label59.Size = New System.Drawing.Size(13, 17) Me.Label59.TabIndex = 430 Me.Label59.Text = "/" ' '月選_起始_dtp ' Me.月選_起始_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right Me.月選_起始_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.月選_起始_dtp.Location = New System.Drawing.Point(13, 123) Me.月選_起始_dtp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.月選_起始_dtp.Name = "月選_起始_dtp" Me.月選_起始_dtp.Size = New System.Drawing.Size(147, 25) Me.月選_起始_dtp.TabIndex = 1171 Me.月選_起始_dtp.Visible = False ' '月選_起始_tb ' Me.月選_起始_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.月選_起始_tb.Location = New System.Drawing.Point(14, 26) Me.月選_起始_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.月選_起始_tb.Name = "月選_起始_tb" Me.月選_起始_tb.ReadOnly = True Me.月選_起始_tb.Size = New System.Drawing.Size(146, 25) Me.月選_起始_tb.TabIndex = 434 ' '月選_起始年_cb ' Me.月選_起始年_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.月選_起始年_cb.FormattingEnabled = True Me.月選_起始年_cb.Items.AddRange(New Object() {"2018", "2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"}) Me.月選_起始年_cb.Location = New System.Drawing.Point(14, 59) Me.月選_起始年_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.月選_起始年_cb.Name = "月選_起始年_cb" Me.月選_起始年_cb.Size = New System.Drawing.Size(80, 25) Me.月選_起始年_cb.TabIndex = 429 ' '起始加一個月_bt ' Me.起始加一個月_bt.Location = New System.Drawing.Point(91, 91) Me.起始加一個月_bt.Name = "起始加一個月_bt" Me.起始加一個月_bt.Size = New System.Drawing.Size(70, 25) Me.起始加一個月_bt.TabIndex = 1188 Me.起始加一個月_bt.Text = "加一個月" Me.起始加一個月_bt.UseVisualStyleBackColor = True ' '起始減一個月_bt ' Me.起始減一個月_bt.Location = New System.Drawing.Point(14, 91) Me.起始減一個月_bt.Name = "起始減一個月_bt" Me.起始減一個月_bt.Size = New System.Drawing.Size(70, 25) Me.起始減一個月_bt.TabIndex = 1187 Me.起始減一個月_bt.Text = "減一個月" Me.起始減一個月_bt.UseVisualStyleBackColor = True ' '月份選擇_gb ' Me.月份選擇_gb.Controls.Add(Me.起始加一個月_bt) Me.月份選擇_gb.Controls.Add(Me.起始減一個月_bt) Me.月份選擇_gb.Controls.Add(Me.月選_起始_dtp) Me.月份選擇_gb.Controls.Add(Me.月選_起始_tb) Me.月份選擇_gb.Controls.Add(Me.月選_起始年_cb) Me.月份選擇_gb.Controls.Add(Me.月選_起始月_cb) Me.月份選擇_gb.Controls.Add(Me.Label59) Me.月份選擇_gb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.月份選擇_gb.Location = New System.Drawing.Point(13, 9) Me.月份選擇_gb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.月份選擇_gb.Name = "月份選擇_gb" Me.月份選擇_gb.Padding = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.月份選擇_gb.Size = New System.Drawing.Size(179, 126) Me.月份選擇_gb.TabIndex = 1183 Me.月份選擇_gb.TabStop = False Me.月份選擇_gb.Text = "起始月份" ' '月選_起始月_cb ' Me.月選_起始月_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.月選_起始月_cb.FormattingEnabled = True Me.月選_起始月_cb.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"}) Me.月選_起始月_cb.Location = New System.Drawing.Point(111, 59) Me.月選_起始月_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.月選_起始月_cb.Name = "月選_起始月_cb" Me.月選_起始月_cb.Size = New System.Drawing.Size(50, 25) Me.月選_起始月_cb.TabIndex = 428 ' '匯出EXCEL_bt ' Me.匯出EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.匯出EXCEL_bt.Location = New System.Drawing.Point(12, 538) Me.匯出EXCEL_bt.Margin = New System.Windows.Forms.Padding(2) Me.匯出EXCEL_bt.Name = "匯出EXCEL_bt" Me.匯出EXCEL_bt.Size = New System.Drawing.Size(178, 80) Me.匯出EXCEL_bt.TabIndex = 1182 Me.匯出EXCEL_bt.Text = "匯出" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "EXCEL" Me.匯出EXCEL_bt.UseVisualStyleBackColor = True ' '匯出EXCEL ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1243, 627) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.薪轉Ex存檔名_tb) Me.Controls.Add(Me.薪資匯出_dgv) Me.Controls.Add(Me.顯示選擇月份_lb) Me.Controls.Add(Me.計算月數_tb) Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.民國年月_tb) Me.Controls.Add(Me.月份選擇_gb) Me.Controls.Add(Me.匯出EXCEL_bt) Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "匯出EXCEL" Me.Text = "匯出EXCEL" CType(Me.薪資匯出_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.月份選擇_gb.ResumeLayout(False) Me.月份選擇_gb.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label1 As Label Friend WithEvents 薪轉Ex存檔名_tb As TextBox Friend WithEvents 薪資匯出_dgv As DataGridView Friend WithEvents 顯示選擇月份_lb As ListBox Friend WithEvents 計算月數_tb As TextBox Friend WithEvents GroupBox1 As GroupBox Friend WithEvents 結束加一個月_bt As Button Friend WithEvents 月選_結束年_cb As ComboBox Friend WithEvents 月選_結束_dtp As DateTimePicker Friend WithEvents 結束減一個月_bt As Button Friend WithEvents 月選_結束_tb As TextBox Friend WithEvents 月選_結束月_cb As ComboBox Friend WithEvents Label60 As Label Friend WithEvents 民國年月_tb As TextBox Friend WithEvents Label59 As Label Friend WithEvents 月選_起始_dtp As DateTimePicker Friend WithEvents 月選_起始_tb As TextBox Friend WithEvents 月選_起始年_cb As ComboBox Friend WithEvents 起始加一個月_bt As Button Friend WithEvents 起始減一個月_bt As Button Friend WithEvents 月份選擇_gb As GroupBox Friend WithEvents 月選_起始月_cb As ComboBox Friend WithEvents SaveFileDialog1 As SaveFileDialog Friend WithEvents 匯出EXCEL_bt As Button End Class