Standarddrucker GUI verbessert

2022-11-30 15:46:18 +01:00
parent d7109597c7
commit b9b3c192b1
3 changed files with 1148 additions and 99 deletions
--- a/Aviso/frmWechselStandarddrucker.Designer.vb
+++ b/Aviso/frmWechselStandarddrucker.Designer.vb
@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmWechselStandarddrucker
    Inherits System.Windows.Forms.Form

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
@@ -20,18 +20,15 @@ Partial Class frmWechselStandarddrucker
    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWechselStandarddrucker))
        Me.cboDefaultprinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cboDefaultprinterBON = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.btnOK = New System.Windows.Forms.Button()
        Me.lblDefaultprinter = New System.Windows.Forms.Label()
        Me.lblDefaultbonprinter = New System.Windows.Forms.Label()
        Me.btnCancel = New System.Windows.Forms.Button()
-        Me.lblCurrentPrinter = New System.Windows.Forms.Label()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.txtCurrentPrinter = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtCurrentPrinterBon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.SuspendLayout()
        '
        'cboDefaultprinter
@@ -41,9 +38,9 @@ Partial Class frmWechselStandarddrucker
        Me.cboDefaultprinter._value = ""
        Me.cboDefaultprinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.cboDefaultprinter.FormattingEnabled = True
-        Me.cboDefaultprinter.Location = New System.Drawing.Point(156, 30)
+        Me.cboDefaultprinter.Location = New System.Drawing.Point(144, 10)
        Me.cboDefaultprinter.Name = "cboDefaultprinter"
-        Me.cboDefaultprinter.Size = New System.Drawing.Size(149, 21)
+        Me.cboDefaultprinter.Size = New System.Drawing.Size(201, 21)
        Me.cboDefaultprinter.TabIndex = 0
        '
        'cboDefaultprinterBON
@@ -53,16 +50,16 @@ Partial Class frmWechselStandarddrucker
        Me.cboDefaultprinterBON._value = ""
        Me.cboDefaultprinterBON.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.cboDefaultprinterBON.FormattingEnabled = True
-        Me.cboDefaultprinterBON.Location = New System.Drawing.Point(156, 79)
+        Me.cboDefaultprinterBON.Location = New System.Drawing.Point(144, 47)
        Me.cboDefaultprinterBON.Name = "cboDefaultprinterBON"
-        Me.cboDefaultprinterBON.Size = New System.Drawing.Size(149, 21)
+        Me.cboDefaultprinterBON.Size = New System.Drawing.Size(201, 21)
        Me.cboDefaultprinterBON.TabIndex = 1
        '
        'btnOK
        '
        Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnOK.Location = New System.Drawing.Point(230, 106)
+        Me.btnOK.Location = New System.Drawing.Point(270, 86)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(75, 23)
        Me.btnOK.TabIndex = 2
@@ -73,7 +70,7 @@ Partial Class frmWechselStandarddrucker
        '
        Me.lblDefaultprinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblDefaultprinter.AutoSize = True
-        Me.lblDefaultprinter.Location = New System.Drawing.Point(12, 33)
+        Me.lblDefaultprinter.Location = New System.Drawing.Point(10, 10)
        Me.lblDefaultprinter.Name = "lblDefaultprinter"
        Me.lblDefaultprinter.Size = New System.Drawing.Size(45, 13)
        Me.lblDefaultprinter.TabIndex = 3
@@ -83,7 +80,7 @@ Partial Class frmWechselStandarddrucker
        '
        Me.lblDefaultbonprinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblDefaultbonprinter.AutoSize = True
-        Me.lblDefaultbonprinter.Location = New System.Drawing.Point(12, 82)
+        Me.lblDefaultbonprinter.Location = New System.Drawing.Point(10, 47)
        Me.lblDefaultbonprinter.Name = "lblDefaultbonprinter"
        Me.lblDefaultbonprinter.Size = New System.Drawing.Size(62, 13)
        Me.lblDefaultbonprinter.TabIndex = 4
@@ -93,99 +90,27 @@ Partial Class frmWechselStandarddrucker
        '
        Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnCancel.Location = New System.Drawing.Point(15, 106)
+        Me.btnCancel.Location = New System.Drawing.Point(13, 86)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(75, 23)
        Me.btnCancel.TabIndex = 5
        Me.btnCancel.Text = "Abbrechen"
        Me.btnCancel.UseVisualStyleBackColor = True
        '
