RE:Declaring Global Variable

[chokies12]

hi good day...is it possible to declare a variable to be access on all my forms..and is it possible to make a function that can also be access to all my forms?like in php...if module is the answer how do i declare it and access it in my forms..tried it but i failed...im try to make my program more simple

[Phil Weber]

Which language are you using? If you're using VB, add a Module to your project. Public variables in a Module are visible throughout the application:

Module Globals

    Public MyGlobalVariable As String

End Module

Class MyForm

    Public Sub SomeMethod()
    
        Dim LocalString As String = Globals.MyGlobalVariable

    End Sub

End Class

[chokies12]

im using VB...

Class MyForm

Public Sub SomeMethod()

Dim LocalString As String = Globals.MyGlobalVariable

End Sub

End Class

is this declared together with the module or its an example on how will i access it in my form

[Phil Weber]

It's an example of how to access the variable from your form. Access the variable using <ModuleName>.<VariableName>.

[chokies12]

Module Global

Public MyString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\posdb.mdb"
Public MyConn As New Oledb.OledbConnection(MyString)
Public MyCmd As Oledb.OledbCommand

End Module

is this possible?i think its not working...

[Hack]

Try

Public MyString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\posdb.mdb"
Public MyConn As OleDb.OleDbConnection

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    MyConn = New OleDbConnection(MyString)
    MyConn.Open()
End Sub

[chokies12]

thanks hack working fine..thank you also phil..

btw is it possible to make functions that can be access globally?

[Phil Weber]

Yes, same method as above: declare the functions as public within a module, then call them using <ModuleName>.<FunctionName>.

[Hack]

btw is it possible to make functions that can be access globally?

Sure....just like variables, make 'em Public.

[chokies12]

can you give me a example on how to define and access it?

[Phil Weber]

Module Globals

    Public Function MyFunction(ByVal MyParameter As String) As String
        Dim SomeValue As String = "blah"
        Return SomeValue
    End Function

End Module

Class MyForm

    Public Sub SomeMethod()
    
        Dim ReturnValue As String = Globals.MyFunction("Foo")

    End Sub

End Class