0

如何使其在 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
  • 脚本是否有可能创建带有“Hello”文本的文本文件“Test.txt”？
  • 是否可以显示带有“Hello”文本的 MsgBox？

  • 当我按下 Btn1 时是否有可能出现“成功”消息框？

  • 注意：我问这个是因为我不知道 vb6 参数Call TheSub(arguments)，我只知道VBS中的参数，但不知道VB6中的参数，所以请不要关闭这个问题 :)

4

1 回答 1

3

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

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

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

public sub CallAction(text as String)
msgbox text
end sub
于 2012-12-06T10:11:55.880 回答