如何保存输入的命令?

egua

建立了一个宏,将其做成按钮,当第一次按时,用getreal实现了输入数值,

怎么才能第二次点击该按钮时实现此数值的保留,而不用再次输入?

如同2006中cad中的命令一样~

sody

和我的问题差不多，好像VBA中的静态变量是个瓶颈

有个变通的办法是把变量保存在form中

但是觉得太别扭啊

难道static语句真的没用？那为什么却有这个声明呢

egua

难道只能用lisp了么?

zhang007

你应该说得更清楚一些，比如第二次点击该按钮时整个程序退出了没有，如果整个程序已退出了，则数据可保存在外部（注册表、文本文件等），下次启动时读取它即可

egua

这么说吧:

我第一次根据提示输入文字内容和字高,程序根据我的输入在图上绘出文字,

第二次再运行这个宏我就只输入文字内容,字高还使用上次那个!

就好像cad中pline线的画法,能够自动保存上一次的线宽数值~请帮忙啦~

wyj7485

建议用注册表来实现

egua

斑竹能说得具体点么？我是菜鸟

wyj7485

SaveSetting ,GetSetting ,DeleteSetting 函数
本示例首先使用 SaveSetting 语句来建立Windows注册区（或 16位 Windows 平台的.ini档）里 appname 应用程序的项目，然后使用 GetSetting 函数来得到其中一项设置并显示出来。因为有传入参数 default，GetSetting 函数一定会有返回值。请注意，section 名称不能用 GetSetting 函数取得。最后，使用 DeleteSetting 语句将该应用程序项删除。

2. ' 用来保存 GetSetting 函数所返回之二维数组数据的变量。
3. Dim MySettings As Variant
4. ' 在注册区中添加项目。
5. SaveSetting "MyApp","Startup", "Top", 75
6. SaveSetting "MyApp","Startup", "Left", 50Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
7.                        key := "Left", default := "25")DeleteSetting "MyApp", "Startup"

' 用来保存 GetSetting 函数所返回之二维数组数据的变量。 Dim MySettings As Variant ' 在注册区中添加项目。 SaveSetting "MyApp","Startup", "Top", 75 SaveSetting "MyApp","Startup", "Left", 50Debug.Print GetSetting(appname := "MyApp", section := "Startup", _                        key := "Left", default := "25")DeleteSetting "MyApp", "Startup"

egua

这种方法似乎不太好用，我的宏只是一个一个简单程序，我希望我所保留的字高在Autocad关闭的时候能够清除，而不是在宏完成时进行清除。下一次启动cad可能会有不同的字高～

wyj7485

那就把它保存在系统的USERR1-5变量中吧