Kunedbearbeiten, etc.

This commit is contained in:
2025-09-29 15:31:54 +02:00
parent 0dbc85574e
commit 9dca94b8e5
2 changed files with 62 additions and 9 deletions

View File

@@ -26,6 +26,8 @@ Partial Class frmTimasabfrage
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.rbHO = New System.Windows.Forms.RadioButton()
Me.rbBuero = New System.Windows.Forms.RadioButton()
Me.Button1 = New System.Windows.Forms.Button()
Me.cboTyp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnClose = New System.Windows.Forms.Button()
@@ -38,6 +40,8 @@ Partial Class frmTimasabfrage
'
Me.MyPanel1.BackColor = System.Drawing.Color.White
Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MyPanel1.Controls.Add(Me.rbHO)
Me.MyPanel1.Controls.Add(Me.rbBuero)
Me.MyPanel1.Controls.Add(Me.Button1)
Me.MyPanel1.Controls.Add(Me.cboTyp)
Me.MyPanel1.Controls.Add(Me.btnClose)
@@ -46,15 +50,37 @@ Partial Class frmTimasabfrage
Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyPanel1.Location = New System.Drawing.Point(0, 0)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(264, 84)
Me.MyPanel1.Size = New System.Drawing.Size(264, 103)
Me.MyPanel1.TabIndex = 3
'
'rbHO
'
Me.rbHO.AutoSize = True
Me.rbHO.Location = New System.Drawing.Point(76, 46)
Me.rbHO.Name = "rbHO"
Me.rbHO.Size = New System.Drawing.Size(79, 17)
Me.rbHO.TabIndex = 9
Me.rbHO.TabStop = True
Me.rbHO.Text = "Homeoffice"
Me.rbHO.UseVisualStyleBackColor = True
'
'rbBuero
'
Me.rbBuero.AutoSize = True
Me.rbBuero.Location = New System.Drawing.Point(76, 23)
Me.rbBuero.Name = "rbBuero"
Me.rbBuero.Size = New System.Drawing.Size(47, 17)
Me.rbBuero.TabIndex = 8
Me.rbBuero.TabStop = True
Me.rbBuero.Text = "Büro"
Me.rbBuero.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Button1.Location = New System.Drawing.Point(6, 52)
Me.Button1.Location = New System.Drawing.Point(6, 71)
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(57, 22)
@@ -74,10 +100,11 @@ Partial Class frmTimasabfrage
Me.cboTyp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboTyp.FormattingEnabled = True
Me.cboTyp.Items.AddRange(New Object() {"", "100000-199999: XXXXXX", "200000-299999: XXXXXX", "300000-399999: XXXXXX", "400000-499999: XXXXXX", "500000-599999: XXXXXX", "600000-699999: XXXXXX", "700000-799999: XXXXXX", "800000-899999: XXXXXX", "900000-999999: XXXXXX"})
Me.cboTyp.Location = New System.Drawing.Point(79, 23)
Me.cboTyp.Location = New System.Drawing.Point(201, 33)
Me.cboTyp.Name = "cboTyp"
Me.cboTyp.Size = New System.Drawing.Size(84, 28)
Me.cboTyp.Size = New System.Drawing.Size(58, 28)
Me.cboTyp.TabIndex = 4
Me.cboTyp.Visible = False
'
'btnClose
'
@@ -101,7 +128,7 @@ Partial Class frmTimasabfrage
Me.btn.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.btn.Location = New System.Drawing.Point(178, 52)
Me.btn.Location = New System.Drawing.Point(178, 71)
Me.btn.Margin = New System.Windows.Forms.Padding(0)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(76, 22)
@@ -122,13 +149,14 @@ Partial Class frmTimasabfrage
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(264, 84)
Me.ClientSize = New System.Drawing.Size(264, 103)
Me.Controls.Add(Me.MyPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmTimasabfrage"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmDatumsabfrage"
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
@@ -139,4 +167,6 @@ Partial Class frmTimasabfrage
Friend WithEvents Label1 As Label
Public WithEvents cboTyp As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Button1 As Button
Friend WithEvents rbHO As RadioButton
Friend WithEvents rbBuero As RadioButton
End Class