[محمد بوقزاحة]

السلام عليكم ورحمة وبركاته
ممكن مساعدة عند تحميل الفورم ويكون الموشر في التكست بوكس يكون المؤشر بالكتابه العربية فقط
 وليست الانجليزية
جزاااااكم الله كل خير

[فارس محمد]

حط هذا الكود بحدث 

GotFocus

او 

MouseLeave

للTextBox الي بدك تكتب عربي تلقائي فيها

كود :

       InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(1)

[طـلال]

كود :

       InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("ar-SA"))
textbox1.cler()

كود الكتابه بالعربي فقط 
يوضع في حدث keypRESS

كود :

TextBox1.Focus()

 يوضع في حدث Lode  للوفورم وهو كود يضع المؤشر في التكست

[Rabeea Qbaha]

(10-09-17, 01:50 AM)محمد بوقزاحة كتب : السلام عليكم ورحمة وبركاته
ممكن مساعدة عند تحميل الفورم ويكون الموشر في التكست بوكس يكون المؤشر بالكتابه العربية فقط
 وليست الانجليزية
جزاااااكم الله كل خير

مرحبا صديقي 

اولا ليكون الموشر في التكست بوكس استخدن الكود هذا في ال load :

كود :

textbox1.select()

بالنسبه للكتابه بالعربيه فقط لم اجد لك حل 
لكن هذا الكود يقوم بتحويل اللغه الى اللفه العربيه بمجرد الضغط على ال 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