Export Urlaubsplaner - Jahresansicht

This commit is contained in:
2023-01-24 09:58:01 +01:00
parent f67afff2a1
commit 514c470565
6 changed files with 187 additions and 96 deletions

View File

@@ -27,14 +27,14 @@ Partial Class frmUrlaubsplaner
Me.dgvUrlaub = New System.Windows.Forms.DataGridView()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label()
Me.cboJahr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button4 = New System.Windows.Forms.Button()
Me.lblKw = New System.Windows.Forms.Label()
Me.lblMa = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblUrlaubsplaner = New System.Windows.Forms.Label()
Me.cboJahr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
CType(Me.dgvUrlaub, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
@@ -94,6 +94,30 @@ Partial Class frmUrlaubsplaner
Me.Panel1.Size = New System.Drawing.Size(1113, 53)
Me.Panel1.TabIndex = 1
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(933, 10)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(30, 13)
Me.Label3.TabIndex = 71
Me.Label3.Text = "Jahr:"
'
'cboJahr
'
Me.cboJahr._allowedValuesFreiText = Nothing
Me.cboJahr._allowFreiText = False
Me.cboJahr._value = ""
Me.cboJahr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboJahr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboJahr.FormattingEnabled = True
Me.cboJahr.Location = New System.Drawing.Point(969, 5)
Me.cboJahr.Name = "cboJahr"
Me.cboJahr.Size = New System.Drawing.Size(121, 21)
Me.cboJahr.TabIndex = 70
'
'Button4
'
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
@@ -102,9 +126,9 @@ Partial Class frmUrlaubsplaner
Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button4.Image = Global.ADMIN.My.Resources.Resources.Excel_2013_logo_155x110
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(763, 15)
Me.Button4.Location = New System.Drawing.Point(631, 15)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(31, 27)
Me.Button4.Size = New System.Drawing.Size(38, 27)
Me.Button4.TabIndex = 69
Me.Button4.Tag = "Dienstplan erstellen"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -161,30 +185,6 @@ Partial Class frmUrlaubsplaner
Me.lblUrlaubsplaner.TabIndex = 0
Me.lblUrlaubsplaner.Text = "Abwesenheits-Planer"
'
'cboJahr
'
Me.cboJahr._allowedValuesFreiText = Nothing
Me.cboJahr._allowFreiText = False
Me.cboJahr._value = ""
Me.cboJahr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboJahr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboJahr.FormattingEnabled = True
Me.cboJahr.Location = New System.Drawing.Point(969, 5)
Me.cboJahr.Name = "cboJahr"
Me.cboJahr.Size = New System.Drawing.Size(121, 21)
Me.cboJahr.TabIndex = 70
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(933, 10)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(30, 13)
Me.Label3.TabIndex = 71
Me.Label3.Text = "Jahr:"
'
'frmUrlaubsplaner
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)