使用其他 Sub VB6 中的对象或字符串答案

【问题标题】：Use Object or String from other Sub VB6使用其他 Sub VB6 中的对象或字符串
【发布时间】：2012-12-06 10:02:15
【问题描述】：

如何在 vb6 中实现，例如我想在 Sub Action() 和 Btn1_Click() 上显示结果，但我在 Form_Load() 上设置了所有必需的对象和字符串：

Private Sub Form_Load()
Dim ObjFso As Object
Dim TheText As String
Set ObjFso = CreateObject("Scripting.FileSystemObject")
TheText = "Hello"
Call Action
End Sub

Public Sub Action()
ObjFso.CreateTextFile("Test.txt").WriteLine(TheText)
MsgBox TheText, 0, "This is the text"
End Sub

Private Sub Btn1_Click()
If ObjFso.OpenTextFile("Test.Txt",1).ReadLine = TheText Then
MsgBox "Success", 64, "Ok"
Else
MsgBox "Fail", 16, "Ouch"
End If
End Sub

脚本是否有可能创建文本文件“Test.txt”，其中包含“Hello”文本？
是否可以显示带有“Hello”文本的 MsgBox？
是否有可能当我按下 Btn1 时出现“成功”消息框？
注意：我问这个是因为我不知道像 Call TheSub(arguments) 这样的 vb6 参数，我只知道 VBS 中的参数，但不知道 >VB6，所以请不要关闭这个问题:)

【问题讨论】：

标签： string object vb6

【解决方案1】：

与任何其他现代语言没有区别。

您可以在表单代码的开头全局声明“Dim TheText As String”。因此您可以在表单的任何子或函数中访问它。

您也可以像 CallAction(theText) 一样调用 CallAction，将其用作参数。您的 CallAction 子将是

public sub CallAction(text as String)
msgbox text
end sub

【讨论】：

Button_Click() 会自动触发子按钮操作。您不能在其中包含参数。要在 Button_Click() 上使用文本，必须在表单中全局声明文本。
呃哦，谢谢你的回答，我会试试这个...... :)，但我不明白关于声明用于 btn click 的文本字符串:(
从 Form_Load 中声明 theText，因此它将是全局的，您可以访问它的任何子和函数。