VB生成的EXE文件怎样保存界面并推出??
在VB里,用了N个TEXT组合成了一个表格,具有自己所需的特殊运算功能,生成了EXE文件,但每次退出后数据都没了,怎样能保证每次进去后能继续上次的数据来填写运算,哪个高手...
在VB里,用了N个TEXT组合成了一个表格,具有自己所需的特殊运算功能,生成了EXE文件,但每次退出后数据都没了,怎样能保证每次进去后能继续上次的数据来填写运算,哪个高手教教我啊,我是刚学VB的新手。
展开
展开全部
用数据库啊,也可以用文本文件
用文本文件方法如下:
1.创建一个文本文件(直接在需要的地方点右键,选择新建)
2.读取
用open方法打开,如
open "d:\data.txt"(路径名)for input as #1
读入 例如
on error resume next
input #1,text1.text
别忘了关闭,用 close #1
3.保存
open "d:\data.txt"(路径名)for output as #1
print #1,text1.text
close #1
这样就搞定了,简单吧。
用文本文件方法如下:
1.创建一个文本文件(直接在需要的地方点右键,选择新建)
2.读取
用open方法打开,如
open "d:\data.txt"(路径名)for input as #1
读入 例如
on error resume next
input #1,text1.text
别忘了关闭,用 close #1
3.保存
open "d:\data.txt"(路径名)for output as #1
print #1,text1.text
close #1
这样就搞定了,简单吧。
展开全部
每次关闭软件时,把所填的数据保存一下,得保存到一个文件中。
关闭的过程:
Private Sub Form_Unload(Cancel As Integer)
End Sub
关闭的过程:
Private Sub Form_Unload(Cancel As Integer)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个。。
需要加退出时输出xx.ini之类的。 然后启动自动加载
需要加退出时输出xx.ini之类的。 然后启动自动加载
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Form_Load()
On Error GoTo E
Open App.Path & "\data.txt" For Input As #1
Dim s(4) As String 'Text控件个数-1
Dim i As Long
Do While Not EOF(1)
Line Input #1, s(i)
i = i + 1
Loop
Close #1
Text1.Text = s(0)
Text2.Text = s(1)
Text3.Text = s(2)
'……
E:
Err.Clear
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\data.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
'……
Close #1
End Sub
On Error GoTo E
Open App.Path & "\data.txt" For Input As #1
Dim s(4) As String 'Text控件个数-1
Dim i As Long
Do While Not EOF(1)
Line Input #1, s(i)
i = i + 1
Loop
Close #1
Text1.Text = s(0)
Text2.Text = s(1)
Text3.Text = s(2)
'……
E:
Err.Clear
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\data.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
'……
Close #1
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询