乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 67|回复: 5

[原创]向高手请教

[复制链接]

61

主题

163

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
407
发表于 2007-2-25 22:41:00 | 显示全部楼层 |阅读模式
问题:
在vba的用户窗体中,已经放好了一个文本框控件,在窗体的初始化事件中假如令它在启动的时候初始值为10(
Private Sub UserForm_Initialize()
TextBox1=10
End Sub),在运行程序后,用户在该文本框输入15,我想希望在下一次重新运行该程序时,该文本框初始值为15,即用户输入的值能够传入窗体的初始化事件中。请问在写程序中怎么控制?
谢谢大家
回复

使用道具 举报

55

主题

282

帖子

5

银币

中流砥柱

Rank: 25

铜币
502
发表于 2007-2-27 20:03:00 | 显示全部楼层
如果想程序关闭后记住原来的数据,只能将数据写入文件存起来了!
回复

使用道具 举报

61

主题

163

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
407
发表于 2007-2-27 22:25:00 | 显示全部楼层
将数据写入文件存起来?
那下一次再运行程序的时候怎么直接得到而不用采用读文件操作方式读取上一次所输入的数据阿?
那就达不到预先的目的了阿
回复

使用道具 举报

37

主题

151

帖子

1

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
299
发表于 2007-2-27 22:52:00 | 显示全部楼层
不知道你预先的目的是什么?另外可以用注册表记录,就不用读文件。
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2007-2-28 12:28:00 | 显示全部楼层
Private Sub CommandButton1_Click()
SaveSetting "TlsCad", "test", "test1", TextBox1.Text
End Sub
Private Sub UserForm_Activate()
TextBox1.Text = GetSetting("TlsCad", "test", "test1", 10)
End Sub
回复

使用道具 举报

61

主题

163

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
407
发表于 2007-2-28 21:09:00 | 显示全部楼层
请问版主SaveSetting ,GetSetting是什么函数?我在帮助文档里怎么没有搜索到这两个函数?SaveSetting "TlsCad", "test", "test1", TextBox1.Text和GetSetting("TlsCad", "test", "test1", 10)里面的参数各代表什么意思?谢谢版主~~
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 09:16 , Processed in 0.849677 second(s), 65 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表