如何专门从另一个sub创建子使用全局变量值（在其他sub中设置不同的值）

Question

我有一个全局变量，它的值会根据用户的操作不断变化

当我的应用程序进入此子程序时，我希望它使用项目中其他位置的特定子项的值

帮助？

使用VB6

Answer 1

在SUB或FUNCTION中，您可以添加带有默认值的可选参数。即：

BAS模块上的

'

Public gsMyVar As String
Public Sub MakeSomething(Optional ByVal pMyVar As String = vbNullString)
    If pMyVar = vbNullString Then
        pMyVar = gsMyVar
    End If
    MsgBox "LOCAL MyVar is now: " & pMyVar
End Sub

FRM模块上的

'

Private Sub Command1_Click()
    gsMyVar = "BLA-BLA-BLA"
    MsgBox "Global MyVar is : " & gsMyVar
    MakeSomething "YES"
End Sub