InputLanguage.FromCulture(CultureInfo) 方法

public:
 static System::Windows::Forms::InputLanguage ^ FromCulture(System::Globalization::CultureInfo ^ culture);

public static System.Windows.Forms.InputLanguage FromCulture(System.Globalization.CultureInfo culture);

public static System.Windows.Forms.InputLanguage? FromCulture(System.Globalization.CultureInfo culture);

static member FromCulture : System.Globalization.CultureInfo -> System.Windows.Forms.InputLanguage

Public Shared Function FromCulture (culture As CultureInfo) As InputLanguage

参数

返回

表示以前选择的输入语言的一种 InputLanguage 。

示例

下面的代码示例将默认输入语言设置为当前输入语言。

首先， DefaultInputLanguage 调用它以获取系统默认语言。 接下来， CurrentInputLanguage 调用它以获取当前输入语言。 结果将打印在文本框中。 然后，使用默认输入语言进行调用 CurrentInputLanguage 会将当前输入语言更改为默认值。 新的当前输入语言显示在文本框中。

此代码假定 textBox1 已实例化。

public:
   void SetNewCurrentLanguage()
   {
      // Gets the default, and current languages.
      InputLanguage^ myDefaultLanguage = InputLanguage::DefaultInputLanguage;
      InputLanguage^ myCurrentLanguage = InputLanguage::CurrentInputLanguage;
      textBox1->Text = String::Format( "{0}Current input language is: {1}\n",
         myCurrentLanguage->Culture->EnglishName, myDefaultLanguage->Culture->EnglishName );
      
      //Print the new current input language.
      InputLanguage^ myCurrentLanguage2 = InputLanguage::CurrentInputLanguage;
      textBox1->Text = String::Format( "{0}New current input language is: {1}",
         textBox1->Text, myCurrentLanguage2->Culture->EnglishName );
   }

 public void SetNewCurrentLanguage() {
    // Gets the default, and current languages.
    InputLanguage myDefaultLanguage = InputLanguage.DefaultInputLanguage;
    InputLanguage myCurrentLanguage = InputLanguage.CurrentInputLanguage;
    textBox1.Text = "Current input language is: " +
        myCurrentLanguage.Culture.EnglishName + '\n';
    textBox1.Text += "Default input language is: " +
        myDefaultLanguage.Culture.EnglishName + '\n';
 
    //Print the new current input language.
    InputLanguage myCurrentLanguage2 = InputLanguage.CurrentInputLanguage;
    textBox1.Text += "New current input language is: " +
        myCurrentLanguage2.Culture.EnglishName;
}

Public Sub SetNewCurrentLanguage()
   ' Gets the default, and current languages.
   Dim myDefaultLanguage As InputLanguage = InputLanguage.DefaultInputLanguage
   Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage
   textBox1.Text = "Current input language is: " & _
       myCurrentLanguage.Culture.EnglishName + ControlChars.Cr
   textBox1.Text &= "Default input language is: " & _
       myDefaultLanguage.Culture.EnglishName + ControlChars.Cr
       
   'Print the new current input language.
   Dim myCurrentLanguage2 As InputLanguage = InputLanguage.CurrentInputLanguage
   textBox1.Text &= "New current input language is: " & _
       myCurrentLanguage2.Culture.EnglishName
End Sub

注解

该方法 FromCulture 从所有已安装的键盘布局列表中返回第一个键盘布局与匹配 culture 。 如果在单个用户语言下安装了多个键盘，则它可能会返回意外值。

具体而言，此方法执行以下操作：

1. 从 GetKeyboardLayoutList 函数中获取可用输入语言标识符（HKL）的完整列表。

2. 如果存在，则查找与 cultureHKL 对应的 HKL。

3. 返回与该 HKL 关联的已安装键盘。

4. 如果未找到键盘，则 null返回 。

另请参阅

• DefaultInputLanguage
• CurrentInputLanguage
• Equals(Object)