قفل کردن زبان صفحه کلید

[samiasoft]

چگونه میتوان در وی بی برنامه ای نوشت که هنگام اجرای اون صفحه کلید در همه قسمت های ویندوز فارسی باشه؟

من هرکاری کردم اما فقط در داخل خود وی بی این عمل امکان پذیر شد!

این برنامه رو برای این کار میخواستم که گاهی اوقات مثلا وقتی داخل برنامه ای میشوم بصورت خودکار زبان صفحه کلید انگلیسی میشه و مجبورم فارسی کنم دوباره....که شاید با بودن این برنامه و قفل بودن روی زبان فارسی شاید دیگر زبان صفحه کلید تغییر نکنه.

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

[samiasoft]

دوستان نظری ندارید؟دراین باره

[vbhamed]

سلام
از تابع LoadKeyboardLayout از توابع API استفاده كنيد و اون رو در يك تايمر بزاريد

[samiasoft]

منظورتون این تابع هست

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Dim Farsi As Long




Private Sub Timer_Timer()
Farsi = LoadKeyboardLayout("00000429", 1)
End Sub




اینطوری اخه فقط در خود فرم برنامه ویژوال صفحه کلیدو فارسی میکنه ...هنگامی که مثلا به دسکتاپ کلیک کنم یا برنامه دیگر بازم انگلیسی میشه

[setroyd]

من تست کردم همه ی این راه هارو ولی یه راه دیگه هست اگه اون جواب نده دیگه چیزی به فکرم نمیرسه حالا اونم وقت کردم تست میکنم اگه کار کرد میزارم .