mf_engineer
جمعه 30 شهریور 1386, 13:47 عصر
با سلام
من برای فارسی نوشتن در برنامه ام صفحه کلید رو فارسی کردم
ولی خیلی جالبه که بعضی از تکس بکس ها که عدد توشون تایپ می کنم, فارسی تایپ می شن وبعضی انگلیسی:متفکر:
ممنون می شم کمکم کنید
یا حق
از این کد استفاده کردم
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As LongPrivate Sub Form_Load()Dim xx As Longxx = LoadKeyboardLayout("00000429", 1)End Sub
من برای فارسی نوشتن در برنامه ام صفحه کلید رو فارسی کردم
ولی خیلی جالبه که بعضی از تکس بکس ها که عدد توشون تایپ می کنم, فارسی تایپ می شن وبعضی انگلیسی:متفکر:
ممنون می شم کمکم کنید
یا حق
از این کد استفاده کردم
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As LongPrivate Sub Form_Load()Dim xx As Longxx = LoadKeyboardLayout("00000429", 1)End Sub