Fakt, ustva, frmMitarbeiter

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -517,16 +517,43 @@ Public Class frmMitarbeitersuche
 
     Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
 
-        Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
-        Dim webAddress As String = Paramslist.GET_PARAMETER_VALUE("TIMAS-LOGIN")
 
-        If webAddress <> "" Then
-            Process.Start(webAddress)
-        Else
-            Process.Start("https://zeit.verag.ag/webterminal/") 'fallback
+
+        If Not ContextMenuStrip1.Items.ContainsKey("timas_old") Then
+            Dim plose = New ToolStripMenuItem() With {.Text = "TimasWEB", .Name = "timas_old", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            ContextMenuStrip1.Items.Add(plose)
+            AddHandler plose.Click, AddressOf mnuItemTimas_Clicked
+        End If
+
+        If Not ContextMenuStrip1.Items.ContainsKey("timas_new") Then
+            Dim plose = New ToolStripMenuItem() With {.Text = "Timas ÜBERSICHT", .Name = "timas_new", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
+            ContextMenuStrip1.Items.Add(plose)
+            AddHandler plose.Click, AddressOf mnuItemTimas_Clicked
+        End If
+
+        ContextMenuStrip1.Show(Cursor.Position)
+
+
+    End Sub
+
+    Private Sub mnuItemTimas_Clicked(sender As Object, e As EventArgs)
+
+        ContextMenuStrip1.Hide()
+        Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
+
+        Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+
+        If item IsNot Nothing Then
+            If item.Name = "timas_new" Then
+                Process.Start(Paramslist.GET_PARAMETER_VALUE(item.Name))
+            ElseIf item.Name = "timas_old" Then
+                Process.Start(Paramslist.GET_PARAMETER_VALUE(item.Name))
+            End If
 
         End If
 
+
+
     End Sub
 
     Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click