تغییر زبان صفحه کلید [بایگانی]

View Full Version : تغییر زبان صفحه کلید

ahmad abdoli

دوشنبه 21 بهمن 1392, 19:40 عصر

با عرض سلام خدمت دوستان و اساتید

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

مثلا با لود شدن فرم زبان به فارسی تغییر کنه.

Mr.305

دوشنبه 21 بهمن 1392, 20:50 عصر

تابع:
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
کد برای انگلیسی:
StrLocId = LoadKeyboardLayout(vbNull, 1)
کد برای فارسی:
StrLocId = LoadKeyboardLayout("00000429", 1)

ahmad abdoli

دوشنبه 21 بهمن 1392, 21:08 عصر

میشه بیشتر توضیح بدی. کدوم کدو کجا استفاده کنم
واسه من خطا می ده
invalid outside procedure

Mr.305

دوشنبه 21 بهمن 1392, 21:15 عصر

تابع رو توی یک ماژول تعریف کن
متغیر strLockID رو بصورت Long تعریف کن
هر کد زبان رو توی یک دکمه جداگانه بنویس
pwszKLID: این متغیر رشته 9 رقمی است که کد زبان رو مشخص میکند
flags:مقدار این متغییر 1 خواهد بود