Ich habe ein kleines Tool erstellt, bei dem per Kommandozeilenargumenten festgelegt werden kann, dass es minimiert starten und sich nur im Tray zeigen soll. Das klappt auch hervorragend. Nun kommt es auf einigen wenigen Rechnern vor, dass beim Minimieren in den Tray links unten auf dem Desktop die verkürzte Titelzeile des Forms mit nur dem Icon, einem "Schliessen" Kreuz und dem einblendbaren Systemmenü erscheint. Und darauf kann ich mir einfach keinen Reim machen.
So sieht der Abschnitt "Form_Onload" aus, der dafür sorgt, dass die Parameter für den Start des Programmes ausgewertet und angewendet werden:
Und so sieht der Abschnitt "Form_SizeChanged" aus, in dem ich mit Hilfe der Kommandozeilenargumente das minimieren in den Tray regle:
Wie gesagt, dass sich das Tool so verhält, kommt bisher nur auf zwei Rechnern vor. Der eine hat als OS Windows 10 Pro x64, der andere ein Windows 10 Home x86 als OS. Hat da jemand von euch vielleicht eine Idee, was ich da vergessen oder übersehen haben könnte?
So sieht der Abschnitt "Form_Onload" aus, der dafür sorgt, dass die Parameter für den Start des Programmes ausgewertet und angewendet werden:
VB.NET-Quellcode
- Private Sub Form1_Onload(sender As System.Object, e As EventArgs) Handles MyBase.Load
- For Each CoArg As String In My.Application.CommandLineArgs
- Select Case CoArg
- Case "-min", "/min"
- WindowState = FormWindowState.Minimized
- End Select
- Select Case CoArg
- Case "-?", "/?"
- MessageBox.Show(MsgTxt, "Winset10 Hilfe zu den Befehlszeilenargumenten!", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End Select
- Next
- End Sub
Und so sieht der Abschnitt "Form_SizeChanged" aus, in dem ich mit Hilfe der Kommandozeilenargumente das minimieren in den Tray regle:
VB.NET-Quellcode
- Private Sub Form1_SizeChanged(sender As System.Object, e As EventArgs) Handles MyBase.SizeChanged
- For Each CoZArg As String In My.Application.CommandLineArgs
- Select Case CoZArg
- Case "-hide", "/hide"
- Select Case WindowState
- Case FormWindowState.Minimized
- ShowInTaskbar = False
- NotifyIcon1.Visible = True
- Case Else
- WindowState = FormWindowState.Normal
- ShowInTaskbar = False
- NotifyIcon1.Visible = True
- End Select
- Case "-vis", "/vis"
- Select Case WindowState
- Case FormWindowState.Minimized
- ShowInTaskbar = False
- NotifyIcon1.Visible = True
- Case Else
- WindowState = FormWindowState.Normal
- ShowInTaskbar = True
- NotifyIcon1.Visible = True
- End Select
- End Select
- Next
- End Sub
Wie gesagt, dass sich das Tool so verhält, kommt bisher nur auf zwei Rechnern vor. Der eine hat als OS Windows 10 Pro x64, der andere ein Windows 10 Home x86 als OS. Hat da jemand von euch vielleicht eine Idee, was ich da vergessen oder übersehen haben könnte?
Gruss Alex
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „areiland“ ()