ورود

View Full Version : مبتدی: تشخیص دادن زبان متن Textbox در Label


MohammadGh2011
سه شنبه 06 اردیبهشت 1390, 21:50 عصر
سلام دوستان من روی فرمم یک تکس باکس دارم و یک لیبل و میخوام که هر موقع زبان متن در تکس باکس فارسی شد لیبل م بشه FA و اگر انگلیسی شد لیبیل م بشه EN .

مانند خود ویندوز که وقتی Shift با Ctrl رو با هم میزنیم در نوار پایین تغییر میکند و من میخوام این کار در vb اتفاق بیفده.
ممنون دوستان
Mohamad ghorbani
سه شنبه 06 اردیبهشت 1390, 22:51 عصر
سلام.
شما ميتونيد با استفاده از تابع Asc كد اسكي اولين حرف رو بدست بياريد.
بعدش ميتونيد تشخيص بديد زبان متن فارسي يا انگليسي
موفق باشيد
Mohamad ghorbani
سه شنبه 06 اردیبهشت 1390, 22:59 عصر
اينم نمونه كار :
M_Maskout
چهارشنبه 07 اردیبهشت 1390, 08:27 صبح
سلام
می‌تونید یه Timer با Interval=1 روی فرم قرار بدین و تو وقفه Timer، کد زیر رو بنویسین:


Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

Private Sub Timer1_Timer()
Dim L as Long
Label1.Caption = IIf(GetKeyboardLayout(L) Mod &H1000 = &H409, "En", "Fa")
End Sub