窗体上有一个picture控件数组。。。设计的时候只有picture0(1)....还有一个添加按纽。。点击可以LOAD一个picture出来
假如我这次运行程序的时候，LOAD出来五个这样的picture。。。然后每个PICTURE还装入了图片（使用commondialog来显示打开通用对话框，再用LOADPICTURE来装入的）。。。我现在想在下次打开此程序的时候自动加载上次运行时已经LOAD过的PICTURE和它们的图片。。。

我的思路是这样的。。。（但是目前达不到预期结果）

我定义一个自定义变量 比如是
tpye cool
left as interge
top as interge
filename as string
no as interge
end type

dim cool1 as cool

然后在我每LOAD一个PICTURE的时候且装入图片的时候把PICTURE的index赋给cool1.no ，left 赋给cool1.left , top 赋给cool1.top ， commondialog1.filename赋给cool1.filename 然后把cool1变量内容写入文件如下
open "c:\save.dat" for random as #1 len =len(cool1)
put #1,index,cool1
close #1
然后再下次运行程序的时候再从文件读出内容自动装载。。。代码如下

number = 1
Open "C:\save.dat" For Random As #1 Len = Len(cool1)
Do While Not EOF(1)
Get #1, number, cool1
If number = 1 Then
Picture0(1).Picture = LoadPicture(cool1.Filename)
Else
Load Picture0(number)
Picture0(number).Left = cool1.left
Picture0(number).Top = cool1.top
Picture0(number).Picture = LoadPicture(cool1.Filename)
Picture0(number).Visible = True

End If
number = number + 1
Loop

但是程序运行并不能达到预期效果。。。怎么回事？请帮帮忙
我的思路有没有问题？

[此贴子已经被作者于2006-12-31 22:57:15编辑过]

谁帮忙解决一下啊？

我就是这样做的。。。因为有很多个控件。。。用的是控件数组。。。动态添加控件。。。所这次运行的时候我把已经LOAD好的控件数组成员和他们的PICTURE路径都保存起来了。。。用自定义类型数据保存的。。如下

tpye cool
left as interge
top as interge
filename as string
no as interge
end type

left表示这个控件在窗体中的left值 top 表示top值....filename表示控件数组成员的picture属性路径。。。no为控件数组的成员的index值。。。然后每LOAD一个新PICTURE成员出来，就把它的相关属性写入文件。令记录号和index属性相同。。。下次打开程序的时候从文件读出数据并全部装载过来。。。我是这样写的代码。但是得不到结果。。。暂不问其它的。。请问下，我的思路有没有问题。。。？？？？