NCTS 5

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -1,6 +1,7 @@
 Imports System.ComponentModel
 Imports System.Drawing
 Imports System.Net
+Imports System.Windows.Forms
 Imports VERAG_PROG_ALLGEMEIN.cCreditSafeAPI
 
 Public Class frmMitarbeitersuche
@@ -8,6 +9,8 @@ Public Class frmMitarbeitersuche
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim timas As New cTimasAPI
     Dim requestDone As Boolean = False
+    Dim MA As cMitarbeiter = Nothing
+
     Sub New()
 
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -65,9 +68,11 @@ Public Class frmMitarbeitersuche
         lblTimasSaldo.Visible = False
         Panel1.Visible = False
         btnSettings.Visible = False
-        Dim MA As cMitarbeiter = Nothing
+        ' Dim MA As cMitarbeiter = Nothing
         If sbMitarbeiter._value <> "" Then
             MA = New cMitarbeiter(sbMitarbeiter._value)
+        Else
+            MA = Nothing
         End If
 
         If MA Is Nothing Then
@@ -152,6 +157,7 @@ Public Class frmMitarbeitersuche
                 Case Else
                     PictureBox3.BackgroundImage = Nothing
             End Select
+
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
                 btn.Visible = True
                 btnSettings.Visible = True
@@ -387,4 +393,64 @@ Public Class frmMitarbeitersuche
         Dim webAddress As String = "https://zeit.verag.ag/webterminal/"
         Process.Start(webAddress)
     End Sub
+
+
+
+    Sub setBGPic(art, MA)
+        HOVER_ART = art
+        If art = "" Or MA Is Nothing Then
+            pic.BackgroundImage = My.Resources.personGray_m
+            picGeschlecht.Visible = True
+
+
+            If MA.mit_geschlecht = "w" Then
+                pic.BackgroundImage = My.Resources.personGray_w
+                picGeschlecht.BackgroundImage = My.Resources.weiblich
+            Else
+                pic.BackgroundImage = My.Resources.personGray_m
+                picGeschlecht.BackgroundImage = My.Resources.männlich
+            End If
+            If MA Is Nothing Then Exit Sub
+        End If
+
+        If MA.mit_MAVerzeichnis_allowFoto Then
+            Try
+                Select Case art
+                    Case "HOVER1" : If MA.mit_fotoHover1_DocId IsNot Nothing Then pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover1_DocId))
+                    Case "HOVER2" : If MA.mit_fotoHover2_DocId IsNot Nothing Then pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover2_DocId))
+                    Case Else : If MA.mit_foto_DocId IsNot Nothing Then pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_foto_DocId))
+                End Select
+            Catch ex As Exception
+                pic.BackgroundImage = My.Resources.personGray_m
+            End Try
+        End If
+
+
+    End Sub
+    Private Sub pic_MouseHover(sender As Object, e As EventArgs) Handles pic.MouseHover
+        Dim point
+        pic.PointToClient(point)
+
+    End Sub
+
+
+    Dim HOVER_ART = ""
+    Private Sub pic_MouseMove(sender As Object, e As MouseEventArgs) Handles pic.MouseMove
+        Dim art = ""
+
+        If e.X < pic.Size.Width / 2 Then
+            art = "HOVER1"
+        Else
+            art = "HOVER2"
+        End If
+        If art <> HOVER_ART Then
+            setBGPic(art, MA)
+        End If
+    End Sub
+
+    Private Sub pic_MouseLeave(sender As Object, e As EventArgs) Handles pic.MouseLeave
+        If HOVER_ART <> "" Then
+            setBGPic("", MA)
+        End If
+    End Sub
 End Class