نمایش نتایج 1 تا 15 از 15

نام تاپیک: تغییر زبان (کیبرد) در ویندوز 7

  1. #1
    کاربر تازه وارد آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    96

    تغییر زبان (کیبرد) در ویندوز 7

    با سلام در مورد تغییر زبان جستجو کردم ولی نتیجه نگرفتم ، تغییر ربان تو ایکس پی انجام میشه ولی تو 7 نمیشه تو کدها هم از FA استفاده کردم هم از Farsi , هم از Persian .
    ممنون میشم در صورت اطلاع دوستان پاسخ دهند
    سپاس

  2. #2

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7



    Public Function lang_changer_selectable(ByVal lang As String) As Int64 'load the main form's lamguage
    Dim l As InputLanguage
    Dim ll As InputLanguageCollection
    Dim a As String
    Try


    ll = InputLanguage.InstalledInputLanguages
    For Each l In ll


    a = Microsoft.VisualBasic.Left(l.LayoutName, 1)
    Select Case lang
    Case "EN"
    If a = "E" Or a = "e" Or a = "u" Or a = "U" Then
    Application.CurrentInputLanguage = l
    Exit For
    End If
    Case "FA"
    If a = "F" Or a = "f" Or a = "P" Or a = "p" Then
    Application.CurrentInputLanguage = l
    Exit For
    End If
    Case "67699721" 'us
    If l.Handle.ToString = lang Then
    Application.CurrentInputLanguage = l
    Exit For
    End If
    Case "69796905" 'fa
    If l.Handle.ToString = lang Then
    Application.CurrentInputLanguage = l
    Exit For
    End If
    End Select
    Next
    FileClose(1)
    Catch ex As Exception


    End Try
    Return l.Handle.ToInt64
    End Function


  3. #3
    کاربر تازه وارد آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    96

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

    با سلام ممنونم از پاسخ شما ولی کدهای ارسالی شما رو نتونستم بفهمم چرا بهم ریخته شده لطف کنید به عکس ضمیمه یه نگاهی بیاندازید . سپاسگزارم
    عکس های ضمیمه عکس های ضمیمه
    • نوع فایل: jpg 1.jpg‏ (99.6 کیلوبایت, 29 دیدار)

  4. #4

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

    Public Function lang_changer_selectable(ByVal lang As String) As Int64 'load the main form's lamguage
    Dim l As InputLanguage
    Dim ll As InputLanguageCollection
    Dim a As String
    Try


    ll = InputLanguage.InstalledInputLanguages
    For Each l In ll


    a = Microsoft.VisualBasic.Left(l.LayoutName, 1)
    Select Case lang
    Case "EN"
    If a = "E" Or a = "e" Or a = "u" Or a = "U" Then
    Application.CurrentInputLanguage = l
    Exit For
    End If
    Case "FA"
    If a = "F" Or a = "f" Or a = "P" Or a = "p" Then
    Application.CurrentInputLanguage = l
    Exit For
    End If
    Case "67699721" 'us
    If l.Handle.ToString = lang Then
    Application.CurrentInputLanguage = l
    Exit For
    End If
    Case "69796905" 'fa
    If l.Handle.ToString = lang Then
    Application.CurrentInputLanguage = l
    Exit For
    End If
    End Select
    Next
    FileClose(1)
    Catch ex As Exception


    End Try
    Return l.Handle.ToInt64
    End Function

  5. #5

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

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

  6. #6
    کاربر تازه وارد آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    96

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

    نقل قول نوشته شده توسط hamidrezax1 مشاهده تاپیک
    این کپی کنین یه فانکشن البته مال انجین اورانوس هستش. استاد فراهانی
    سپاسگزارم از پاسخ شما

  7. #7
    کاربر تازه وارد آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    96

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

    متاسفانه در ویندوز 7 کار نمیکنه!!

  8. #8

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

    این فانکشن برای تمامی ویندوزها تست شده از اکس پی تا ویندوز 10.لطفا کدی رو که نوشتین و جایی که قراره ازش استفاده کنین رو بفرستین تا دوستان راهنمایی کنند

  9. #9
    کاربر تازه وارد آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    96

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

    ممنونم از توجه شما من این کد رو تو پروژه مد نظرم تو یا فانکشن گزاشتم و تو فرم لود ازش استفاده کردم ولی نتاسفانه جواب نگرفتم که طبق فرمایش شما حتما اشکال از نوع فراخوانیه که من انجام دادم عذر خواهی میکنم که نمیتونم خود پروزه رو ارسال کنم میشه خواهش کنم تو یه سورس کوچیک ارسال کنید . سپاسگزارم چه بشود چه نشود.

  10. #10

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

    سلام اینجا فایل قرار دادم موفق باشید

  11. #11
    کاربر تازه وارد آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    96

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

    سپاسگزارم فایل شما رو دریافت کردم و در کمال ناباوری کار نکرد فرمان رو با یک باتن اجرا کردم کارکرد واقعا ممنونم در کل تستی که انجام میدادم تو فرم لود اجرا میکردم نمیدونم چرا کار نمیکرد کماکان در فرم لود کار نمیکنه ولی مهم نیست باز هم سپاسگزارم

  12. #12

    Lightbulb نقل قول: تغییر زبان (کیبرد) در ویندوز 7

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

  13. #13
    کاربر تازه وارد آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    96

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

    نقل قول نوشته شده توسط ROSTAM2 مشاهده تاپیک
    با سلام. با عرض معذرت بخاطر دخالت بیجا ... ولی زبان فارسی ویندوز شما از تصویری که فرستادید مشخصه که نصب نشده ...
    سلام اکه نصب نبود که مشکل حل نمی شد در ضمن بدون هیچ کدی زبان ویندوز من در همین پروژه با ALT+SHIFT تعویض میشه ممنونم از توجه شما

  14. #14
    کاربر دائمی آواتار nima_8m
    تاریخ عضویت
    دی 1387
    محل زندگی
    تهران
    سن
    38
    پست
    636

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

    سلام وقت بخیر خیلی ساده است ابتدا یه کلاس تعریف کن یا همین و کپی کن راحت

    Public Class InputLanguages
    Public Sub EnglishKeyboard()
    For Each Language As InputLanguage In InputLanguage.InstalledInputLanguages
    If Language.Culture.TwoLetterISOLanguageName.Contains ("en") = True Then
    InputLanguage.CurrentInputLanguage = Language
    End If
    Next
    End Sub
    Public Sub PersianKeyboard()
    For Each Language As InputLanguage In InputLanguage.InstalledInputLanguages
    If Language.Culture.TwoLetterISOLanguageName.Contains ("fa") = True Then
    InputLanguage.CurrentInputLanguage = Language
    End If
    Next
    End Sub
    End Class



    توجه توجه :
    برای ویندوزهای 7 و xp حروف اختصاری زبان فارسی رو باید با یه or اضافه کنی این مثال من برا ویندوز 10 هست که زبان فارسی رو با "fa" می شناسه
    خوب حالا بیا هرجا خواستی فارسی تایپ کنی مثلا یه تکس باکس که میخواد نام کالا رو وارد که تو رویداد GotFocus از کلاس استفاده کن به این صورت


    InputLang.PersianKeyboard()

    و اینم برا تکس باکس هایی که انگلیسی میخوان


    InputLang.EnglishKeyboard()


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

    Private InputLang As New InputLanguages
    آخرین ویرایش به وسیله nima_8m : شنبه 11 آبان 1398 در 19:39 عصر

  15. #15
    کاربر تازه وارد آواتار پرستو پارسایی
    تاریخ عضویت
    آبان 1392
    محل زندگی
    تهران
    پست
    96

    نقل قول: تغییر زبان (کیبرد) در ویندوز 7

    سپاسگزارم از پاسخ شما

تاپیک های مشابه

  1. حالت شناسایی ویندوز اسکیول بعد از تغییر پسورد و یوزر ویندوز
    نوشته شده توسط h.alizadeh در بخش مسائل مرتبط با نصب و راه اندازی
    پاسخ: 1
    آخرین پست: دوشنبه 01 دی 1393, 16:21 عصر
  2. تغییر مجوز های دسترسی ویندوز
    نوشته شده توسط littledemon در بخش VB.NET
    پاسخ: 4
    آخرین پست: چهارشنبه 02 بهمن 1387, 17:54 عصر
  3. لایسنس ویندوز و تغییرات در ویندوز
    نوشته شده توسط mehrzad007 در بخش توسعه‌ی لینوکس و نرم افزارهای آزاد
    پاسخ: 8
    آخرین پست: شنبه 08 دی 1386, 23:21 عصر
  4. تغییر درایور ویندوز 98 به ویندوز xp
    نوشته شده توسط senator_aka در بخش برنامه نویسی در 6 VB
    پاسخ: 5
    آخرین پست: یک شنبه 05 فروردین 1386, 23:51 عصر

قوانین ایجاد تاپیک در تالار

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