From a0c5689d10a71e3a65b764cb041684ff7a1afb58 Mon Sep 17 00:00:00 2001 From: ms Date: Thu, 3 Jul 2025 11:05:59 +0200 Subject: [PATCH] =?UTF-8?q?Schnellschei=C3=9Ftasten?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Dokumentation/Main.Designer.vb | 76 ++++++++++++++++++++-------------- Dokumentation/Main.resx | 7 +++- Dokumentation/Main.vb | 8 ++++ 3 files changed, 59 insertions(+), 32 deletions(-) diff --git a/Dokumentation/Main.Designer.vb b/Dokumentation/Main.Designer.vb index 0ae8cd4..cdbf8e9 100644 --- a/Dokumentation/Main.Designer.vb +++ b/Dokumentation/Main.Designer.vb @@ -24,7 +24,7 @@ Partial Class Main Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main)) - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel() Me.lblOfflinemodus = New System.Windows.Forms.Label() @@ -75,6 +75,8 @@ Partial Class Main Me.PascomToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UnifiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel3 = New System.Windows.Forms.Panel() + Me.lblTempServerraum15 = New System.Windows.Forms.Label() + Me.lblTempServerraum100 = New System.Windows.Forms.Label() Me.btnSync = New System.Windows.Forms.Button() Me.lblCount = New System.Windows.Forms.Label() Me.btnNeu = New System.Windows.Forms.Button() @@ -129,9 +131,9 @@ Partial Class Main Me.panTSSitzungen = New System.Windows.Forms.Panel() Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components) Me.Timer1 = New System.Windows.Forms.Timer(Me.components) - Me.lblTempServerraum100 = New System.Windows.Forms.Label() - Me.lblTempServerraum15 = New System.Windows.Forms.Label() Me.Timer_Temperatur = New System.Windows.Forms.Timer(Me.components) + Me.ProxMoxToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PortainerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel2.SuspendLayout() Me.Panel4.SuspendLayout() CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit() @@ -527,7 +529,7 @@ Partial Class Main 'MenuStrip1 ' Me.MenuStrip1.BackColor = System.Drawing.SystemColors.GradientActiveCaption - Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO, Me.TicketsystemToolStripMenuItem, Me.PascomToolStripMenuItem, Me.UnifiToolStripMenuItem}) + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO, Me.TicketsystemToolStripMenuItem, Me.PascomToolStripMenuItem, Me.UnifiToolStripMenuItem, Me.ProxMoxToolStripMenuItem, Me.PortainerToolStripMenuItem}) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Size = New System.Drawing.Size(1494, 24) @@ -649,6 +651,24 @@ Partial Class Main Me.Panel3.Size = New System.Drawing.Size(200, 831) Me.Panel3.TabIndex = 2 ' + 'lblTempServerraum15 + ' + Me.lblTempServerraum15.AutoSize = True + Me.lblTempServerraum15.Location = New System.Drawing.Point(15, 767) + Me.lblTempServerraum15.Name = "lblTempServerraum15" + Me.lblTempServerraum15.Size = New System.Drawing.Size(110, 13) + Me.lblTempServerraum15.TabIndex = 21 + Me.lblTempServerraum15.Text = "lblTempServerraum15" + ' + 'lblTempServerraum100 + ' + Me.lblTempServerraum100.AutoSize = True + Me.lblTempServerraum100.Location = New System.Drawing.Point(15, 747) + Me.lblTempServerraum100.Name = "lblTempServerraum100" + Me.lblTempServerraum100.Size = New System.Drawing.Size(116, 13) + Me.lblTempServerraum100.TabIndex = 20 + Me.lblTempServerraum100.Text = "lblTempServerraum100" + ' 'btnSync ' Me.btnSync.BackColor = System.Drawing.SystemColors.ControlLightLight @@ -864,14 +884,14 @@ Partial Class Main Me.DgVMain.AllowUserToDeleteRows = False Me.DgVMain.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.DgVMain.BorderStyle = System.Windows.Forms.BorderStyle.None - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.DgVMain.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DgVMain.ContextMenuStrip = Me.DGVMainContext Me.DgVMain.Dock = System.Windows.Forms.DockStyle.Fill @@ -1117,29 +1137,23 @@ Partial Class Main 'Timer1 ' ' - 'lblTempServerraum100 - ' - Me.lblTempServerraum100.AutoSize = True - Me.lblTempServerraum100.Location = New System.Drawing.Point(15, 747) - Me.lblTempServerraum100.Name = "lblTempServerraum100" - Me.lblTempServerraum100.Size = New System.Drawing.Size(116, 13) - Me.lblTempServerraum100.TabIndex = 20 - Me.lblTempServerraum100.Text = "lblTempServerraum100" - ' - 'lblTempServerraum15 - ' - Me.lblTempServerraum15.AutoSize = True - Me.lblTempServerraum15.Location = New System.Drawing.Point(15, 767) - Me.lblTempServerraum15.Name = "lblTempServerraum15" - Me.lblTempServerraum15.Size = New System.Drawing.Size(110, 13) - Me.lblTempServerraum15.TabIndex = 21 - Me.lblTempServerraum15.Text = "lblTempServerraum15" - ' 'Timer_Temperatur ' Me.Timer_Temperatur.Enabled = True Me.Timer_Temperatur.Interval = 30000 ' + 'ProxMoxToolStripMenuItem + ' + Me.ProxMoxToolStripMenuItem.Name = "ProxMoxToolStripMenuItem" + Me.ProxMoxToolStripMenuItem.Size = New System.Drawing.Size(65, 20) + Me.ProxMoxToolStripMenuItem.Text = "ProxMox" + ' + 'PortainerToolStripMenuItem + ' + Me.PortainerToolStripMenuItem.Name = "PortainerToolStripMenuItem" + Me.PortainerToolStripMenuItem.Size = New System.Drawing.Size(67, 20) + Me.PortainerToolStripMenuItem.Text = "Portainer" + ' 'Main ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1288,4 +1302,6 @@ Partial Class Main Friend WithEvents lblTempServerraum15 As Label Friend WithEvents lblTempServerraum100 As Label Friend WithEvents Timer_Temperatur As Timer + Friend WithEvents ProxMoxToolStripMenuItem As ToolStripMenuItem + Friend WithEvents PortainerToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Dokumentation/Main.resx b/Dokumentation/Main.resx index 9aa8dbc..004e271 100644 --- a/Dokumentation/Main.resx +++ b/Dokumentation/Main.resx @@ -117,6 +117,9 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 33, 15 + 1156, 17 @@ -277,8 +280,8 @@ 2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV//Z - - 33, 15 + + True True diff --git a/Dokumentation/Main.vb b/Dokumentation/Main.vb index be8486f..94b3270 100644 --- a/Dokumentation/Main.vb +++ b/Dokumentation/Main.vb @@ -1844,6 +1844,14 @@ exit" Await AktualisiereTemperaturenAsync() End Sub + Private Sub ProxMoxToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProxMoxToolStripMenuItem.Click + cExtProgramme.startlink("https://192.168.0.242:8006/") + End Sub + + Private Sub PortainerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PortainerToolStripMenuItem.Click + cExtProgramme.startlink("https://192.168.85.250:9443") + End Sub + Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked