Question

vb 这段应该怎么改Image1.Picture = LoadPicture("f:\2.gif") 能找到F盘下的gif格式图片但是

Image1.Picture = LoadPicture("f:\2.gif") 这个能找到F盘下的gif格式图片
改成 Image1.Picture = LoadPicture("f:\2..jpeg") 这样就找不到F盘下的.jpeg格式图片 哪位高手帮帮忙 我的目的就是让 Image1 里显示 F盘下的某个格式图片~~怎么能设所有格式的图片都能显示到Image1
不是那个点 那个点是我写问题写多的~~~ 程序上不好使
运行Image1.Picture = LoadPicture("f:\2.jpeg")
出现实施错误53
文件问找到 ‘f:2.jpeg'

Answer 1

因为你 LoadPicture("f:\2..jpeg") 2后面有2个点
添加一个filelistbox控件代码如下
Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(File1.ListIndex))
End Sub

Private Sub Form_Load()
File1.Path = "f:\"
File1.Pattern = "*.jpg;*.jpeg;*.bmp;*.gif" '要显示什么格式就“星号+点+格式名称+分号”
End Sub

Answer 2

loadpicture是可以加载这两种格式的。我估计是不是你文件名打错了，似乎多打了一个点。

Answer 3

jpeg是和gif放在同一个文件夹了么？如果是，jpeg前面多了一个点，如果不是，把两个点点到\前面，代表上级文件夹。

Answer 4

jpeg改成jpg试试，还有，你那里有2个点

Answer 5

Image1.Picture = LoadPicture("f:..\2.jpeg")

Answer 6

把2改成*