注册 登录
编程论坛 → VB6论坛

怎么让抽到的图片从文件夹里删除

gongyi0509 发布于 2016-08-25 14:45， 2236 次点击
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
怎么让抽到的图片在文件夹里删除，并且还不影响程序的正常运行！求高手指点～
8 回复
#2
xiangyue05102016-08-25 20:21
你的问题描述的不清楚，什么叫“抽到”。
并且还不影响程序的正常运行！
这说明你代码写好了，但是会出错，请提供代码和错误信息
#3
ZHRXJR2016-08-26 09:25
大概理解你的意图了，在你的d盘中有7pic1.jpg - 7pic10.jpg 10个图片，点击CommandButton1按钮是随机显示一个图片。
你的意思是不是点击CommandButton2按钮，要在d盘删除显示的这个图片？
由于你的图片是随机抽取显示的，如果删除其中的一个图片，点击CommandButton1按钮时有可能会出生错误。
例如你删除了7pic5.jpg这个图片，在下次点击CommandButton1按钮时，如果产生的随机数 i=5 ，那么 7pic5.jpg 这个文件已经删除，程序会产生错误的。

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

[此贴子已经被作者于2016-8-26 09:31编辑过]
#4
xiangyue05102016-08-26 13:16
回复 3楼 ZHRXJR
这都看得懂，厉害
#5
风吹过b2016-08-26 15:38
反正我没看懂。
#6
pengzhanggui2016-08-26 17:28
回复 3楼 ZHRXJR
如果产生的随机数 i=5 ，那么 7pic5.jpg 这个文件已经删除，程序会产生错误的。

追加一个if dir()then  判断就好了，如果不存在，重新抽。
#7
卫南客2016-08-26 18:36
貌似6楼讲的更符合思维惯性










________________________________________________________________________________________________________________________________________________
QQ:443242949

[此贴子已经被作者于2016-8-26 18:41编辑过]
#8
Artless2016-08-27 00:45
什么时候删除
#9
gongyi05092016-09-07 20:21
回复 3楼 ZHRXJR
非常感谢！我就是这个意思！
1
©2025, BC-CN.NET
电脑版