遍历文件扩展名

Try 
    Dim lImage As Image = Image.FromFile(appPath + "\" + "ActiveDisplay" + "\" + "Helmets" + "\" + vData + **"extension loop need"**) 
    ResizePicture(Me.PictureBox1, lImage) 
Catch ex As Exception 

End Try

我在寻找在观众一个形象的名字，并通过扩展任何帮助，将不胜感激遍历文件扩展名

来源

2016-08-23 Fox243

http://stackoverflow.com/documentation/vb.net/1639/looping#t=201608231708070683181 – TyCobb

你需要一个实际的循环结构（For Each，For n），'Image.FromFile'不会加载通配符，如果它确实什么是重点 - 你只能看到一个图像 – Plutonix

你可以使用一个字符串数组和一个For Each

Dim extensions As String() = {".png", ".jpg", ".bmp"} 
    For Each ext As String In extensions 
     Dim file As String = appPath + "\" + "ActiveDisplay" + "\" + "Helmets" + "\" + vData + ext 

     'I recomend use: Dim file As String= String.Format("{0}\ActiveDisplay\Helmets\{1}\{2}", appPath, vData, ext) 

     If IO.File.Exists(file) Then 
      Dim lImage As Image = Image.FromFile(file) 
     End If 
    Next

需要循环

来源

2016-08-23 17:17:52 Nosi

谢谢你你的帮助。 – Fox243

遍历文件扩展名

回答

相关问题