07-02-13, 07:49 PM
07-02-13, 08:43 PM
[COLOR="#800000"]السلام عليكم اخي العزيز
تفضل:
الكود اعلاه يقوم بوظيفة Alt+Shift لتغيير لغة الحاسبة للمشروع نفسه.
وهذا الكود لتغيير لغة الكتابة للNotePad بالVB.Net
بالتوفيق ان شاءالله[/COLOR]
تفضل:
PHP كود :
private void changelanguagebtn_Click(object sender, EventArgs e)
{
SendKeys.Send("%"+"+");
}
الكود اعلاه يقوم بوظيفة Alt+Shift لتغيير لغة الحاسبة للمشروع نفسه.
وهذا الكود لتغيير لغة الكتابة للNotePad بالVB.Net
PHP كود :
Public Class Form1
Dim Pid As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Pid = Shell("notepad", AppWinStyle.NormalFocus)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
AppActivate(Pid)
SendKeys.Send("%" + "+")
End Sub
End Class
بالتوفيق ان شاءالله[/COLOR]
08-02-13, 01:18 AM
sajad كتب :[COLOR="#800000"]السلام عليكم اخي العزيزجزاك الله كل خير اخى
تفضل:
PHP كود :
private void changelanguagebtn_Click(object sender, EventArgs e)
{
SendKeys.Send("%"+"+");
}
الكود اعلاه يقوم بوظيفة Alt+Shift لتغيير لغة الحاسبة للمشروع نفسه.
وهذا الكود لتغيير لغة الكتابة للNotePad بالVB.Net
PHP كود :
Public Class Form1
Dim Pid As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Pid = Shell("notepad", AppWinStyle.NormalFocus)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
AppActivate(Pid)
SendKeys.Send("%" + "+")
End Sub
End Class
بالتوفيق ان شاءالله[/COLOR]
08-02-13, 08:50 PM
[COLOR="#800000"]وجزاك بالمثل اخي
بالتوفيق ان شاءالله[/COLOR]
بالتوفيق ان شاءالله[/COLOR]
08-02-13, 08:52 PM
sajad كتب :[COLOR="#800000"]وجزاك بالمثل اخي
بالتوفيق ان شاءالله[/COLOR]
شكرآ لاكن انا غيرت الغله المشروع لاكن الغله لم تتغير
08-02-13, 09:02 PM
[COLOR="#800000"]الكود يعمل معي بدون مشكلة
جرب ان تضيف textbox الى المشروع و button واكتب في الbutton كود تغيير اللغة
وغير اللغة ثم اكتب أي كلمة في الtextbox
[/COLOR]
جرب ان تضيف textbox الى المشروع و button واكتب في الbutton كود تغيير اللغة
PHP كود :
SendKeys.Send("%" + "+")
وغير اللغة ثم اكتب أي كلمة في الtextbox
[/COLOR]
08-02-13, 10:10 PM
sajad كتب :[COLOR="#800000"]الكود يعمل معي بدون مشكلة
جرب ان تضيف textbox الى المشروع و button واكتب في الbutton كود تغيير اللغة
PHP كود :
SendKeys.Send("%" + "+")
وغير اللغة ثم اكتب أي كلمة في الtextbox
[/COLOR]
يعمل اخى لاكن لا توجد تريكه تركيب الغه مثلآ لو عندى combobox فى الغات لو اخطارت مثلآ اسبانى يكتب اسبانى
09-02-13, 01:38 PM
السلام عليكم ورحمة الله وبركاته
أخي الكريم قم بإضافة Module إلى المشروع
ومن ثم قم بلصق الكود التالي داخله
الآن لنفترض أن لديك أداتين TextBox باسم TextBox1 و TextBox2
مربع النص الأول يطلب من المستخدم الاسم العربي ومربع النص الثاني يطلب الاسم الانجليزي
وحتى تسهل العملية على المستخدم سوف تقوم بتغيير اللغة بشكل تلقائي
وهذه هي الطريقة (هذه الطريقة عن طريق إدخال اسم اللغة مباشرة)
والآن جرب الانتقال بين مربعي النص وقم بالكتابة ولاحظ النتيجة .....!
بالتوفيق
أخي الكريم قم بإضافة 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والآن جرب الانتقال بين مربعي النص وقم بالكتابة ولاحظ النتيجة .....!
بالتوفيق