Wartung Bugfix

This commit is contained in:
ms
2025-10-06 16:29:54 +02:00
parent 81151c5eb0
commit 754a83e559
3 changed files with 3 additions and 3 deletions

View File

@@ -319,7 +319,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.2.12 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.2.13 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

View File

@@ -137,7 +137,7 @@
<value>..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>0.0.2.12</value>
<value>0.0.2.13</value>
</data>
<data name="Link1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>

View File

@@ -280,7 +280,7 @@
Clipboard.SetText(host)
End Sub
Private Sub chkWartung_CheckedChanged(sender As Object, e As EventArgs) Handles chkWartung.CheckedChanged
Private Sub chkWartung_CheckedChanged(sender As Object, e As EventArgs) Handles chkWartung.Click
Dim result As MsgBoxResult
If chkWartung.Checked Then
result = MsgBox("Hiermit werden alle Anmeldungen von ThinClients unterbunden. Sicher? ", MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation, "Warnung")