edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fenstergröße

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-10-17 10:31:59 +02:00
parent 48fd2ab5c6
commit ac51434fa1
3 changed files with 22 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.3.0")>
<Assembly: AssemblyFileVersion("3.9.3.0")>
<Assembly: AssemblyVersion("3.9.3.1")>
<Assembly: AssemblyFileVersion("3.9.3.1")>

10
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -381,6 +381,7 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.FenstergrößeVariabelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -547,7 +548,7 @@ Partial Class frmHauptfenster
'
'OptionenToolStripMenuItem
'
Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZeilenInFarbeEinausToolStripMenuItem, Me.BerechtigungenNeuLadenToolStripMenuItem})
Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZeilenInFarbeEinausToolStripMenuItem, Me.BerechtigungenNeuLadenToolStripMenuItem, Me.FenstergrößeVariabelToolStripMenuItem})
Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
Me.OptionenToolStripMenuItem.Text = "Optionen"
@@ -3648,6 +3649,12 @@ Partial Class frmHauptfenster
Me.Panel4.Size = New System.Drawing.Size(170, 25)
Me.Panel4.TabIndex = 4
'
'FenstergrößeVariabelToolStripMenuItem
'
Me.FenstergrößeVariabelToolStripMenuItem.Name = "FenstergrößeVariabelToolStripMenuItem"
Me.FenstergrößeVariabelToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
Me.FenstergrößeVariabelToolStripMenuItem.Text = "Fenstergröße variabel"
'
'frmHauptfenster
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4068,4 +4075,5 @@ Partial Class frmHauptfenster
Friend WithEvents APIToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lblAbsender As Label
Friend WithEvents txtAbsender As TextBox
Friend WithEvents FenstergrößeVariabelToolStripMenuItem As ToolStripMenuItem
End Class

11
Aviso/frmHauptfenster.vb
View File

@@ -4520,6 +4520,17 @@ Public Class frmHauptfenster
Dim f As New frmNorsware()
f.ShowDialog(Me)
End Sub
Private Sub FenstergrößeVariabelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FenstergrößeVariabelToolStripMenuItem.Click
If Me.FormBorderStyle = FormBorderStyle.None Then
Me.FormBorderStyle = FormBorderStyle.Sizable
Panel4.Visible = False
Else
Me.FormBorderStyle = FormBorderStyle.None
Panel4.Visible = True
End If
End Sub
End Class
Public Class AvisoStatusFunctions