فارسی کردن کیبورد [بایگانی]

alirezabigdeli

جمعه 16 فروردین 1392, 15:27 عصر

سلام

میخواستم بدونم چطوری میشه زمانی که فرم لود میشه زبان کیبورد فارسی بشه؟؟

یعنی همون کار alt+shift رو انجام بده

لطفا هر کی میدونه راهنمایی کنه

با تشکر

amin32

جمعه 16 فروردین 1392, 16:38 عصر

بفرمایید:

http://barnamenevis.org/showthread.php?59794-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%DA%A9%DB%8C%D8%A8%D9%88%D8%B1%D8%AF-%D8%AF%D8%B1-VB&p=301322&viewfull=1#post301322

لطفا قبل از ایجاد تاپیک , یک بار جستجو کنید.

alirezabigdeli

جمعه 16 فروردین 1392, 17:35 عصر

بفرمایید:

http://barnamenevis.org/showthread.php?59794-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%DA%A9%DB%8C%D8%A8%D9%88%D8%B1%D8%AF-%D8%AF%D8%B1-VB&p=301322&viewfull=1#post301322

لطفا قبل از ایجاد تاپیک , یک بار جستجو کنید.

دوست عزیز به اون پست رفتم ولی error میده

alirezabigdeli

جمعه 16 فروردین 1392, 17:36 عصر

بفرمایید:

http://barnamenevis.org/showthread.php?59794-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%DA%A9%DB%8C%D8%A8%D9%88%D8%B1%D8%AF-%D8%AF%D8%B1-VB&p=301322&viewfull=1#post301322

لطفا قبل از ایجاد تاپیک , یک بار جستجو کنید.

دوست عزیز به اون پست رفتم ولی error میده

http://rozup.ir/up/asandl/Untitled.png

SlowCode

جمعه 16 فروردین 1392, 17:48 عصر

خب حتما اون کدها رو داخل فرم نوشتی.
اون واسه ماجول بود، شما اگه بخوای تو فرم استفاده کنی تو خط اول به جای public بنویس private.

raminshahmoradi

شنبه 17 فروردین 1392, 13:21 عصر

سلام

میخواستم بدونم چطوری میشه زمانی که فرم لود میشه زبان کیبورد فارسی بشه؟؟

یعنی همون کار alt+shift رو انجام بده

لطفا هر کی میدونه راهنمایی کنه

با تشکر

سلام این کدها رو اول توی یک ماژول کپی کن

Private Function SetKbLayout(strLocaleId As String) As Boolean
Dim strLocId As String 'used to retrieve current KeyboardLayout
Dim strMsg As String 'used as buffer
Dim lngErrNr As Long 'receives the API-error number
strLocId = String(KL_NAMELENGTH, 0)
GetKeyboardLayoutName strLocId

If strLocId = (strLocaleId & Chr(0)) Then

SetKbLayout = True

Else

strLocId = String(KL_NAMELENGTH, 0)
strLocId = LoadKeyboardLayout((strLocaleId & Chr(0)), KLF_ACTIVATE)

If IsNull(strLocId) Then 'returns NULL when it fails

SetKbLayout = False

Else

strLocId = String(KL_NAMELENGTH, 0)
GetKeyboardLayoutName strLocId

If strLocId = (strLocaleId & Chr(0)) Then

SetKbLayout = True

Else

SetKbLayout = False

End If

End If

End If
End Function

سپس در فرم برای اعمال :

Call SetKbLayout(LANG_FARSI) ' For Farsi

Call SetKbLayout(LANG_EN_US) ' For English