فارسی نوشتن اطلاعات در برنامه ویژوال بسیک بدون آنکه کاربر کلیدهای alt+shift را بزند

سلام

من یک پایگاه داده با ویژوال بیسیک و اکسس نوشتم.میخواهم تعد از اجرا بدون اینکه کلیدهای alt+shift را بزند زبانش فارسی شود .لطفا سورسش را برایم بگذارید

کد:

---

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Const KL_NAMELENGTH = 9

Private Sub English_Click()
LoadKeyboardLayout "00000409", 1
End Sub

Private Sub Farsi_Click()
LoadKeyboardLayout "00000429", 1
End Sub

---

رومینا ممنون
خیلی خوب است کم حجم وکاربردی.

رومینا سلام .
من هم یک برنامه نوشتم که نیاز داره فارسی تایپ بشه .
این کدی که دادی باید کجا نوشته بشه .
ممنون

کد:

---

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Const KL_NAMELENGTH = 9

Private Sub Form_Load()
LoadKeyboardLayout "00000429", 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
LoadKeyboardLayout "00000409", 1
End Sub

---

به این تاپیک هم می تونی مراجعه کنی :

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سعی کنید
نوع سیستم عامل را هم مد نظر قرار دهید !