انتخاب زبان در textbox

[mohsenm66]

چگونه ميتوان زبان يك textbox را به صورت پيش فرض تعيين كرد
مثلا فارسي باشد

[shamsoft]

این که کاری نداره، فقط کافی خاصیت Font مربوط به تکست باکست رو تعیین کنی.
به همین راحتی

[محمد حسینی]

این که کاری نداره، فقط کافی خاصیت Font مربوط به تکست باکست رو تعیین کنی.
به همین راحتی

فکر نکنم اینطوری بشه
از این کد استفاده کن

کد:

Private Const KLF_ACTIVATE = &H1
Private Const LANG_EN_IR As String = "00000429"
Private Declare Function LoadKeyboardLayout Lib "USER32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "USER32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Const HKL_NEXT = 1


Private Sub Text1_GotFocus()
LoadKeyboardLayout LANG_EN_IR & Chr(0), KLF_ACTIVATE
End Sub

Private Sub Text1_LostFocus()
' bayad ye sabet moarefi koni ke az farsi bargardune
End Sub

برای Lostfocus باید یه ثابت دیگه که انگلیسی کنه بذازی که من اونو نمی دونم باید منتظر باشی تا یکی بگه