PDA

View Full Version : فارسی بودن پیش فرض textbox در vb.net (فوریه فوری)



mehrnush
شنبه 24 مرداد 1383, 07:36 صبح
من میخوام بدونم چه جوری میشه در یک textbox موقع اجرا بشه فارسی type کرد. یعنی نیازی نباشه که کاربر shift+alt رو بگیره.هر کس میدونه سریعا جواب به

با تشکر فراوان :)

(سیدشریفی)
شنبه 24 مرداد 1383, 09:59 صبح
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long



LoadKeyboardLayout("00000429", 1) 'فارسی
LoadKeyboardLayout("00000409", 1) 'انگلیسی


:)

sh
شنبه 24 مرداد 1383, 17:03 عصر
در دات نت نیاز به استفاده از توابع API نداری با استفاده کلاس Globalization میتونی مشکلت رو حل کنی

این کد رو در رویداد فرم لود فرم قرار بده

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


Dim farsi As New Globalization.CultureInfo("fa-IR")
Dim l As InputLanguage
InputLanguage.CurrentInputLanguage = l.FromCulture(farsi)

mahdie
شنبه 28 آذر 1383, 11:07 صبح
خیلی عالی بود ،ممنون

REZA_ROSTAMI
یک شنبه 06 دی 1383, 21:52 عصر
Dim lang As InputLanguage
For Each lang In InputLanguage.InstalledInputLanguages
If lang.Culture.ThreeLetterWindowsLanguageName = "FAR" Then
InputLanguage.CurrentInputLanguage = lang
Exit Sub
End If
Next lang

kablayi
سه شنبه 20 بهمن 1383, 07:03 صبح
:موفق:

rezaei manesh
سه شنبه 20 بهمن 1383, 11:11 صبح
سلام
آقا شهریار خیلی استفاده کردیم
ممنون
***حامد*** :تشویق:

GentleGuy
شنبه 03 اردیبهشت 1384, 01:42 صبح
ممنون عالی بود :تشویق:

shakiba_12
دوشنبه 19 اردیبهشت 1384, 15:26 عصر
InputLanguage
برای اینکه سیستم اینو بشناسه چه کلاسی رو باید imports کرد
میشه کامل بنویسید :oops:

hadi2345
سه شنبه 20 اردیبهشت 1384, 17:25 عصر
با تشکر از همه استفاده کردیم