3 回答
TA贡献1817条经验 获得超14个赞
使用“模块”而不是类,并且只使用“公共”而不是旧的“全局”关键字,就可以像以前一样使用相同的方式:
Public Module Module1
Public Foo As Integer
End Module
TA贡献1815条经验 获得超6个赞
好的。我终于找到了实际可行的方法来回答似乎要问的问题。
“当需要许多模块和表单时,如何声明一个变量对所有模块都是公共的,以便它们各自引用相同的变量?”
令我惊讶的是,我花了相当多的时间在网络上寻找这个看似简单的问题,除了模糊不清之外,什么都让我仍然遇到错误。
但是,由于科迪·格雷(Cody Gray)举了一个例子,我得以辨别出正确的答案。
形势 ; 您有多个模块和/或表单,并且希望从每个或全部中引用特定的变量。
一种有效的方式;在一个模块上放置以下代码(其中“ DefineGlobals”是任意选择的名称);
Public Module DefineGlobals
Public Parts As Integer 'Assembled-particle count
Public FirstPrtAff As Long 'Addr into Link List
End Module
然后在需要寻址该变量“ Parts”的每个模块/表单中,放置以下代码(作为“ InitForm2”表单的示例);
Public Class InitForm2
Private Sub InitForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Parts = Parts + 3
End Sub
End Class
也许还有另一种形式;公开课FormX
Sub CreateAff()
Parts = 1000
End Sub
End Class
这种类型的编码似乎已经在我的VB2008 Express上运行了,并且目前似乎全部都需要(没有在后台加载任何未知文件),即使我发现“哦……”也没完没了细节。我敢肯定,更高程度的标准化将是可取的,但是首要任务是简单地使所有东西都可以工作,无论有没有标准。
没有什么比精确而措辞明确的例子更好。
- 3 回答
- 0 关注
- 1721 浏览
添加回答
举报