الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في تقبل اللغة العربية

مغلق
بدأه net. في 29 مايو 2003 · 3 رد · 819 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

بعد كتابتي للكود التالي : حتى يتم إدخال البيانات باللغة العربية دون الحاجة لـ

Shift + Alt 

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

flags = 1

pwzklid = "00000401"

flg_var = LoadKeyboardLayout(pwzklid, flags)

أجد نفسي الآن غير قادر على الكتابة باللغة العربية عند كتابة الأكواد

فتظهر لي كتابات غريبة

وأردت من هذا ا السؤال الإستفادة في حل هذه المشكلة

ولكن الأهم في هذا الرابط

http://www.arabteam2000.com/vb/showthread....&threadid=28740

#2

لا اعرف كيف يمكنني مساعدتك .. هل تاكدت من نوع الخط المستخدم ؟

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#3

تأكد من ذلك ......كيف أحل هذه المشكلة ؟؟

#4

مافي ولا خطأ في الكود مثلا

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

Private Sub Text1_Change()

flags = 1

pwzklid = "00000401"

flg_var = LoadKeyboardLayout(pwzklid, flags)



End Sub

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…