VB一个简单的问题 关于IF和图片的?

补充：图片这个解决了 可是如果没图片的时候那里一片都是灰色的  应该怎么写可以实现  有图的时候打开  没图的时候播放其他的图  那个图保存到程序里  而不是其他路径 我Q 121 466 121  加我聊
		

答案：用timer+dir 循环判断即可。
timer1_timer()
if ucase(dir("d:\abc.bmp"))=ucase(("abc.bmp") ) then
picture1.picture=loadpicture ("d:\abc.bmp") 
else
picture1.picture=loadpicture()
end if
end sub 
Private Sub Timer1_Timer()
    If Dir("d:\abc.bmp") <> "" Then
        Picture1.Picture = LoadPicture("d:\abc.bmp")
    Else
        Picture1.Picture = LoadPicture()
    End If
End Sub
用DO LOOP貌似有点错误。。所以用下面的TIMER控件比较好
添加一个Timer控件，然后设置它的Interval值为1000，添加一个Label控件名为Label1,然后添加如下代码测试
Private Sub Timer1_Timer()
If Dir("d:\abc.bmp")="" Then
Picture1.Picture = LoadPicture()
label1.caption="要加载的图片不存在，请等待..."
Else
Picture1.Picture = LoadPicture("d:\abc.bmp")
End If
End Sub

上一个：VB编程_如何在txt文件首尾插入内容！
下一个：详细介绍一下VB PictureBox的print和cls方法