تغيير زبان كيبرد

[cracki]

سلام
كسي از دوستان روشي براي تغيير كيبرد توي ويژوال بيسيك بلد نيست؟
مثلا با كليك كردن روي يه دكمه زبان كيبرد عوض بشه؟
ممنون

 

[karagah]

یکم بیشتر توضیح بدید .هدفتون فقط تغییر زبان کیبرد هست؟ يعني می خواهید اون EN و FA پایین صفحه هست تغییر کنه و زبان کیبرد در تموم برنامه ها عوض بشه؟ یا اینکه مثلا می خواهید کاربر بدون اینکه مجبور باشه alt+shift بزنه بتونه داخل یک textbox فارسی تایپ کنه؟

 

[cracki]

دقيقا همون دومي كه گفتي اما اين مشكل حل شد به راحتي و با كمك دوست جديدم جناب حامد محمدي !
از همه ممنونم

 

[nkm]

من يه مدت از تابع هاي پست استفاده ميكردم
كه به كمك اين تابع عمل ctrl+shift & alt+shift رو شبيه سازي مكردم
ولي يه تابع داره
ميگردم پيدا كردم واسط مينويسم اگه خواستي

 

[hpxyz]

كسي مي دونه تو دلفي چطوري مي شه تغير زبان داد مثلا با ورود به يه edit زبان فارسي نوشته شود(بدون استفاده از alt+shift) ممنون ميشم اگر جواب بديد.

 

[massudtaheri]

یکم بیشتر توضیح بدید .هدفتون فقط تغییر زبان کیبرد هست؟ يعني می خواهید اون EN و FA پایین صفحه هست تغییر کنه و زبان کیبرد در تموم برنامه ها عوض بشه؟ یا اینکه مثلا می خواهید کاربر بدون اینکه مجبور باشه alt+shift بزنه بتونه داخل یک textbox فارسی تایپ کنه؟

:blush: :blush:

 

[cracki]

دلفي رو نمي دونم !
كسي نيست جواب اين دوستمون رو بده ؟

 

[alirezasaberi]

فعلا اينها رو داشته باشيد و حالشو ببريد:
Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal Flags As Long) As Long
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long

Sub English_Key()
'Dim k As Long
'k = ActivateKeyboardLayout(&H409, &H8)
LoadKeyboardLayout "00000409", 1


End Sub

Sub Farsi_Key()
'Dim k As Long
'k = ActivateKeyboardLayout(&H401, &H8)
LoadKeyboardLayout "00000429", 1

End Sub



اينها براي كار در xp/2000 طراحي شده براي 98 جاي دستورا غير فعال شده را فعال كنيد

 

[cracki]

مي شه يه توضيح بدي اين چي كار مي كنه ؟
مي شه تشخيص داد الان كيبرد رو چه حالتيه ؟
مثلا وقتي كاربر آلت + شيفت زد برنامه هم بفهمه ؟

ممنون

 

[littlerabbit]

سلام
برنامه نويساي دلفي ميتونن از http://www.shagrouni.com يه كامژوننت كه واسه اين كار طراحي شده بگيرن واسه وي بي كارها هم متاسفم چون وي بي چيغام Custome رو نميتونه مديريت كنه.

 

[alirezasaberi]

مي شه يه توضيح بدي اين چي كار مي كنه ؟
مي شه تشخيص داد الان كيبرد رو چه حالتيه ؟
مثلا وقتي كاربر آلت + شيفت زد برنامه هم بفهمه ؟

ممنون

كليد كار توي همون تابعي كه استفاده كرديم يك كمي جستجو كن ميتوني وضعيت فعلي را بخوني :lol:

 

[cracki]

من كه نتونستم !
اگه حال داشتي و سختت نبود بگو ! ممنون مي شم !
در هر حال از كمكت ممنون !