Locale

betrifft

Die Locale-Eigenschaft setzt/liefert die clientseitige Locale. Locales geben die Sprachbedingungen an, unter der die Anwendung gestartet wurde. Durch Änderung der Eigenschaft Locale kann die Anwendung zur Anzeige einer bestimmten Sprache gebracht werden.

 

Syntax
Locale()
Rückgabewert
Typ	Beschreibung
Long	Locale des Client
Parameter
Keine

Beispiel

Im unten angegebenen Code wird die clientseitige Locale abgefragt und in Abhängigkeit dessen die client- und serverseitige Locale gesetzt.

 

Loc := Client.Locale

If (Loc And &H07) = &H07 Then

   #German, sets Server Locale on German and Client Locale on English

   Server.DialogLanguage := "DE"

   Server.Locale := 1031

   Client.Locale := 1031

ElseIf (Loc And &H09) = &H09 Then

   #English, sets Server Locale on English and Client Locale on English

   Server.DialogLanguage := "UK"

   Server.Locale := 1033

   Client.Locale := 1033

ElseIf (Loc And &H04) = &H04 Then

   #Chinese, sets Server Locale on English and Client Locale on English

   Server.DialogLanguage := "CH"

   Server.Locale := 1033

   Client.Locale := 1033

ElseIf (Loc And &H0C) = &H0C Then

   #Frensh

   Server.DialogLanguage := "FR"

   Server.Locale := 1033

   Client.Locale := 1033

ElseIf (Loc And &H0A) = &H0A Then

   #Spanish

   Server.DialogLanguage := "ES"

   Server.Locale := 1033

   Client.Locale := 1033

ElseIf (Loc And &H10) = &H10 Then

   #Italian

   Server.DialogLanguage := "IT"

   Server.Locale := 1033

   Client.Locale := 1033

Else

   #Anything else

   Server.DialogLanguage := "UK"

   Server.Locale := 1033

   Client.Locale := 1033

EndIf