-        'lblCurrentPrinter
-        '
-        Me.lblCurrentPrinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblCurrentPrinter.AutoSize = True
-        Me.lblCurrentPrinter.Location = New System.Drawing.Point(12, 9)
-        Me.lblCurrentPrinter.Name = "lblCurrentPrinter"
-        Me.lblCurrentPrinter.Size = New System.Drawing.Size(88, 13)
-        Me.lblCurrentPrinter.TabIndex = 6
-        Me.lblCurrentPrinter.Text = "aktueller Drucker"
-        '
-        'Label1
-        '
-        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(12, 60)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(105, 13)
-        Me.Label1.TabIndex = 7
-        Me.Label1.Text = "aktueller Bondrucker"
-        '
-        'txtCurrentPrinter
-        '
-        Me.txtCurrentPrinter._DateTimeOnly = False
-        Me.txtCurrentPrinter._numbersOnly = False
-        Me.txtCurrentPrinter._numbersOnlyKommastellen = ""
-        Me.txtCurrentPrinter._numbersOnlyTrennzeichen = True
-        Me.txtCurrentPrinter._Prozent = False
-        Me.txtCurrentPrinter._ShortDateNew = False
-        Me.txtCurrentPrinter._ShortDateOnly = False
-        Me.txtCurrentPrinter._TimeOnly = False
-        Me.txtCurrentPrinter._TimeOnly_Seconds = False
-        Me.txtCurrentPrinter._value = ""
-        Me.txtCurrentPrinter._Waehrung = False
-        Me.txtCurrentPrinter._WaehrungZeichen = True
-        Me.txtCurrentPrinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtCurrentPrinter.ForeColor = System.Drawing.Color.Black
-        Me.txtCurrentPrinter.Location = New System.Drawing.Point(156, 6)
-        Me.txtCurrentPrinter.MaxLineLength = -1
-        Me.txtCurrentPrinter.MaxLines_Warning = ""
-        Me.txtCurrentPrinter.MaxLines_Warning_Label = Nothing
-        Me.txtCurrentPrinter.Name = "txtCurrentPrinter"
-        Me.txtCurrentPrinter.ReadOnly = True
-        Me.txtCurrentPrinter.Size = New System.Drawing.Size(149, 20)
-        Me.txtCurrentPrinter.TabIndex = 8
-        '
-        'txtCurrentPrinterBon
-        '
-        Me.txtCurrentPrinterBon._DateTimeOnly = False
-        Me.txtCurrentPrinterBon._numbersOnly = False
-        Me.txtCurrentPrinterBon._numbersOnlyKommastellen = ""
-        Me.txtCurrentPrinterBon._numbersOnlyTrennzeichen = True
-        Me.txtCurrentPrinterBon._Prozent = False
-        Me.txtCurrentPrinterBon._ShortDateNew = False
-        Me.txtCurrentPrinterBon._ShortDateOnly = False
-        Me.txtCurrentPrinterBon._TimeOnly = False
-        Me.txtCurrentPrinterBon._TimeOnly_Seconds = False
-        Me.txtCurrentPrinterBon._value = ""
-        Me.txtCurrentPrinterBon._Waehrung = False
-        Me.txtCurrentPrinterBon._WaehrungZeichen = True
-        Me.txtCurrentPrinterBon.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtCurrentPrinterBon.ForeColor = System.Drawing.Color.Black
-        Me.txtCurrentPrinterBon.Location = New System.Drawing.Point(156, 57)
-        Me.txtCurrentPrinterBon.MaxLineLength = -1
-        Me.txtCurrentPrinterBon.MaxLines_Warning = ""
-        Me.txtCurrentPrinterBon.MaxLines_Warning_Label = Nothing
-        Me.txtCurrentPrinterBon.Name = "txtCurrentPrinterBon"
-        Me.txtCurrentPrinterBon.ReadOnly = True
-        Me.txtCurrentPrinterBon.Size = New System.Drawing.Size(149, 20)
-        Me.txtCurrentPrinterBon.TabIndex = 9
-        '
        'frmWechselStandarddrucker
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(315, 141)
-        Me.Controls.Add(Me.txtCurrentPrinterBon)
-        Me.Controls.Add(Me.txtCurrentPrinter)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.lblCurrentPrinter)
+        Me.ClientSize = New System.Drawing.Size(357, 121)
        Me.Controls.Add(Me.btnCancel)
        Me.Controls.Add(Me.lblDefaultbonprinter)
        Me.Controls.Add(Me.lblDefaultprinter)
        Me.Controls.Add(Me.btnOK)
        Me.Controls.Add(Me.cboDefaultprinterBON)
        Me.Controls.Add(Me.cboDefaultprinter)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmWechselStandarddrucker"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Standarddrucker wechseln"
        Me.ResumeLayout(False)
        Me.PerformLayout()
@@ -198,8 +123,4 @@ Partial Class frmWechselStandarddrucker
    Friend WithEvents lblDefaultprinter As Label
    Friend WithEvents lblDefaultbonprinter As Label
    Friend WithEvents btnCancel As Button
-    Friend WithEvents lblCurrentPrinter As Label
-    Friend WithEvents Label1 As Label
-    Friend WithEvents txtCurrentPrinter As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtCurrentPrinterBon As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class
--- a/Aviso/frmWechselStandarddrucker.resx
+++ b/Aviso/frmWechselStandarddrucker.resx
--- a/Aviso/frmWechselStandarddrucker.vb
+++ b/Aviso/frmWechselStandarddrucker.vb
@@ -16,10 +16,6 @@ Public Class frmWechselStandarddrucker
            getCurrentPrintersFromFile(path)
        Next

-        txtCurrentPrinter._value = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD
-        txtCurrentPrinterBon._value = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
-
-
        SDL.cProgramFunctions.initDrucker(cboDefaultprinter, VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD, False)
        SDL.cProgramFunctions.initDrucker(cboDefaultprinterBON, VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON, False)

@@ -115,5 +111,4 @@ Public Class frmWechselStandarddrucker
    End Function


-
 End Class