جایگزین کردن زبان اصلی ویندوز به فارسی

[VB.NET2005]

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

Control Panel ---> Regional and Language Options ---> RegionalOptions ----> Farsi


http://farzad-ecom.persiangig.com/Farsi.jpg

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

لطفا راهنمایی کـــنــــیــــــد : با تشکر :

[hesam_hma]

دوست عزیز سلام
من قبلا یه تابع برای این کار نوشتم این کدش

[hesam_hma]

ببخشد کدش اینه :

Sub change_farsi_regional_and_langauge()
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iCalendarType", "2")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iCountry", "981")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iCurrDigits", "2")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iCurrency", "2")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iDate", "2")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iDigits", "2")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iFirstDayOfWeek", "6")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iFirstWeekOfYear", "0")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iLZero", "1")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iMeasure", "0")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iNegCurr", "3")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iNegNumber", "3")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iTime", "1")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iTimePrefix", "1")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "iTLZero", "1")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "Locale", "00000429")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "NumShape", "0")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "s1159", "ç.â")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "s2359", " .â")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sCountry", "Iran")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sCurrency", "©ïںé")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sDate", "/")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sDecimal", ".")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sGrouping", "3;0")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sLanguage", "FAR")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sList", ";")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sLongDate", "yyyy/MM/dd")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sMonDecimalSep", "/")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sMonGrouping", "3;0")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sMonThousandSep", ",")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sNativeDigits", "۰۱۲۳۴۵۶۷۸۹")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sNegativeSign", "-")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sPositiveSign", "")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sShortDate", "yyyy/MM/dd")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sThousand", ",")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sTime", ":")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sTimeFormat", "HH:mm:ss")
EndSub

[VB.NET2005]

( دوست عزیز این کد رو باید توی یک ماژول بزارم ؟ ) من از دات نت 2003 استفاده میکنم تو هر جایی که گذاشتم زیر My خط میکشه حتی Microsoft.Win32 رو هم Imports کردم ولی بازم نشد . لطفا راهنمایی کنید . . .

[VB.NET2005]

یکی به من بگه اید کدو کـــجـــا بزارم (VB.NET2003)

[hesam_hma]

من این کد رو تو 2005 نوشتم ، از 2003 بی اطلاع هستم ، فکر نمی کنید وقتشه به استودیو 2005 یا 2008 نقل مکان کنید؟

[VB.NET2005]

حرفه شما متینه ولی این یه پروژه هست که من از قبله 2005 شروع کردم ، هنوزم به پایان نرسیده .

یکی کمک کنه . . . . . . . .

[VB.NET2005]

کــــــــــــــــــمـــــ ـــــــــــــک . . .

[VB.NET2005]

راه دیگه ای تو دات نت 2003 نــــــــیــــــــــســــ ــــــــــت ؟