SPWeb.Language property

發行項
05/05/2015

取得網站的預設語言的地區設定識別項 (LCID)。

Namespace: Microsoft.SharePoint
Assembly: Microsoft.SharePoint (in Microsoft.SharePoint.dll)

Syntax

'宣告
Public ReadOnly Property Language As UInteger
    Get
'用途
Dim instance As SPWeb
Dim value As UInteger

value = instance.Language

public uint Language { get; }

Property value

Type: System.UInt32
32 位元不帶正負號的整數，表示該語言的 LCID。如需 Lcid 的清單，請參閱SPLocale.LCID屬性。

備註

只有當建立網站時，可以設定網站的預設語言。藉由使用多語系使用者介面，或藉由設定IsMultilingual屬性替代語言隨後可以開啟網站擁有人。

Examples

下列範例是一個主控台應用程式，列印安裝在伺服器陣列上每一種語言，該網站的預設語言與每個替代語言支援的站台的 LCID 和顯示名稱。

using System;
using System.Collections.Generic;
using System.Globalization;
using Microsoft.SharePoint;

namespace ConsoleApp
{
    class Program
    {
        static void Main(string[] args)
        {
            using (SPSite site = new SPSite("https://localhost"))
            {
                using (SPWeb web = site.RootWeb)
                {
                    string format = "{0} | {1}";

                    // Display the languages installed on the farm.
                    Console.WriteLine("Installed Languages");

                    SPLanguageCollection languages = SPRegionalSettings.GlobalInstalledLanguages;
                    foreach (SPLanguage language in languages)
                    {
                            Console.WriteLine(format, language.LCID, language.DisplayName);
                    }

                    // Display the default language for the website.
                    int lcid = (int)web.Language;
                    CultureInfo defaultCulture = new CultureInfo(lcid);

                    Console.WriteLine("\nDefault Language");
                    Console.WriteLine(format, defaultCulture.LCID, defaultCulture.DisplayName);

                    // Display the alternate languages for the website.
                    if (web.IsMultilingual)
                    {
                        Console.WriteLine("\nAlternate Languages");

                        IEnumerable<CultureInfo> cultures = web.SupportedUICultures;
                        foreach (CultureInfo culture in cultures)
                        {
                            if (culture.LCID == defaultCulture.LCID)
                                continue;

                            Console.WriteLine(format, culture.LCID, culture.DisplayName);
                        }
                    }
                }
            }
            Console.Write("\nPress ENTER to continue....");
            Console.Read();
        }
    }
}

Imports System
Imports System.Collections.Generic
Imports System.Globalization
Imports Microsoft.SharePoint

Module ConsoleApp

    Sub Main()
        Using site As New SPSite("https://localhost")
            Using web As SPWeb = site.OpenWeb()
                Dim format As String = "{0} | {1}"

                ' Display the languages installed on the farm.
                Console.WriteLine("Installed Languages")

                Dim languages As SPLanguageCollection = SPRegionalSettings.GlobalInstalledLanguages
                For Each language As SPLanguage In languages
                    Console.WriteLine(format, language.LCID, language.DisplayName)
                Next

                ' Display the default language for the website.
                Dim lcid As Integer = CInt(web.Language)
                Dim defaultCulture As New CultureInfo(lcid)

                Console.WriteLine(vbLf & "Default Language")
                Console.WriteLine(format, defaultCulture.LCID, defaultCulture.DisplayName)

                ' Display the alternate languages for the website.
                If web.IsMultilingual Then
                    Console.WriteLine(vbLf & "Alternate Languages")

                    Dim cultures As IEnumerable(Of CultureInfo) = web.SupportedUICultures
                    For Each culture As CultureInfo In cultures
                        If culture.LCID = defaultCulture.LCID Then
                            Continue For
                        End If

                        Console.WriteLine(format, culture.LCID, culture.DisplayName)
                    Next
                End If

            End Using
        End Using
        Console.Write(vbCrLf & "Press ENTER to continue....")
        Console.Read()
    End Sub
End Module