Originally posted by mcfly1204
File1.vb
Code:
Namespace MyNamespace Public Class MyDemoClass Public Shared MyDataVariable As String End Class End Namespace
Code:
Imports MyNamespace Public Class MyForm Public Sub Loaded(ByVal Sender As Object, ByVal e As System.EventArgs) _ Handles Me.Load MyDemoClass.MyDataVariable="Hello World" MsgBox MyDemoClass.MyDataVariable End Sub End Class
File1.vb
Code:
Namespace MyNamespace Public Module HelperModule Public MyParam As String End Module End Namespace
Code:
Imports MyNamespace Public Class Form1 Private Sub Loaded(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles MyBase.Load HelperModule.MyParam = "Hello World" MsgBox(HelperModule.MyParam) End Sub End Class
Comment