تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغير لغه الكمبيوتر
#1
اريد كود يغير لغه الكمبيوتر
وى اريد كود عند الغلق ترجع اللغه الاصليه
شكرآ
الرد }}}
تم الشكر بواسطة:
#2
[COLOR="#800000"]السلام عليكم اخي العزيز

تفضل:

PHP كود :
private void changelanguagebtn_Click(object senderEventArgs e)
        {
            
SendKeys.Send("%"+"+");
        } 

الكود اعلاه يقوم بوظيفة Alt+Shift لتغيير لغة الحاسبة للمشروع نفسه.

وهذا الكود لتغيير لغة الكتابة للNotePad بالVB.Net

PHP كود :
Public Class Form1
    Dim Pid 
As Integer
    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Pid 
Shell("notepad"AppWinStyle.NormalFocus)
    
End Sub

    
Private Sub Button2_Click(sender As System.ObjectAs System.EventArgsHandles Button2.Click
        AppActivate
(Pid)
        
SendKeys.Send("%" "+")
    
End Sub
End 
Class 

بالتوفيق ان شاءالله[/COLOR]
الرد }}}
تم الشكر بواسطة:
#3
sajad كتب :[COLOR="#800000"]السلام عليكم اخي العزيز

تفضل:

PHP كود :
private void changelanguagebtn_Click(object senderEventArgs e)
        {
            
SendKeys.Send("%"+"+");
        } 

الكود اعلاه يقوم بوظيفة Alt+Shift لتغيير لغة الحاسبة للمشروع نفسه.

وهذا الكود لتغيير لغة الكتابة للNotePad بالVB.Net

PHP كود :
Public Class Form1
    Dim Pid 
As Integer
    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Pid 
Shell("notepad"AppWinStyle.NormalFocus)
    
End Sub

    
Private Sub Button2_Click(sender As System.ObjectAs System.EventArgsHandles Button2.Click
        AppActivate
(Pid)
        
SendKeys.Send("%" "+")
    
End Sub
End 
Class 

بالتوفيق ان شاءالله[/COLOR]
جزاك الله كل خير اخى
الرد }}}
تم الشكر بواسطة:
#4
[COLOR="#800000"]وجزاك بالمثل اخي

بالتوفيق ان شاءالله[/COLOR]
الرد }}}
تم الشكر بواسطة:
#5
sajad كتب :[COLOR="#800000"]وجزاك بالمثل اخي

بالتوفيق ان شاءالله[/COLOR]

شكرآ لاكن انا غيرت الغله المشروع لاكن الغله لم تتغير
الرد }}}
تم الشكر بواسطة:
#6
[COLOR="#800000"]الكود يعمل معي بدون مشكلة

جرب ان تضيف textbox الى المشروع و button واكتب في الbutton كود تغيير اللغة

PHP كود :
SendKeys.Send("%" "+"

وغير اللغة ثم اكتب أي كلمة في الtextbox

[/COLOR]
الرد }}}
تم الشكر بواسطة:
#7
sajad كتب :[COLOR="#800000"]الكود يعمل معي بدون مشكلة

جرب ان تضيف textbox الى المشروع و button واكتب في الbutton كود تغيير اللغة

PHP كود :
SendKeys.Send("%" "+"

وغير اللغة ثم اكتب أي كلمة في الtextbox

[/COLOR]

يعمل اخى لاكن لا توجد تريكه تركيب الغه مثلآ لو عندى combobox فى الغات لو اخطارت مثلآ اسبانى يكتب اسبانى
الرد }}}
تم الشكر بواسطة:
#8
السلام عليكم ورحمة الله وبركاته
أخي الكريم قم بإضافة Module إلى المشروع
ومن ثم قم بلصق الكود التالي داخله

كود :
Module MyFunctions
        ''' <summary>
        '''  Type the language you want for change the language
        ''' </summary>
        Public Enum Language As Byte
            English = 0
            Arabic = 1
        End Enum
        ''' <summary>
        '''  Change the Language of Keyboard By Name
        ''' </summary>
        ''' <param name="CultureName">put "en-US" to get english or put "ar-SA" to get arabic</param>
        Public Sub SetKeyboardLanguage(ByVal CultureName As String)
            Dim MyLang As New System.Globalization.CultureInfo(CultureName)
            Dim InLang As InputLanguage = InputLanguage.FromCulture(MyLang)
            InputLanguage.CurrentInputLanguage = InLang
        End Sub
        ''' <summary>
        '''  Change the Language of Keyboard By ID
        ''' </summary>
        ''' <param name="CultureNumber">put 0 to get english or put 1 to get arabic</param>
        Public Sub SetKeyboardLanguageByID(ByVal CultureNumber As Language)
            Dim InLang As InputLanguage = InputLanguage.InstalledInputLanguages.Item(CultureNumber)
            InputLanguage.CurrentInputLanguage = InLang
        End Sub
    End Module

الآن لنفترض أن لديك أداتين TextBox باسم TextBox1 و TextBox2
مربع النص الأول يطلب من المستخدم الاسم العربي ومربع النص الثاني يطلب الاسم الانجليزي
وحتى تسهل العملية على المستخدم سوف تقوم بتغيير اللغة بشكل تلقائي
وهذه هي الطريقة (هذه الطريقة عن طريق إدخال اسم اللغة مباشرة)

كود :
Public Class Form1
    Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
        SetKeyboardLanguage("ar-SA")
    End Sub
    Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus
        SetKeyboardLanguage("en-US")
    End Sub
End Class

والآن جرب الانتقال بين مربعي النص وقم بالكتابة ولاحظ النتيجة .....!


بالتوفيق
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم
Rainbow [كود] النص المكتوب يكون على شكل وميض او تغير في الالوان محمد مسافر 1 460 13-05-23, 01:30 AM
آخر رد: عبدالله الدوسري
  [VB.NET] مشكلة بعد تغير NET Framework 4 Client Profile MOHAMMED ALZWI 0 366 28-02-23, 11:32 AM
آخر رد: MOHAMMED ALZWI
  [VB.NET] مشكلة بعد تغير NET Framework 4 Client Profile MOHAMMED ALZWI 0 296 28-02-23, 11:31 AM
آخر رد: MOHAMMED ALZWI
  com الكمبيوتر h2551996 4 671 18-10-22, 03:14 AM
آخر رد: Jounior_P
  [VB.NET] ممكن كود تغير خلفية شاشة تامين ويندوز jam3h 1 517 11-10-22, 04:09 AM
آخر رد: jam3h
  تغير لون خلفية داتا قريد فيو ali_ahmed12 0 437 03-10-22, 04:34 PM
آخر رد: ali_ahmed12
  [سؤال] كيفيه حفظ ملف الي مسار محدد في الكمبيوتر حسن الجلب 2 680 09-09-22, 03:37 AM
آخر رد: asmarsou
  التحكم بالبرنامج ( عند المستخدم ) عن طريق برنامج اخر (تعديل - حذف - اضافه - تغير كود) mohamedallams 2 1,133 06-09-22, 10:32 PM
آخر رد: رضوان الجماعي
  تغير خلفية form aymen_libya 6 1,007 24-08-22, 10:23 PM
آخر رد: Taha Okla

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


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