Hadiir.net
دوشنبه 11 شهریور 1398, 03:28 صبح
با سلام، من یه قطعه کد دارم که وقتی فوکوس میره به تکست باکس زبان صفحه کلید از انگلیسی به فارسی تغییر میکنه! حالا همین قطعه کد و که تو فرم لود میذارم عمل نمیکنه، مشکل چیه؟
از وی بی دات نت ۲۰۱۹ استفاده میکنم
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
از وی بی دات نت ۲۰۱۹ استفاده میکنم
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