فارسی کردن کیبورد در VB.NET 2005 [بایگانی]

ehsan957

سه شنبه 01 اسفند 1385, 08:25 صبح

با سلام به همگی
کسی هست که بتونه نحوه فارسی کردن کیبورد را توی VB.NET 2005 را به من یاد بده؟:عصبانی++:

alsman

سه شنبه 01 اسفند 1385, 08:42 صبح

من با #C کار میکنم اما این کد باید تو VB هم جواب بده
Application.CurrentInputLanguage = System.Windows.Forms.InputLanguage.InstalledInputL anguages[1]

ehsan957

سه شنبه 01 اسفند 1385, 08:52 صبح

با چنین پیغام خطایی مواجه شدم:
Value of type 'System.Windows.Forms.InputLanguageCollection' cannot be converted to 'System.Windows.Forms.InputLanguage'

ehsan957

سه شنبه 01 اسفند 1385, 09:26 صبح

کسی که جواب نداد ولی خودم خوشبختانه تونستم جوابش رو پیدا کنم

Public Sub GetLanguages()
' Gets the list of installed languages.
Dim lang As InputLanguage
lang = InputLanguage.InstalledInputLanguages.Item(1)
InputLanguage.CurrentInputLanguage = lang
End Sub 'GetLanguages

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.GetLanguages()
TextBox1.TextAlign = HorizontalAlignment.Right
End Sub

mah.yar

سه شنبه 01 اسفند 1385, 10:00 صبح

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

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

saeed_rezaei

پنج شنبه 03 اسفند 1385, 00:10 صبح

'تابع تغییر زبان
' ورودی دو حرف اول زبان مورد نظر

Public Sub changelanguge(ByVal cl As String)
Dim lang As System.Windows.Forms.InputLanguage
For Each lang In System.Windows.Forms.InputLanguage.InstalledInputL anguages
If (lang.Culture.TwoLetterISOLanguageName = cl) Then
System.Windows.Forms.Application.CurrentCulture = lang.Culture
System.Windows.Forms.Application.CurrentInputLangu age = lang
End If
Next
End Sub

javad2000

سه شنبه 19 تیر 1386, 21:24 عصر

کسی که جواب نداد ولی خودم خوشبختانه تونستم جوابش رو پیدا کنم

Public Sub GetLanguages()
' Gets the list of installed languages.
Dim lang As InputLanguage
lang = InputLanguage.InstalledInputLanguages.Item(1)
InputLanguage.CurrentInputLanguage = lang
End Sub 'GetLanguages

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.GetLanguages()
TextBox1.TextAlign = HorizontalAlignment.Right
End Sub
سلام
من این کد شما رو برای به دست آوردن فهرست زبان های نصب شده امتحان کردم اما جواب نمیداد و پیغام خطا میداد. کسی کد تست شده و صحیح رو داره؟

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

با تشکر

Sharif Lotfi

چهارشنبه 20 تیر 1386, 08:09 صبح

گرچه جواب دوستان کامل و بی عیب و نقصه . این نمونه رو برای این ذوست عزیزمون گذاشتم که خیالش راحت بشه :

niksoft

چهارشنبه 20 تیر 1386, 17:12 عصر

با سلام من از این کد استفاده میکنم در ضمن تمام فرمها فارسی میشن

Application.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("fa-IR"))