Protected Overrides Sub InitializeCulture()
If Session("culture") = "" Then
Session("culture") = Request.UserLanguages(0)
End If
Dim userculture As String = Session("culture")
Dim str() As String = userculture.Split("-")
If str.Length > 2 Then
userculture = str(0) + "-" + str(1)
End If
If Not userculture = "" Then
Threading.Thread.CurrentThread.CurrentUICulture = New CultureInfo(userculture)
Threading.Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture(userculture)
End If
End Sub
用上面的语句实现多语言切换,用App_LocalResources里面的.aspx.resx文件记录各语言的文本,实现静态网页上的多语言切换
(在每个meta:resourcekey 对应的文本都写一个各语言的翻译版本)
Sub AA011E_treeView()
Label1.Text = "AA011E"
Dim tr As TreeView = ElementStructureTree
Dim trNode0 As TreeNode = New TreeNode("全部检查", "全部检查", "", "~/AA011/AA011E-Search.aspx", "")
NG.aspx", "")
tr.Nodes(0).ChildNodes.Clear()
tr.Nodes(0).ChildNodes.Add(trNode0)
End Sub
我用以上代码动态添加的treeview,怎样让它实现多语言支持??
