چطور میتوان پیش فرض ورودی text box ها را فارسی کرد

[farrin]

سلام به همه ی دوستانچطوری میتونم در(asp.net) که با زبان vb.net 2005 یا vb.net 2008 نوشته شده پیش فرض داده ی ورودی text box ها را فارسی کرد.

[aminva]

("Dim language As New System.Globalization.CultureInfo("fa-ir
(InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(language

اینو امتحان کن و مشکلت که حل شد خبر خوشش رو بهم بده
:چشمک:

[baran_mehr]

سلام
چطوری میشه یک صفحه را دو بار لود کرد یعنی در داخل فرم لود چی بنویسم که دو باره فورم را لود کند

[gdevnb]

برای چی میخوای دوبار لود بشه
هدفتون رو بگید شاید راه حل بهتری براش پیدا بشه

در ضمن این سوال چه ربطی به این تایپیک داره؟

[mm_sedighi]

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


Option

StrictOff
OptionExplicitOnModule Module1
PublicDeclareFunction LoadKeyboardLayout Lib"User32"Alias"LoadKeyboardLayoutA" (ByVal pwszKLID AsString, ByVal Flags AsInteger) AsInteger
PublicDeclareFunction GetVersionExA Lib"KERNEL32" (ByRef lpVersionInformation As OSVERSIONINFO) AsShort
PublicStructure OSVERSIONINFO
Dim dwOSVersionInfoSize AsInteger
Dim dwMajorVersion AsInteger
Dim dwMinorVersion AsInteger
Dim dwBuildNumber AsInteger
Dim dwPlatformId AsInteger
<VBFixedString(128), System.Runtime.InteropServices.MarshalAs(System.Ru ntime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=128)> Public szCSDVersion AsString
EndStructure
PublicFunction getVersion() AsString
Dim osinfo As OSVERSIONINFO
Dim retvalue AsShort
osinfo.dwOSVersionInfoSize = 148
osinfo.szCSDVersion = Space(128)
retvalue = GetVersionExA(osinfo)
With osinfo
getVersion = CStr(.dwPlatformId) '& " " & .dwMajorVersion & " " & .dwMinorVersion
EndWith
' Win95 Win98 WinNT 3.51 WinNT 4.0 xp
'------------------------------------------------------
'dwPlatFormID 1 1 2 2 2
'dwMajorVersion 4 4 3 4 5
'dwMinorVersion 0 10 51 0 1
EndFunction

PublicSub Farsi()
'-----فارسی کردن زبان-----
IfCDbl(getVersion()) = 2 Then
LoadKeyboardLayout("00000429", 1) 'xp,2000
EndIf
IfCDbl(getVersion()) = 1 Then
LoadKeyboardLayout("00000401", 1) '95,98
EndIf
EndSub
PublicSub English()
'-----انگلیسی کردن زبان------
LoadKeyboardLayout("00000409", 1)
EndSub
EndModule

[touraj]

سلام میتونی از این ماجول هم استفاده کنی
با استفاده از چک باکس زبان تکس باکس به فارسی یا انگلیسی تغییر پیدا می کند
.
.
.


دوستان خواهشاً کد مورد نظر رو در بین تگ مربوط به کد قرار بدن تا خوندن و استفاده از اونها راحتتر بشه. مرسی

[یک برنامه نویس]

با تشکر از mm_sedighi (http://barnamenevis.org/forum/member.php?u=55511) عزیز. من سورس شون رو امتحان کردم. خیلی کار درسته. وقتی متنشون رو کپی پیست می کنید به مشکل می خورید. برای همین من فایل زیپ شده ی پروژه رو می گذارم می تونید سریعتر نتیجه ی زحمت ایشون رو ببینید.

[CHROCHRO]

عالیه. ممنون:قلب: