Vermerk kann nun geschlossen werden!

This commit is contained in:
2023-11-23 15:40:20 +01:00
parent 0f3cf72022
commit 88a0547479
2 changed files with 24 additions and 0 deletions

View File

@@ -41,6 +41,7 @@ Partial Class frmInsertVermerkFach
Me.btnRHENUS = New System.Windows.Forms.Button() Me.btnRHENUS = New System.Windows.Forms.Button()
Me.btnTan = New System.Windows.Forms.Button() Me.btnTan = New System.Windows.Forms.Button()
Me.lbl = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label()
Me.btnCLose = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, 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.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 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.Button3)
Me.pnl.Controls.Add(Me.PictureBox3) Me.pnl.Controls.Add(Me.PictureBox3)
Me.pnl.Controls.Add(Me.PictureBox4) Me.pnl.Controls.Add(Me.PictureBox4)
@@ -258,6 +260,23 @@ Partial Class frmInsertVermerkFach
Me.lbl.TabIndex = 0 Me.lbl.TabIndex = 0
Me.lbl.Text = "Wo befindet sich der Akt?" 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 'frmInsertVermerkFach
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 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 Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As Button Friend WithEvents Button3 As Button
Friend WithEvents btnCLose As Button
End Class End Class

View File

@@ -73,4 +73,8 @@ Public Class frmInsertVermerkFach
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
vermerk("DIGITALER AKT") vermerk("DIGITALER AKT")
End Sub End Sub
Private Sub btnCLose_Click(sender As Object, e As EventArgs) Handles btnCLose.Click
Me.Close()
End Sub
End Class End Class