Avatar billede disco_keld Nybegynder
16. september 2003 - 11:07 Der er 11 kommentarer og
1 løsning

Omskrive C# til VB.NET?

Hejsa... er der en der hurtigt vil omskrive den C# kode her, til VB.NET?

:-)

----------------------------------------------------------

protected void Application_AuthenticateRequest(Object sender, EventArgs e)
{
if (HttpContext.Current.User != null)
{
  if (HttpContext.Current.User.Identity.IsAuthenticated)
  {
  if (HttpContext.Current.User.Identity is FormsIdentity)
  {
    FormsIdentity id = (FormsIdentity)HttpContext.Current.User.Identity;
    FormsAuthenticationTicket ticket = id.Ticket;

    // Get the stored user-data, in this case, our roles
    string userData = ticket.UserData;
    string[] roles = userData.Split(',');
    HttpContext.Current.User = new GenericPrincipal(id, roles);
  }
  }
}
}
-------------------------------------------------

Mvh

DK
Avatar billede burningice Nybegynder
16. september 2003 - 11:20 #1
du har fundet den i SDK'et ?
Avatar billede disco_keld Nybegynder
16. september 2003 - 11:26 #2
Avatar billede burningice Nybegynder
16. september 2003 - 11:38 #3
Avatar billede jaffafo Nybegynder
16. september 2003 - 12:53 #4
hmm.. der var et program der omskriver C# til VB.. men kan ikke huske navnet..

prøv og søg på google
Avatar billede disco_keld Nybegynder
16. september 2003 - 13:17 #5
hehe cool

den her split ting her ikke:

Dim roles As String() = userData.Split(',')

hvorfor er det ikke okay i vb.net, den bliver udkommenteret (',')
Avatar billede burningice Nybegynder
16. september 2003 - 15:06 #6
det kommer vel an på hvordan man definerer en char i vb.net
Avatar billede disco_keld Nybegynder
16. september 2003 - 15:08 #7
eks.?
Avatar billede burningice Nybegynder
16. september 2003 - 15:14 #8
ja.... det er sq ikke mig der er vb mand :P
Avatar billede disco_keld Nybegynder
16. september 2003 - 15:15 #9
okay

takker
Avatar billede arne_v Ekspert
16. september 2003 - 20:55 #10
SharpDevelop konverterer koden til:

    Protected Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
        If Not (HttpContext.Current.User Is Nothing) Then
            If HttpContext.Current.User.Identity.IsAuthenticated Then
                If TypeOf HttpContext.Current.User.Identity Is FormsIdentity Then
                    Dim id As FormsIdentity = CType(HttpContext.Current.User.Identity, FormsIdentity)
                    Dim ticket As FormsAuthenticationTicket = id.Ticket
                    Dim userData As String = ticket.UserData
                    Dim roles As String() = userData.Split(',')
                    HttpContext.Current.User = New GenericPrincipal (id, roles)
                End If
            End If
        End If
    End Sub
Avatar billede arne_v Ekspert
27. september 2003 - 13:34 #11
Kommet videre ?
Avatar billede disco_keld Nybegynder
29. september 2003 - 08:15 #12
ups... sorry jeg ikke har svaret før nu.

Jeg har lagt syg og så har jeg fuldstændig glemt spm'et!

Her kommer points.... :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester