فارسی کردن کیبورد

چجوری میشه وقتی برنامه اجرا میشه صفحه کلید رو فارسی کرد

شما میتونید با استفاده از کدهای زیر صفحه کلید را فارسی کنید :

کد:

---

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Private Const KL_NAMELENGTH = 9
Public Sub ToFarsi()
Dim strName As String
strName = String(KL_NAMELENGTH, 0)
GetKeyboardLayoutName strName
If InStr(1, strName, "00000409") <> 0 Then
SendKeys "%+"
End If
End Sub

Private Sub Form_Load()
Call ToFarsi
End Sub

---