تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية تغيير لغة الكتابة
#1
Bug 
ياشباب الله يحفظكم
الاستاذ لماده البرمجه المتقدمة طلب مني كود برمجي
..؟؟
كيفية جعل التايكست بوكس عند الانتقال إليه تتحول الغه تلقائياً الى اللغه العربيه أو اللغه المطلوبه في التايكست بوكس بحيث لا يستطيع المستخدم تحويل اللغه الى لغة اخرى ..؟؟؟؟
؟؟؟؟
الرد
تم الشكر بواسطة:
#2
ياشباب يااستاذه ياهوووووووووووووووووووووو
وينكم المنتدى فارغ أو السؤال صعب
ياشباب الله يحفظكم
ممكن لو في واحد يرد عليا
AngryAngryAngryAngryAngryAngryAngryAngryAngry

HuhHuhHuhHuhHuhHuh

Heart
الرد
تم الشكر بواسطة:
#3
مو صعب

تفضل هذا الكود

PHP كود :
private void textBox1_Enter(object senderEventArgs e)
        {
            
InputLanguage.CurrentInputLanguage =
                
InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo("ar-BH"));
        } 

مع استبدال ar-BH باللغة التي تريد الكتابة بها

هنا لستة الدول وكل دولة ولها رمزها

http://www.csharp-examples.net/culture-names/
الرد
#4
هذا كود vb وانت اعمل له convert
PHP كود :
Friend Class Form1
    Inherits System
.Windows.Forms.Form
    
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Integer
    
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As StringByVal flags As Integer) As Integer
    
Private Declare Function GetLastError Lib "kernel32" () As Integer
    
Const KLF_ACTIVATE As Integer = &H1
    
Const Lang_AR_SAU As String "00000401" 'Arabic
    Const Lang_EN_USA As String = "00000409" '
English
    
Const Lang_FR_FRA As String "0000040C" 'French
    Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
        Me.Text = CStr(SetKbLayout(Lang_FR_FRA))
    End Sub
    Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
        Me.Text = CStr(SetKbLayout(Lang_EN_USA))
    End Sub
    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Me.Text = CStr(SetKbLayout(Lang_AR_SAU))
    End Sub
    Public Function SetKbLayout(ByRef strLocaleId As String) As Boolean
        On Error Resume Next
        Dim strLocId As String '
used to retrieve current KeyboardLayout
        strLocId 
= New String(Chr(0), 9)
        
GetKeyboardLayoutName(strLocId)
        If 
strLocId = (strLocaleId Chr(0)) Then
            SetKbLayout 
True
            
Exit Function
        Else
            
strLocId = New String(Chr(0), 9)
            
strLocId CStr(LoadKeyboardLayout(strLocaleId Chr(0), KLF_ACTIVATE))
        
End If

        
GetKeyboardLayoutName(strLocId)

        If 
strLocId = (strLocaleIdThen SetKbLayout True
    End 
Function

    Private 
Sub Form1_Load(ByVal eventSender As System.ObjectByVal eventArgs As System.EventArgsHandles MyBase.Load
        Command1
.Text "Arabic"
        
Command2.Text "English"
        
Command3.Text "French"

    
End Sub
End 
Class 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
#5
تحديث1 :

PHP كود :
private void textBox1_Enter(object senderEventArgs e)
        {
            
InputLanguage.CurrentInputLanguage =
                
InputLanguage.InstalledInputLanguages.Cast<InputLanguage>().Where
                
( (x) => x.Culture.ToString().ToLower().StartsWith("ar") ).First();
        } 
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن كيفية جلب صورة أو ملف صوتي من مجلد داخل المشروع بتقنية WPF younass 2 123 01-09-18, 02:43 PM
آخر رد: elgokr
  سؤال عن كيفية فتح فورم داخل فورم اخر بتقنية WPF younass 0 104 30-08-18, 01:28 AM
آخر رد: younass
  سؤال عن كيفية تحديد قيمة عمود في السطر المحدد في datagrid مع تقنية wpf younass 8 242 27-08-18, 11:10 PM
آخر رد: elgokr
  [VB.NET] كيفية استخدام Newtonsoft.Json باصدارين مختلفين اصدار رقم 9 و رقم 10 الماجيك مسعد 12 324 13-08-18, 09:02 PM
آخر رد: elgokr
  سؤال عن كيفية نقل البيانات من بعض الاعمدة من اكسس او الاكسل الى SQl server younass 1 99 04-08-18, 11:50 PM
آخر رد: Finish
  سؤال عن كيفية عرض حقول معينة في dataGridView1 علما اني الاستعلام يكون لجميع الحقول younass 2 132 29-07-18, 05:13 PM
آخر رد: younass
  [سؤال] كيفية استدعاء برنامج خارج السي شارب من خلال واجهة السي شارب؟؟؟؟؟؟؟ husseinaltaee 1 225 19-03-18, 01:06 AM
آخر رد: khodor1985
  تغيير واجهات المشروع من واجهات الفيجوال الي الديف اكسبريس fouadmdany 0 175 15-03-18, 04:02 PM
آخر رد: fouadmdany
  كيفية دمج قاعدة بيانات شهادات طلاب في قالب شهادة جاهز جيولوجي مبتدئ 0 178 31-10-17, 12:19 AM
آخر رد: جيولوجي مبتدئ
  ياشباب لسمحتو في حد يساعدني في كيفية التعامل معا اداة listView للMediaPlayer abdaalwagih 0 259 27-04-17, 08:23 PM
آخر رد: abdaalwagih

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم