保存窗体背景色问题

本笨

我想由用户自定义窗体背景色，me.主体.backcolor = 15136744，显示成功了。但是再打开窗体时，还是设计时的16777215。如何使它保存指定的数值？下次打开时就是用户自定义的色？

李寻欢

可以保存在表里面，每次打开都读取背景值，然后再设置，这样也可以做到每个用户有不同的背景色及其它个性化设置

Roadbeg

使用 getsetting 和 savesetting 保存在注册表里也可.

sunredday

dim frm as form
set frm= yourchangecolorform
If CurrentProject.AllForms(frm).IsLoaded = true Then
DoCmd.Close acForm, frm
DoCmd.OpenForm frm, acDesign, , , acFormEdit, acHidden
frm.bckcolor=123321
DoCmd.Restore
DoCmd.Close acForm, frm, acSaveYes


by the way
if you have got been successful
please tell me at once
for i do not know if it will be ok
lol

[此贴子已经被作者于2003-4-30 16:53:31编辑过]

本笨

TO：李寻欢

我本也想做成表的调用，但怕拖慢数据库。而且我看过一个例程，他有自定义用户颜色，但又没有调用表。例程是MDE的，无法看他如何实现的，所以才提出向大家求教。

而我还是菜鸟一只，怕难以实现Roadbeg的方法。

谢谢sunredday，我用你的方法可以实现。我的思路是一个设置窗体，例子中的窗体2，设置完成后，将用户窗体，例子中的窗体3的颜色改变。成功实现。

例程上传：

本笨

忘了说一句，sunredday,你的代码中docmd.restore好象不用的吧，直接就可以用save了

sunredday

docmd.restore 是使窗体复原
我对它不是十分了解。