شما میتونید با استفاده از کدهای زیر صفحه کلید را فارسی کنید :
کد: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
Bookmarks