timasabfrage inkl. Schalter.

This commit is contained in:
2025-10-22 12:18:45 +02:00
parent d95899945e
commit 0eb68d12d9
4 changed files with 81 additions and 4 deletions

View File

@@ -24,8 +24,8 @@ Partial Class frmTimasabfrage
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
Me.cbxSchalterID = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.rbHO = New System.Windows.Forms.RadioButton()
Me.rbBuero = New System.Windows.Forms.RadioButton()
Me.Button1 = New System.Windows.Forms.Button()
@@ -33,6 +33,7 @@ Partial Class frmTimasabfrage
Me.btnClose = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblSchalter = New System.Windows.Forms.Label()
Me.MyPanel1.SuspendLayout()
Me.SuspendLayout()
'
@@ -40,6 +41,8 @@ Partial Class frmTimasabfrage
'
Me.MyPanel1.BackColor = System.Drawing.Color.White
Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MyPanel1.Controls.Add(Me.lblSchalter)
Me.MyPanel1.Controls.Add(Me.cbxSchalterID)
Me.MyPanel1.Controls.Add(Me.rbHO)
Me.MyPanel1.Controls.Add(Me.rbBuero)
Me.MyPanel1.Controls.Add(Me.Button1)
@@ -53,6 +56,24 @@ Partial Class frmTimasabfrage
Me.MyPanel1.Size = New System.Drawing.Size(264, 103)
Me.MyPanel1.TabIndex = 3
'
'cbxSchalterID
'
Me.cbxSchalterID._allowedValuesFreiText = Nothing
Me.cbxSchalterID._allowFreiText = False
Me.cbxSchalterID._value = ""
Me.cbxSchalterID.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cbxSchalterID.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbxSchalterID.DropDownWidth = 50
Me.cbxSchalterID.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbxSchalterID.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxSchalterID.FormattingEnabled = True
Me.cbxSchalterID.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.cbxSchalterID.Location = New System.Drawing.Point(3, 34)
Me.cbxSchalterID.Name = "cbxSchalterID"
Me.cbxSchalterID.Size = New System.Drawing.Size(58, 28)
Me.cbxSchalterID.TabIndex = 10
Me.cbxSchalterID.Visible = False
'
'rbHO
'
Me.rbHO.AutoSize = True
@@ -145,6 +166,16 @@ Partial Class frmTimasabfrage
Me.Label1.Size = New System.Drawing.Size(222, 18)
Me.Label1.TabIndex = 6
'
'lblSchalter
'
Me.lblSchalter.AutoSize = True
Me.lblSchalter.Location = New System.Drawing.Point(3, 20)
Me.lblSchalter.Name = "lblSchalter"
Me.lblSchalter.Size = New System.Drawing.Size(46, 13)
Me.lblSchalter.TabIndex = 11
Me.lblSchalter.Text = "Schalter"
Me.lblSchalter.Visible = False
'
'frmTimasabfrage
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -169,4 +200,6 @@ Partial Class frmTimasabfrage
Friend WithEvents Button1 As Button
Friend WithEvents rbHO As RadioButton
Friend WithEvents rbBuero As RadioButton
Public WithEvents cbxSchalterID As MyComboBox
Friend WithEvents lblSchalter As Label
End Class