如何保存在VBA控件上次输入的值
1个回答
展开全部
像vb6一样
写入顺序文件,如果optionbutton的值为true写1否则写0
每行写一个
读取顺序文件,按照顺序填上就行了。现在用vb2008,忘了顺序文件怎么读取写入了,只能给你一个思路,见谅。
创建一个控件数组option(x)
写入
dim
x
as
long
open
[filename]
for
input
as
#1
for
x=0
to
option的个数
if
option(x).value
=
then
print
#1,"1"
else
print#1,"0"
end
if
next
close
#1
读取
dim
tmp(0
to
option的个数)
as
string,x
as
long
open
[filename]
for
input
as
#2
for
x=1
to
option的个数
lineinput
#2,tmp(x)
if
trim(tmp(x))=0
then
option(x).value=false
else
option(x).value=true
end
if
next
close
#2
写入顺序文件,如果optionbutton的值为true写1否则写0
每行写一个
读取顺序文件,按照顺序填上就行了。现在用vb2008,忘了顺序文件怎么读取写入了,只能给你一个思路,见谅。
创建一个控件数组option(x)
写入
dim
x
as
long
open
[filename]
for
input
as
#1
for
x=0
to
option的个数
if
option(x).value
=
then
#1,"1"
else
print#1,"0"
end
if
next
close
#1
读取
dim
tmp(0
to
option的个数)
as
string,x
as
long
open
[filename]
for
input
as
#2
for
x=1
to
option的个数
lineinput
#2,tmp(x)
if
trim(tmp(x))=0
then
option(x).value=false
else
option(x).value=true
end
if
next
close
#2
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询