
نوشته شده توسط
انگوران
زمانی که پارامتری رو برای کویری تنظیم می کنیم زمان اجرای کویری کادری باز میشه و ورود اطلاعاتی رو از ما می خواد منظور دوستمون ظاهراً فارسی کردن این کادره .
سلام
فکر می کنم با کمک این تابع API خواسته دوستمون برآورده بشه . البته اینطور که من متوجه شدم ایشون در نظر دارن که کاربر کلاً با زبان فارسی ثبت اطلاعات انجام بده .
این کد رو به رخداد On Open فرم استارت آپ برنامه اضافه کنید بنابراین وقتی برنامه باز بشه زبان سیستم شما به فارسی تبدیل میشه و در خلال کار با برنامه اگر زبان دستی تغییر داده نشه تا انتها فارسی باقی خواهد بود حتی در زمان ورود داده درخواستی از سمت Query .
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Sub Form_Load()
Call ActivateKeyboardLayout(1, 1)
End Sub