Newbie spørgsmål om globale variabler

Hvis det er ASP.NET kan du stadig bruge Session.

Hvis det er en windows app har du flere muligheder:
  - gemme i en public shared property
  - singleton pattern
  - overføre argumenter

Hej arne.

Dig kan man altid regne med :)

Det er en win appl.

Den første mulighed lyder umiddelbart til at finde ud af, men resten har jeg aldrig hørt om. På sigt skal jeg have lavet en user klasse, så jeg kunne godt tœnke mig at høre din mening om hvordan sådan en skal håndteres efter en login dialog.Skal hele user objektet gøres public shared osv...?

ja

og du bør absolut bruge en property til at styre tilgangen

Takker. Jeg prøver senere på dagen. Skal lige have en time på øjen

Hej Arne

Er vi ude i noget alla http://eksperten.dk/spm/503310 ??

ja

Nu har jeg kæmpet med at strikke en singleton klasse sammen, men det går ikke så godt.

Hvis jeg hæver point til 100, kan du så lave et klasse eks., som understøtter følgende?

Singleton klassen skal hedde:

CurrentUser


Idéen er, at efter en bruger er godkendt via login & pass,

Dim UserId as Integer = EnKlasse.Login("login","Pass")

skal CurrentUser klassen initieres vha.:

Dim User as new CurrentUser
User.Initialize(UserId)

User Objektet skal indeholde:


User.GetObject()
User.Userid (readonly)
User.Username (readonly)

Man skal ikke kunne sætte værdierne (Userid & Username) "udefra". De skal kun kunne sættes når man første gang initierer CurrentUser klassen.

Giver det noget af det jeg skriver mening? Og er det noget du vil hjælpe mig med?

Jeg er iøvrigt kommet frem til følgende:

Imports system

Class CurrentUser
    Private _UserId As String = String.Empty
    Private _UserName As String = String.Empty


    Private Shared _CurrentUser As CurrentUser

    Private Sub New(ByVal NewUserId)
        Try
            _UserId = NewUserId
            If NewUserId = 1 Then
                _UserName = "Peter Schmidt"
            ElseIf NewUserId = 2 Then
                _UserName = "Alex Frederiksen"
            End If
        Catch ex As Exception
            Throw New Exception("Error initiating CurrentUser object", ex)
        End Try

    End Sub


    Public Shared Function Instance(ByVal NewUserId) As CurrentUser
        If _CurrentUser Is Nothing Then
            _CurrentUser = New CurrentUser(NewUserId)
        End If
        Return _CurrentUser
    End Function

    Public ReadOnly Property UserName() As String
        Get
            Return _UserName
        End Get
    End Property

End Class

Har løst det...men ved ikke hvor "rigtigt" det er...

Imports system

Class CurrentUser
    Private _UserId As String = String.Empty
    Private _UserName As String = String.Empty


    Private Shared _CurrentUser As CurrentUser

    Private Sub New(ByVal NewUserId)
        Try
            _UserId = NewUserId
            If NewUserId = 1 Then
                _UserName = "Peter Schmidt"
            ElseIf NewUserId = 2 Then
                _UserName = "Alex Frederiksen"
            End If
        Catch ex As Exception
            Throw New Exception("Error initiating CurrentUser object", ex)
        End Try

    End Sub


    Public Shared Function CreateUserObjectByUserId(ByVal NewUserId) As CurrentUser
        If _CurrentUser Is Nothing Then
            _CurrentUser = New CurrentUser(NewUserId)
        End If
        Return _CurrentUser
    End Function

    Public Shared Function GetUserObject() As CurrentUser
        If _CurrentUser Is Nothing Then
            _CurrentUser = New CurrentUser(0)
        End If
        Return _CurrentUser
    End Function

    Public ReadOnly Property UserName() As String
        Get
            Return _UserName
        End Get
    End Property

End Class

Initierer med: "namespace".CurrentUser.CreateUserObjectByUserId(5)
Og bruger objektet efterfølgende med (fx. UserName): "namespace".CurrentUser.GetUserObject.UserName

Er det helt galt?

efter 5 sekunder skim ser det Ok ud

(jeg formoder at du har læst http://www.eksperten.dk/artikler/205)

OK ?