Hallo!
Nach dem Einbau der Mehrsprachigkeit und Auswahl der Sprache mit einer DropDownList, erscheint im Debugmodus im Direktfenster immer die Meldung:
Eine Ausnahme (erste Chance) des Typs "System.Threading.ThreadAbortException" ist in mscorlib.dll aufgetreten.
Was kann die Ursache dafür sein?
Code DropDownlist:
Protected Sub LanguageDropDownList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LanguageDropDownList.SelectedIndexChanged
at.woch.Basis.BasisWebsiteClass.SetLanguage(Me.Lan guageDropDownList.SelectedValue())
Response.Redirect(Request.Url.LocalPath)
End Sub
Code Basis-Klasse für die Websites:
Namespace at.woch.Basis
Public Class BasisWebsiteClass
Inherits System.Web.UI.Page
Protected Overrides Sub InitializeCulture()
Dim lang As String '= Request("LanguageDropDownList")
lang = Session("sessLanguage")
If lang IsNot Nothing Then ' AndAlso lang <> "auto"
Thread.CurrentThread.CurrentUICulture = New CultureInfo(lang)
Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture(lang)
End If
MyBase.InitializeCulture()
End Sub
Public Shared Sub SetLanguage(ByVal strLang As String)
Select Case strLang
Case "de-DE"
System.Web.HttpContext.Current.Session("sessLangua ge") = "de-DE"
Case Else
System.Web.HttpContext.Current.Session("sessLangua ge") = "en-US"
End Select
End Sub
End Class
End namespace
Danke
Chris
Nach dem Einbau der Mehrsprachigkeit und Auswahl der Sprache mit einer DropDownList, erscheint im Debugmodus im Direktfenster immer die Meldung:
Eine Ausnahme (erste Chance) des Typs "System.Threading.ThreadAbortException" ist in mscorlib.dll aufgetreten.
Was kann die Ursache dafür sein?
Code DropDownlist:
Protected Sub LanguageDropDownList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LanguageDropDownList.SelectedIndexChanged
at.woch.Basis.BasisWebsiteClass.SetLanguage(Me.Lan guageDropDownList.SelectedValue())
Response.Redirect(Request.Url.LocalPath)
End Sub
Code Basis-Klasse für die Websites:
Namespace at.woch.Basis
Public Class BasisWebsiteClass
Inherits System.Web.UI.Page
Protected Overrides Sub InitializeCulture()
Dim lang As String '= Request("LanguageDropDownList")
lang = Session("sessLanguage")
If lang IsNot Nothing Then ' AndAlso lang <> "auto"
Thread.CurrentThread.CurrentUICulture = New CultureInfo(lang)
Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture(lang)
End If
MyBase.InitializeCulture()
End Sub
Public Shared Sub SetLanguage(ByVal strLang As String)
Select Case strLang
Case "de-DE"
System.Web.HttpContext.Current.Session("sessLangua ge") = "de-DE"
Case Else
System.Web.HttpContext.Current.Session("sessLangua ge") = "en-US"
End Select
End Sub
End Class
End namespace
Danke
Chris
Comment