diff --git a/Controls.DocumentViewer/DocumentViewer.vb b/Controls.DocumentViewer/DocumentViewer.vb index 22bac6cf..c540e4b2 100644 --- a/Controls.DocumentViewer/DocumentViewer.vb +++ b/Controls.DocumentViewer/DocumentViewer.vb @@ -199,7 +199,7 @@ Public Class DocumentViewer RichEditControl1.Visible = True RichEditControl1.Dock = DockStyle.Fill - Case ".XLSX", ".XLS", "CSV" + Case ".XLSX", ".XLS", ".CSV" SpreadsheetControl1.LoadDocument(FilePath, GetSpreadsheetFormat(oExtension)) Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() @@ -254,7 +254,7 @@ Public Class DocumentViewer RichEditControl1.Visible = True RichEditControl1.Dock = DockStyle.Fill - Case ".XLSX", ".XLS", "CSV" + Case ".XLSX", ".XLS", ".CSV" SpreadsheetControl1.LoadDocument(Stream, GetSpreadsheetFormat(Extension)) Dim oRange = SpreadsheetControl1.ActiveWorksheet.GetUsedRange() @@ -285,9 +285,9 @@ Public Class DocumentViewer Dim oFormat As Spreadsheet.DocumentFormat = Spreadsheet.DocumentFormat.Undefined Select Case Extension.ToUpper - Case "XLSX" : oFormat = Spreadsheet.DocumentFormat.Xlsx - Case "XLS" : oFormat = Spreadsheet.DocumentFormat.Xls - Case "CSV" : oFormat = Spreadsheet.DocumentFormat.Csv + Case ".XLSX" : oFormat = Spreadsheet.DocumentFormat.Xlsx + Case ".XLS" : oFormat = Spreadsheet.DocumentFormat.Xls + Case ".CSV" : oFormat = Spreadsheet.DocumentFormat.Csv End Select Return oFormat diff --git a/Controls.DocumentViewer/My Project/AssemblyInfo.vb b/Controls.DocumentViewer/My Project/AssemblyInfo.vb index 3110a8e1..5ec8e584 100644 --- a/Controls.DocumentViewer/My Project/AssemblyInfo.vb +++ b/Controls.DocumentViewer/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +