- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
Select Case Microsoft.VisualBasic.Right(FileLBL.Text.Trim, 3)
Case "pdf"
IconIMG.ImageUrl = "~/img/pdf.bmp"
Case "doc"
IconIMG.ImageUrl = "~/img/word.bmp"
Case "xls", "csv"
IconIMG.ImageUrl = "~/img/excel.bmp"
Case "rpt"
IconIMG.ImageUrl = "~/img/crystal.bmp"
Case "txt"
IconIMG.ImageUrl = "~/img/text.bmp"
Case Else
IconIMG.ImageUrl = "~/img/blank.bmp"
End Select
guest 08.09.2009 13:35 # 0
guest 27.09.2009 00:28 # 0
TEEN 16.11.2010 17:43 # 0
м.б. "~/img/" вынести вместе с ".bmp"?
а так же можно было не FileLBL.Text.Trim, а FileLBL.Text.RTrim?
пересмотрел раз пять
И вообще почему бы не собирать сначала стринг, а после свитча выполнить: IconIMG.ImageUrl = "~/img/" & iconame & ".bmp"
guest 28.09.2009 09:50 # 0
2. Вынести в отдельный хелпер, ибо код применяется во многих местах.
DPNET 15.10.2011 02:31 # 0
IconIMG.ImageUrl = "~/img/" & FileLBL.Text.Trim.Substring(FileLBL.Text .Trim.Count-4).ToLowerInvariant & ".bmp