السلام عليكم ورحمة وبركاته
ممكن مساعدة عند تحميل الفورم ويكون الموشر في التكست بوكس يكون المؤشر بالكتابه العربية فقط
وليست الانجليزية
جزاااااكم الله كل خير
حط هذا الكود بحدث
GotFocus
او
MouseLeave
للTextBox الي بدك تكتب عربي تلقائي فيها
كود :
InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(1)
كود :
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("ar-SA"))
textbox1.cler()
كود الكتابه بالعربي فقط
يوضع في حدث keypRESS
يوضع في حدث Lode للوفورم وهو كود يضع المؤشر في التكست
(10-09-17, 01:50 AM)محمد بوقزاحة كتب : [ -> ]السلام عليكم ورحمة وبركاته
ممكن مساعدة عند تحميل الفورم ويكون الموشر في التكست بوكس يكون المؤشر بالكتابه العربية فقط
وليست الانجليزية
جزاااااكم الله كل خير
مرحبا صديقي
اولا ليكون الموشر في التكست بوكس استخدن الكود هذا في ال load :
بالنسبه للكتابه بالعربيه فقط لم اجد لك حل
لكن هذا الكود يقوم بتحويل اللغه الى اللفه العربيه بمجرد الضغط على ال textbox :
ضع هذا الكود في load :
كود :
' Set the default as the current Inputlanguage
ArabicInput = InputLanguage.CurrentInputLanguage
EnglishInput = InputLanguage.CurrentInputLanguage
'Iterate to find the available Arabic and English Keyboards
Dim count As Integer
count = InputLanguage.InstalledInputLanguages.Count
For i As Integer = 1 To (count - 1)
If InputLanguage.InstalledInputLanguages(i).LayoutName.Contains(“Arabic”) = True Then
'Found an Arabic Keyboard
ArabicInput = InputLanguage.InstalledInputLanguages(i)
Else
If InputLanguage.InstalledInputLanguages(i).LayoutName.Contains(“English”) = True Then
'Found an English Keyboard
EnglishInput = InputLanguage.InstalledInputLanguages(i)
End If
End If
Next i
بعد ذلك استخدم هذا الكود :
كود :
Private Sub TextBox1_Validated(sender As Object, e As EventArgs) Handles TextBox1.Validated
Dim cleanedString As String = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "\s+", " ")
TextBox1.Text = cleanedString.Trim()
End Sub
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
InputLanguage.CurrentInputLanguage = ArabicInput
End Sub