تبديل زبان صفحه كليد بين زبانهاي مختلف

[saeednadery]

با سلام و خسته نباشيد خدمت دوستان عزيز
با كد هاي زير مي توانيم صفحه كليد را فارسي كنيم . براي تبديل آن به انگليسي يا ساير زبانهاي ديگر به جاي fa-ir چه بايد قرار دهيم
("Dim locInputType As New System.Globalization.CultureInfo("fa-ir
(Application.CurrentInputLanguage = InputLanguage.FromCulture(locInputType

شكرانه بازوي توانا ، بگرفتن دست ناتوان است

[mojtaba-saleh]

Dim Eng As New Globalization.CultureInfo("En-Us")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(Eng)

[morteza_261]

سلام
برای انگلیسی اینطور مینویسیم:


Dim locInputType As New System.Globalization.CultureInfo("EN-US")
Application.CurrentInputLanguage = InputLanguage.FromCulture(locInputType)

[saeednadery]

با تشكر
با راهنمائي شما دوستان مشكلم حل شد

[mina.net]

سلام
من می خوام در یک textboxفقط فارسی و در دیگری فقط انگلیسی وارد کنم .
اگه ممکنه توضیح دهید.

[mina.net]

این کد های که شما گذاشتید کار می کنه و عالی هست اما یک اشکال داره اون هم اینه که اولین حرفی که وارد می کنی را کنترل نمی کنه لطفا راهنمای کنید.
از راهنماثی دوستان ممنون .

[parsavb]

این برنامه رو امتحان کن

[mina.net]

این مازول را از یک کتاب گرفتم فکر می کنم کار کردن با ان راحت باشه فقط تو رویداد textbox_cheange دستور farsi یا english تایپ کنید.
امیدوارم مفید باشد
کاربر parsavbمن هنوز اخرین برنامه ای که گذاشتی را ندیدم اما به هر حال خیلی ممنون.


OptionStrictOff
OptionExplicitOn
Module Module1
PublicDeclareFunction LoadKeyboardLayout Lib"user32"Alias"LoadKeyboardLayoutA" (ByVal pwszklid AsString, ByVal flags AsInteger) AsInteger
'be passed as an argument in this Declare statement.
PublicDeclareFunction GetVersionExA Lib"KERNEL32" (ByRef lpversionInformation As OSVERSIONINFO) AsShort
PublicStructure OSVERSIONINFO
Dim dwosOSVERSIONINFOsize AsInteger
Dim dwmanjorVERSION AsInteger
Dim dwminorVERSION AsInteger
Dim dwbuildnumber AsInteger
Dim dwplat AsInteger
<VBFixedString(128), System.Runtime.InteropServices.MarshalAs(System.Ru ntime.InteropServices.UnmanagedType.ByValTStr, sizeconst:=128)> Public szcsdversion AsString
EndStructure
PublicFunction getversion() AsString
Dim osinfo As OSVERSIONINFO
Dim retvalue AsShort
osinfo.szcsdversion = Space(128)
retvalue = GetVersionExA(osinfo)
With osinfo
getversion = CStr(.dwplat) & "" & .dwmanjorVERSION & "" & .dwminorVERSION
EndWith
EndFunction
PublicSub farsi()
IfCDbl(getversion()) = 0 Then
LoadKeyboardLayout("00000429", 1) 'xp,2000
EndIf
IfCDbl(getversion()) = 2 Then
LoadKeyboardLayout("00000429", 1) 'xp,2000
EndIf
IfCDbl(getversion()) = 1 Then
LoadKeyboardLayout("00000401", 1) '95,98
EndIf
EndSub
PublicSub english()
LoadKeyboardLayout("00000409", 1)
EndSub
EndModule

[parsavb]

بهتره برای کد هاتون از تگ کد استفاده کنید

[mina.net]

دوستان سلام
من این تاپیک رو قبلا ایجاد کرده بودم گفتم یک چیزی بنویسم دوباره بیاد اوایل قرار بگیره شاید بدرد بعضی از دوستان بخوره منتظر پیشنهادات شما هستم.