*فورم* مثال يظهر اللغة الحالية و يغيرها

السلام عليكمو رحمة الله و بركاته

بسبب طرح الموضوع فى أكثر من مشاركة

هذا مثال يظهر اللغة الحالية و يغيرها

الزر الاول يظهر اللغة الحالية

الزر الثاني يغيرها

الفورم دائما تغير اللغة الي العربي فور تحميلها

الحقل الاول للاختبار

الحقل الثاني يغير اللغة الي العربية فور تفعيله

وسأضع رابط للمثال اليوم

و الكود هو

Option Compare Database
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long


Private Sub Command4_Click()

Dim kbd As Long

On Error Resume Next
'get keyboard language.Arabic or English

kbd = GetKeyboardLayout(0)
kbd = Hex(kbd)

If Right(kbd, 1) = 1 Then
'keyboard is arabic
MsgBox "عربي"
Else
'keyboard is english
MsgBox "انجليزي"
End If

End Sub

Private Sub Command5_Click()
 SendKeys "%+"
End Sub

Private Sub Form_Load()
Dim kbd As Long

On Error Resume Next
'get keyboard language.Arabic or English

kbd = GetKeyboardLayout(0)
kbd = Hex(kbd)

If Right(kbd, 1) <> 1 Then
'keyboard is arabic
 SendKeys "%+"
End If

End Sub

Private Sub Text7_GotFocus()
Dim kbd As Long

On Error Resume Next
'get keyboard language.Arabic or English

kbd = GetKeyboardLayout(0)
kbd = Hex(kbd)

If Right(kbd, 1) <> 1 Then
'keyboard is arabic
 SendKeys "%+"
End If


End Sub

و نسألكم الدعاء(g)