你可以把图片的名称改为数字的,如:1.jpg
然后用:
b=取随机数(,)
图片框.图片 = 读入文件("d:\image\”+到文本(b)+“.jpg")
这样。图片框就可以换图片了。
或者在你的程序加一个列表框。然后把所有的图片名称写到一个文本文件里,列表框通过读取这个文本文件把这些图片的名称加入到列表框里,然后写代码
b=列表框.现行选中项
图片框.图片 = 读入文件("d:\image\”+b)
如果你写到那个文本文件里的图片都是有路径的。就不用担心图片是在那个目录了。直接写代码
b=列表框.现行选中项
图片框.图片 = 读入文件(b)
你可以把图片都放到你程序里的图片资源里。或者把你的图片都压缩到一个zip的压缩包里,然后放到图片资源里,再在窗口放个 zip压缩 组件,在启动窗口创建完毕的程序里写:比如你放到图片资源里的那个压缩包的名字是 图片1
写到文件(“d:\image.zip”,#图片1)
zip压缩.解压(“d:\image.zip”,“d:\image”)
温馨提示:内容为网友见解,仅供参考