یه TEXTBOX خاص .....

[sahele_sheni]

سلام دوستان

توی برنامه یه قسمت برای ارسال SMS دارم .... مشکلی توی ارسال SMS ندارم ...
میخوام یه TextBox داشته باشم که متن پیام اونجا نوشته بشه
چیزی که میخوام اینه که این پیام محدود باشه یعنی اگه English نوشته میشه پیام 160 کارکتر بگیره و اگه Persian باشه 70 کارکتر (در ضمن یه Lableهم میخوام که تعداد کارکترهای باقی مونده رو نشون بده )

یه دکمه هم برای تغییر زبان بین English & Persian ....

What do you Suggest

[sahele_sheni]

چرا من هر سوالی میپرسم بی جواب میمونه ؟؟؟؟
سخته سوالام یا جواب ندارن !!!

[morteza_261]

سلام
برای تغییر زبان


PrivateSub BtnLanguage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLanguage.Click
If BtnLanguage.Text = "فارسی"Then
Dim locInputType AsNew System.Globalization.CultureInfo("FA-IR")
Application.CurrentInputLanguage = InputLanguage.FromCulture(locInputType)
BtnLanguage.Text = "English"
Else
Dim locInputType AsNew System.Globalization.CultureInfo("EN-US")
Application.CurrentInputLanguage = InputLanguage.FromCulture(locInputType)
BtnLanguage.Text = "فارسی"
EndIf
EndSub

[morteza_261]

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

ایام به کام