用户定义类型未定义vb6

我试图将vb6中文本框的上下文“保存”到*.ini文件中，以便在程序的后续部分中使用。（即，用户将在文本框中输入一些内容，然后在程序的后面，将出现一个标签，其中包含用户输入的、保存的信息）

我使用了以下代码，这些代码是我从其他人的程序源代码中复制的，但是它不起作用：

Dim fsys As New FileSystemObject 
Dim outstream As TextStream
Dim write1 As String
Dim val1 As String
val1 = Text1.Text
inisettings = App.Path & "\Variables.ini"
Set outstream = fsys.OpenTextFile(inisettings, ForWriting, False, TristateFalse)
outstream.WriteLine (val1)
Set outstream = Nothing

结果是：

---

有人有办法保存数据以备以后使用吗？

您必须声明TristateFalse并为其指定一个类似于0、1或2的值

---

您可以查看此链接：

FileSystemObject

位于外部库中，要使用它，请单击Project，然后单击References并勾选Microsoft Scripting Runtime

您实际上不需要执行任何操作，下面的代码使用VB的内置功能来编写文件

Dim hF As Integer
hF = FreeFile()

Open App.Path & "\Variables.ini" For Output As #hF
Print #hF, val1
Close #hF

---

出现此错误的原因是您没有对Microsoft脚本运行库的引用。在VB6项目中，请按照以下说明操作：

从顶部菜单中，单击项目>参考

从列表中，选中标题为“Microsoft脚本运行时”的项目

单击“确定”

这将解决您的即时错误，但是您的代码仍然存在一些其他问题。首先，您忘记在设置中声明变量

。我假设每次更新INI文件时，您都希望覆盖整个文件，因此您希望使用方法

CreateTextFile

而不是

OpenTextFile

Dim fsys As New FileSystemObject 
Dim outstream As TextStream
Dim write1 As String
Dim val1 As String
Dim inisettings As String

val1 = Text1.Text
inisettings = App.Path & "\Variables.ini"
Set outstream = fsys.CreateTextFile(inisettings, True, False)
Call outstream.WriteLine(val1)
Set outstream = Nothing

---

祝你好运

@Danh，如果一个答案解决了你的问题，就把它标记为解决方案。@Herb不是我的question@Doofitator如果某个答案解决了您的问题，请将其标记为解决方案。下次请指出发生错误的行号。可能重复