16 lines
513 B
VB.net
16 lines
513 B
VB.net
Imports DigitalData.Modules.ZooFlow
|
|
|
|
Public Class ClassEnvironment
|
|
Public Shared Function GetEnvironment() As Environment
|
|
Dim oEnvironment As New Environment() With {
|
|
.DatabaseIDB = My.DatabaseIDB,
|
|
.Database = My.DatabaseECM,
|
|
.Modules = My.Application.Modules,
|
|
.Service = My.Application.Service,
|
|
.Settings = My.Application.Settings,
|
|
.User = My.Application.User
|
|
}
|
|
Return oEnvironment
|
|
End Function
|
|
End Class
|