diff --git a/Aviso/frmInsertVermerkFach.Designer.vb b/Aviso/frmInsertVermerkFach.Designer.vb index 514aa78..99d7fc6 100644 --- a/Aviso/frmInsertVermerkFach.Designer.vb +++ b/Aviso/frmInsertVermerkFach.Designer.vb @@ -41,6 +41,7 @@ Partial Class frmInsertVermerkFach Me.btnRHENUS = New System.Windows.Forms.Button() Me.btnTan = New System.Windows.Forms.Button() Me.lbl = New System.Windows.Forms.Label() + Me.btnCLose = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() @@ -53,6 +54,7 @@ Partial Class frmInsertVermerkFach ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.btnCLose) Me.pnl.Controls.Add(Me.Button3) Me.pnl.Controls.Add(Me.PictureBox3) Me.pnl.Controls.Add(Me.PictureBox4) @@ -258,6 +260,23 @@ Partial Class frmInsertVermerkFach Me.lbl.TabIndex = 0 Me.lbl.Text = "Wo befindet sich der Akt?" ' + 'btnCLose + ' + Me.btnCLose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnCLose.BackColor = System.Drawing.Color.Red + Me.btnCLose.FlatAppearance.BorderColor = System.Drawing.Color.White + Me.btnCLose.FlatAppearance.BorderSize = 0 + Me.btnCLose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCLose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnCLose.ForeColor = System.Drawing.Color.White + Me.btnCLose.Location = New System.Drawing.Point(243, -1) + Me.btnCLose.Name = "btnCLose" + Me.btnCLose.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.btnCLose.Size = New System.Drawing.Size(54, 20) + Me.btnCLose.TabIndex = 11 + Me.btnCLose.Text = "X" + Me.btnCLose.UseVisualStyleBackColor = False + ' 'frmInsertVermerkFach ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -297,4 +316,5 @@ Partial Class frmInsertVermerkFach Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As Button + Friend WithEvents btnCLose As Button End Class diff --git a/Aviso/frmInsertVermerkFach.vb b/Aviso/frmInsertVermerkFach.vb index 08687fb..69ceaee 100644 --- a/Aviso/frmInsertVermerkFach.vb +++ b/Aviso/frmInsertVermerkFach.vb @@ -73,4 +73,8 @@ Public Class frmInsertVermerkFach Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click vermerk("DIGITALER AKT") End Sub + + Private Sub btnCLose_Click(sender As Object, e As EventArgs) Handles btnCLose.Click + Me.Close() + End Sub End Class