vb6 - 用户定义类型未定义 vb6

Question

我试图将 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

这是结果:

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

Answer 1

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