Question

保存背景修改的VB代码

使用这个代码Form1.Picture = LoadPicture(Text1.Text)，把背景修改成另外的图片，请问要加入什么代码才能永久使用这个背景

Answer 1

Form1.Picture = LoadPicture(Text1.Text)

Form1的背景文件从 Text1 所指定的路径读取。
不清楚你说的永久使用是什么意思，假设你不想从Text1获取路径，你可以将修改后的背景图放到源代码文件夹下，和编译后的Exe相同目录，假设取名为 Back.JPG ，用这个代码：
Form1.Picture = LoadPicture(App.Path & "\Back.JPG")

追问

不是， 我指的是保存修改之后 以后打开程序的时侯都显示自定义设置的，而不是显示原本设置好的的那个背景

追答

那你只要使用相同的背景图片文件名就行了

追问

我是打算软件生成之后可以修改背景图，但是 我现在的这个代码只能修改 但是 软件重新启动之后就会变回原来的背景图 我想要永久改变的代码 就是QQ的换背景那样

如果有的话 我想要保存窗体改变的代码，就是说对窗体做出的修改 保存之后 重新启动程序的时侯就会变成改变后的样子

追答

可以用文件保存，上次修改完背景图，将文件名保存到文件中，下次运行时，从文件中读取文件名

追问

代码？

追答

保存：
open app.path & "\aaa.txt" for output as #1
print #1, filename
close #1

读取：
open app.path & "\aaa.txt" for input as #1
line input #1, s
close #1
Form1.Picture = LoadPicture(s)

追问

呃，这个是文本的把
我要的是保存VB里面的那个控件所写的

追答

我实在不知道你想干什么

追问

我已经自己解决了 还是谢谢你了