MS10082016
This commit is contained in:
@@ -183,26 +183,26 @@ Public Class Class_DOC_SEARCH
|
||||
NewRow = DTGrid.NewRow()
|
||||
|
||||
'Icon zuweisen
|
||||
Select Case extension
|
||||
Case ".csv"
|
||||
Select Case extension.ToUpper
|
||||
Case ".csv".ToUpper
|
||||
NewRow.Item(0) = My.Resources.doc_excel_csv
|
||||
Case ".txt"
|
||||
Case ".txt".ToUpper
|
||||
NewRow.Item(0) = My.Resources.text
|
||||
Case ".pdf"
|
||||
Case ".pdf".ToUpper
|
||||
NewRow.Item(0) = My.Resources.pdf
|
||||
Case ".doc"
|
||||
Case ".doc".ToUpper
|
||||
NewRow.Item(0) = My.Resources.doc
|
||||
Case ".docx"
|
||||
Case ".docx".ToUpper
|
||||
NewRow.Item(0) = My.Resources.doc
|
||||
Case ".xls"
|
||||
Case ".xls".ToUpper
|
||||
NewRow.Item(0) = My.Resources.xls
|
||||
Case ".xlsx"
|
||||
Case ".xlsx".ToUpper
|
||||
NewRow.Item(0) = My.Resources.xls
|
||||
Case ".ppt"
|
||||
Case ".ppt".ToUpper
|
||||
NewRow.Item(0) = My.Resources.ppt
|
||||
Case ".pptx"
|
||||
Case ".pptx".ToUpper
|
||||
NewRow.Item(0) = My.Resources.ppt
|
||||
Case ".dwg"
|
||||
Case ".dwg".ToUpper
|
||||
NewRow.Item(0) = My.Resources.dwg
|
||||
Case Else
|
||||
NewRow.Item(0) = My.Resources._blank
|
||||
|
||||
Reference in New Issue
Block a user