View Full Version : فارسی کردن کیبورد در VB.NET 2005
ehsan957
سه شنبه 01 اسفند 1385, 09:25 صبح
با سلام به همگی
کسی هست که بتونه نحوه فارسی کردن کیبورد را توی VB.NET 2005 را به من یاد بده؟:عصبانی++:
alsman
سه شنبه 01 اسفند 1385, 09:42 صبح
من با #C کار میکنم اما این کد باید تو VB هم جواب بده
Application.CurrentInputLanguage = System.Windows.Forms.InputLanguage.InstalledInputL anguages[1]
ehsan957
سه شنبه 01 اسفند 1385, 09:52 صبح
با چنین پیغام خطایی مواجه شدم:
Value of type 'System.Windows.Forms.InputLanguageCollection' cannot be converted to 'System.Windows.Forms.InputLanguage'
ehsan957
سه شنبه 01 اسفند 1385, 10: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, 11:00 صبح
با کد زیر هم این کار میتونی بکنی.
تو فرم لود برنامت بنویس:
Dim farsi As New Globalization.CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(farsi)
saeed_rezaei
پنج شنبه 03 اسفند 1385, 01: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, 22: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, 09:09 صبح
گرچه جواب دوستان کامل و بی عیب و نقصه . این نمونه رو برای این ذوست عزیزمون گذاشتم که خیالش راحت بشه :
niksoft
چهارشنبه 20 تیر 1386, 18:12 عصر
با سلام من از این کد استفاده میکنم در ضمن تمام فرمها فارسی میشن
Application.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("fa-IR"))
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.