تغيير زبان صفحه كليد

[vahab2010]

سلام من ميخواستم برنامه اي بنويسم كه كاربر به جاي اين كه alt+shift رو بگيره تا صفحه كليد فارسي شه با صوت اين كار رو كنه به طوري كه بگه فارسي اون وقت صفحه كليد فارسي شه
كسي هست كه بتونه من رو راهنمايي كنه و بگه مقدمات و اصول اين كار چيه؟

[ali_najari]

این کدها برای تغییر زبان برنامه هست ولی انکه بتونید با صدا این کار رو بکنید و بلد نیستم



Private Declare Function LoadKeyboardLayout Lib "user32" _
Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Integer) As Integer

Public Sub Farsi()
Dim a As Integer
a = LoadKeyboardLayout("00000429", 1)
End Sub

Public Sub English()
Dim a As Integer
a = LoadKeyboardLayout("00000409", 1)
End Sub


البته دوست عزیز میتونید از کلاس های خود NetFramWork هم استفاده کنید اگر نمیخواید از Api استفاده کنید

[vahab2010]

كسي نيست كه بتونه كمكم كنه خيلي ضروريه

[babak_jooon]

مگه می خوای واسه معلولین برنامه بنویسی ؟ :لبخند:

[آناهیتا_مولایی]

درود
خوب حتماً نیاز داره دیگه ادب هم خوب چیزیه هاااااااااااااااااااااااا ااااااااااااااااااااااااا اااااااا :شیطان:

[b.mahsa]

كسي نيست كه بتونه كمكم كنه خيلي ضروريه

كد آقاي najari كاملا درسته
از كد زير هم ميتونيد استفاده كنيد



Private Sub set_farsi_language()
Dim code_farsi_instaled As Boolean = False
For Each lang1 As InputLanguage In InputLanguage.InstalledInputLanguages
If lang1.LayoutName = "Farsi" Then
code_farsi_instaled = True
Exit For
End If
Next
If code_farsi_instaled = True Then
Dim farsi As New Globalization.CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(farsi)
End If
End Sub


در مورد صوتي بودنش . شرمنده اطلاعاتي ندارم.(اگر پيدا كردم براتون ميذارم)

[alimanam]

با سلام

چیزی که شما نیاز دارین اینه که اول بیای با یه ورودی صدا ( مثل میکروفون ) صدا رو در ابتدا دریافت و در مرحله بعدی با کامپوننت خاصی یا اینکه با برنامه نویسی خودت بیای این صدا رو آنالیز کنی و کار خاصی رو که نیاز دارین انجام بدی . در مورد اینکه زبان سیستم عامل رو عوض کنی هم کد زیر ساده ترین روشی هست که میشناسم . موفق باشید .

تغییر زبان به فارسی :

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

تغییر زبان به انگلیسی :

InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("en-us"))