تغییر زبان صفحه کلید در زمان لود شدن فرم

[Hadiir.net]

با سلام، من یه قطعه کد دارم که وقتی فوکوس میره به تکست باکس زبان صفحه کلید از انگلیسی به فارسی تغییر میکنه! حالا همین قطعه کد و که تو فرم لود میذارم عمل نمیکنه، مشکل چیه؟
از وی بی دات نت ۲۰۱۹ استفاده میکنم

Imports System.Globalization





Public Class Form1

    Private PersianInput As InputLanguage

    Private EnglishInput As InputLanguage

End Class









Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        PersianInput = InputLanguage.CurrentInputLanguage

        EnglishInput = InputLanguage.CurrentInputLanguage





        Dim count As Integer

        count = InputLanguage.InstalledInputLanguages.Count

        For i As Integer = 1 To (count - 1)

            If InputLanguage.InstalledInputLanguages(i).LayoutNam  e.Contains("Persian") = True Then

                PersianInput = InputLanguage.InstalledInputLanguages(i)

            Else

                If InputLanguage.InstalledInputLanguages(i).LayoutNam  e.Contains("English") = True Then

                    EnglishInput = InputLanguage.InstalledInputLanguages(i)

                End If

            End If

        Next i

End Sub  

 

 Private Sub FaTextBox_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FaTextBox.MouseEnter

        InputLanguage.CurrentInputLanguage = PersianInput

 End Sub









    Private Sub EnTextBox_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnTextBox.MouseEnter





        InputLanguage.CurrentInputLanguage = EnglishInput





    End Sub

    

    

        





    

    

[safari_m4]

داخل دو تا ماژول بصورت مجزا این کد ها را قرار بده

کد اول

Module Convert_Persian_To_English
Public Function PersianToEnglish() As Boolean
Dim English As New Globalization.CultureInfo("EN-US")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(English)


Return True
End Function
End Module

کد دوم

Module Convert_English_To_Persian
Public Function EnglishToPersian() As Boolean
Dim Persian As New Globalization.CultureInfo("FA-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Persian)


Return True
End Function


End Module

بعد در فرم لود هر فرمی که خواستی حتی خود فرم اصلی کد زیر را فراخوانی کن

برای فارسی
Call EnglishToPersian()

و برای انگلیسی برعکس بنویس

[safari_m4]

داخل دو تا ماژول بصورت مجزا این کد ها را قرار بده

کد اول

Module Convert_Persian_To_English
Public Function PersianToEnglish() As Boolean
Dim English As New Globalization.CultureInfo("EN-US")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(English)


Return True
End Function
End Module

کد دوم

Module Convert_English_To_Persian
Public Function EnglishToPersian() As Boolean
Dim Persian As New Globalization.CultureInfo("FA-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Persian)


Return True
End Function


End Module

بعد در فرم لود هر فرمی که خواستی حتی خود فرم اصلی کد زیر را فراخنی کن

برای فارسی
Call EnglishToPersian()

و برای انگلیسی برعکس بنویس