تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تحويل مؤشر الكتابة الى اللغة العربية
#1
السلام عليكم
ما هو الكود الذي يقوم بتحويل المؤشر الى اللغة العربية عند الانتقال الى تكست بوكس مطلوب الكتابه به باللغة العربية ؟ وتدمتم سالمين
الرد }}}
تم الشكر بواسطة:
#2
في الموديل:


PHP كود :
Public Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszklid As String) As Long
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszklid As StringByVal flags As Long) As Long
Public Sub changerlanguage(ByVal lg As Integer)
On Error Resume Next
Dim resultat 
As Long
Dim resultato 
As String
resultato 
Space(10)
resultat GetKeyboardLayoutName(resultato)
If 
lg 1 Then
    If LCase
(Left(resultato8)) = "00000409" Or LCase(Left(resultato8)) = "00020401" Or LCase(Left(resultato8)) = "0000040c" Then
        resultat 
LoadKeyboardLayout("00020401"1)
 
   Else
        resultat 
LoadKeyboardLayout("00001c01"1)
 
   End If
Else
 
   resultat LoadKeyboardLayout("0000040c"1)
End If
If 
resultat 0 Then
    MsgBox 
"vérifiez la version de windows"vbInformation"Language de windows"
End If
End Sub 


في التصريح العام :


PHP كود :
Public Sub arabic()
 
'' تحويل لوحة المفاتيح للغة العربية
    Call LoadKeyboardLayout
("00000401"1)
End Sub 

في خاصية التكست GotFocus


PHP كود :
Call arabic 
الرد }}}
#3
(13-11-17, 09:59 PM)khezzani كتب : في الموديل:


PHP كود :
Public Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszklid As String) As Long
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszklid As StringByVal flags As Long) As Long
Public Sub changerlanguage(ByVal lg As Integer)
On Error Resume Next
Dim resultat 
As Long
Dim resultato 
As String
resultato 
Space(10)
resultat GetKeyboardLayoutName(resultato)
If 
lg 1 Then
    If LCase
(Left(resultato8)) = "00000409" Or LCase(Left(resultato8)) = "00020401" Or LCase(Left(resultato8)) = "0000040c" Then
        resultat 
LoadKeyboardLayout("00020401"1)
 
   Else
        resultat 
LoadKeyboardLayout("00001c01"1)
 
   End If
Else
 
   resultat LoadKeyboardLayout("0000040c"1)
End If
If 
resultat 0 Then
    MsgBox 
"vérifiez la version de windows"vbInformation"Language de windows"
End If
End Sub 


في التصريح العام :


PHP كود :
Public Sub arabic()
 
'' تحويل لوحة المفاتيح للغة العربية
    Call LoadKeyboardLayout
("00000401"1)
End Sub 

في خاصية التكست GotFocus


PHP كود :
Call arabic 

كل الشكر والتقدير للاستاذ للاستاذ khezzani لسرعة الاستجابة . فعلا حل موفق جزاك الله خيرا
الرد }}}
#4
السلام عليكم

طريقة أخرى

Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

Private Sub Command1_Click()
Call ArabicKeyboard("a")
End Sub


Sub ArabicKeyboard(language As String)
 Select Case LCase(language)
  Case "a"
    dd = GetKeyboardLayout(0)
    If dd = "67699721" Then d = ActivateKeyboardLayout(1, 0)
  Case "e"
    dd = GetKeyboardLayout(0)
    If dd <> "67699721" Then d = ActivateKeyboardLayout(0, 0)
  End Select
End Sub

Private Sub Command2_Click()
Call ArabicKeyboard("e")
End Sub
الرد }}}
#5
تسلمو اخوتي على هذا الطرح الجميع جعله الله في ميزان حسناتكم 
احترمكم
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 406 28-08-23, 07:19 PM
آخر رد: جلال اليمني
  تحويل أكواد فيصل الحطامي 0 244 09-05-23, 04:45 PM
آخر رد: فيصل الحطامي
  تحويل أكواد فيصل الحطامي 0 227 09-05-23, 04:36 PM
آخر رد: فيصل الحطامي
  تحويل أكواد فيصل الحطامي 1 416 01-03-23, 02:37 AM
آخر رد: Amir_Alzubidy
  [vb6.0] المساعدة في تحويل كود بلغة ال VB.Net الى لغة ال VB6 وادي العوضي 0 367 16-12-22, 11:24 AM
آخر رد: وادي العوضي
Rainbow [سؤال] تحويل مشروع محمد مسافر 4 707 24-08-22, 03:36 PM
آخر رد: محمد مسافر
  السلام عليكم ورحمة الله وبركاته برجاء المساعدة فى تحويل تقرير اكتف ريبورت ل بى دي اف mhareek 9 2,533 28-11-20, 01:49 PM
آخر رد: sendbad100
  مشكلة عدم الكتابة في خلية الفليكس جريد awidan76 12 3,093 09-08-20, 11:32 AM
آخر رد: awidan76
  تحويل تاريخ الجهاز لفورمات محدد hannileo 1 1,229 16-04-20, 01:12 AM
آخر رد: AL_BRNS
  كيف يمكن تحويل برنامج الVB6 الى EXE اسلام الكبابى 3 1,801 22-03-20, 05:03 PM
آخر رد: اسلام الكبابى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم