diff --git a/Aviso/Anhänge/frmSendungAnhangImport.vb b/Aviso/Anhänge/frmSendungAnhangImport.vb index ca2d36f..b4744ff 100644 --- a/Aviso/Anhänge/frmSendungAnhangImport.vb +++ b/Aviso/Anhänge/frmSendungAnhangImport.vb @@ -154,10 +154,16 @@ Public Class frmSendungAnhangImport 'NOT WORKING 'PdfViewer.LoadFromFile(loc) NOT WORKING End If - ElseIf typ = "BILD" Then + ElseIf typ = "BILD" Or typ = ".jpg" Then PdfViewer.Visible = False WebBrowser.Visible = (loc <> "") - WebBrowser.Navigate(loc) + ' WebBrowser.Navigate(loc) + If loc <> "" Then + DisplayImageInWebBrowser(loc, WebBrowser) + Else + WebBrowser.Navigate("") + End If + End If Button5.Visible = PdfViewer.Visible @@ -166,6 +172,42 @@ Public Class frmSendungAnhangImport End Try End Sub + ' Funktion zur Anzeige eines Bildes im WebBrowser + Private Sub DisplayImageInWebBrowser(imagePath As String, browser As WebBrowser) + ' Dynamisches HTML erstellen + Dim html As String = $" + + +
+ + +