AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

DocView Anpassungen - Vorbereitung Update .NEt8

Browse Source
This commit is contained in:
Developer01
2025-10-01 15:20:16 +02:00
parent acc5dd4d46
commit 2e57e079b0
13 changed files with 419 additions and 557 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Controls.DocumentViewer/DocumentViewer.vb
View File

@@ -468,6 +468,7 @@ Public Class DocumentViewer
End Sub
Private Function DoLoadFile(FilePath As String, Optional ViewOverride As String = "") As Boolean
Try
lblInfo.Visible = False
Dim oFileInfo = New FileInfo(FilePath)
Dim oExtension As String = oFileInfo.Extension.ToUpper
@@ -486,8 +487,8 @@ Public Class DocumentViewer
RichEditControl1.Dock = DockStyle.Fill
_ViewOverride = "Richtext"
_ViewerMode = ViewerMode.Richtext
MsgBox("This docx-file contains a generic error and will be displayed in a reduced viewer." & vbNewLine &
"Please try to open the file in WORD", MsgBoxStyle.Exclamation, "Error opening docx-file")
lblInfo.Visible = True
lblInfo.Text = "This docx-file contains a generic error and will be displayed in a reduced viewer. Please try to open the file in WORD"
Else
_ViewOverride = ""
Select Case oExtension.ToUpper