乐筑天下

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

请问在vba中,如何保存用户在窗体中的输入状态,以便在用户下次使用时读取

[复制链接]

17

主题

33

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
101
发表于 2007-6-3 21:14:00 | 显示全部楼层 |阅读模式
请问在vba中,如何保存用户在窗体中的输入状态,以便在用户下次使用时读取
回复

使用道具 举报

6

主题

14

帖子

1

银币

初来乍到

Rank: 1

铜币
38
发表于 2007-6-5 16:35:00 | 显示全部楼层
其实也不难,可以将窗体中的值写到文件或注册表中,下次启动的时候读入值就可以了
回复

使用道具 举报

17

主题

33

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
101
发表于 2007-6-5 19:22:00 | 显示全部楼层

请问如何将窗体中的值写到文件或注册表中?
能提示一下用什么语句实现吗?
回复

使用道具 举报

3

主题

20

帖子

4

银币

初来乍到

Rank: 1

铜币
32
发表于 2007-6-6 16:50:00 | 显示全部楼层
写注册表用
GetAllSettings
GetSetting
SaveSetting
这三个函数,
写ini文件用
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
这四个API函数
回复

使用道具 举报

17

主题

33

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
101
发表于 2007-6-6 17:12:00 | 显示全部楼层

Thx a lot!!!
GetAllSettings
GetSetting
SaveSetting
这三个函数我在vba的手册中找到了
但是写ini文件用的四个API函数找不到
回复

使用道具 举报

3

主题

20

帖子

4

银币

初来乍到

Rank: 1

铜币
32
发表于 2007-6-10 13:31:00 | 显示全部楼层
这四个API函数要自己将我刚才给你发过去的四个定义放在一个标准模块里面才能使用,否则会出错的,用VB的API views程序可以查找这四个函数
回复

使用道具 举报

0

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
1
发表于 2007-7-6 21:09:00 | 显示全部楼层
我是初学,能否结合一个实例讲解一下四个API函数的实际使用
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-6 19:26 , Processed in 0.777654 second(s), 66 queries .

© 2020-2025 乐筑天下

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