منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مساعدة التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعدة التكست بوكس (/showthread.php?tid=21633)

مساعدة التكست بوكس - محمد بوقزاحة - 10-09-17

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

RE: مساعدة التكست بوكس - فارس محمد - 10-09-17

حط هذا الكود بحدث 
GotFocus
او 
MouseLeave
للTextBox الي بدك تكتب عربي تلقائي فيها


كود :
       InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(1)




RE: مساعدة التكست بوكس - طـلال - 10-09-17

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

كود الكتابه بالعربي فقط 
يوضع في حدث keypRESS
كود :
TextBox1.Focus()
 يوضع في حدث Lode  للوفورم وهو كود يضع المؤشر في التكست

RE: مساعدة التكست بوكس - Rabeea Qbaha - 10-09-17

(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