[求助]怎样保存装载的图片?
请各位高手帮忙,我在应用程序中利用CommonDialog.filename打开文件,然后Picture1.picture = LoadPicture(filename),在Picture1中可以显示图片,但是当我关闭应用程序之后,图片就不见了,要怎样做才可以在下次打开时还可以看到原来的图片呢?
外接程序---外接程序管理器--------VB资源管理器
添加资源文件
编号 101
文件类型选择位图
保存资源文件 (就和窗体属性一样..)
picture1.picture =loadrespicture(101,vbbitmap)
保存文件 OK
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("D:\多图片显示\{BB0D8D25-E73F-44D2-9A78-6C478D55EF6C}0.jpg")
Open "d:\abc.txt" For Output As #1
Print #1, "D:\多图片显示\{BB0D8D25-E73F-44D2-9A78-6C478D55EF6C}0.jpg"
Close
End Sub
Private Sub Form_Load()
If (Dir("d:\abc.txt") <> "") Then
Open "d:\abc.txt" For Input As #1
Dim FileName As String
Line Input #1, FileName
Picture1.Picture = LoadPicture(Trim(FileName))
Close
End If
End Sub
[此贴子已经被作者于2006-10-7 14:26:17编辑过]