Dim k As Boolean
Private Sub CommandButton1_Click()
k = True
Do While k = True
i = Int((10 - 1 + 1) * Rnd + 1)
Image1.Picture = LoadPicture("d:\7pic\" & i & ".jpg")
DoEvents
Loop
End Sub

Private Sub CommandButton2_Click()
k = False
End Sub

Private Sub Image1_Click()
Image1.stretch = True
End Sub
怎么让抽到的图片在文件夹里删除，并且还不影响程序的正常运行！求高手指点～

你的问题描述的不清楚，什么叫“抽到”。
这说明你代码写好了，但是会出错，请提供代码和错误信息

大概理解你的意图了，在你的d盘中有7pic1.jpg - 7pic10.jpg 10个图片，点击CommandButton1按钮是随机显示一个图片。
你的意思是不是点击CommandButton2按钮，要在d盘删除显示的这个图片？
由于你的图片是随机抽取显示的，如果删除其中的一个图片，点击CommandButton1按钮时有可能会出生错误。
例如你删除了7pic5.jpg这个图片，在下次点击CommandButton1按钮时，如果产生的随机数 i=5 ，那么 7pic5.jpg 这个文件已经删除，程序会产生错误的。

如果你需要这种效果，而且不会产生错误，用列表的方式显示图片名称，点击图片名称，显示图片，不能采用随机数的方式。
这样即就是删除其中的某个图片，也不会产生错误。

[此贴子已经被作者于2016-8-26 09:31编辑过]

这都看得懂，厉害

反正我没看懂。

如果产生的随机数 i=5 ，那么 7pic5.jpg 这个文件已经删除，程序会产生错误的。

追加一个if dir()then  判断就好了，如果不存在，重新抽。

貌似6楼讲的更符合思维惯性










________________________________________________________________________________________________________________________________________________
QQ:443242949

[此贴子已经被作者于2016-8-26 18:41编辑过]

什么时候删除

非常感谢！我就是这个意思！