۱۰-دى-۱۳۸۴, ۱۲:۳۸:۲۹
۱۰-دى-۱۳۸۴, ۱۵:۱۷:۰۹
این که کاری نداره، فقط کافی خاصیت Font مربوط به تکست باکست رو تعیین کنی.
به همین راحتی
به همین راحتی
۱۰-دى-۱۳۸۴, ۱۷:۱۵:۲۸
shamsoft نوشته است:این که کاری نداره، فقط کافی خاصیت 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 باید یه ثابت دیگه که انگلیسی کنه بذازی که من اونو نمی دونم باید منتظر باشی تا یکی بگه