تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله في بعض النصوص العربية
#1
السلام عليكم
مشكلتى عند جلب نص من قاعدة بيانات يحتوي على آيه قرآنيه تظهر في التكست بوكس علامة استفهام بدلا من علامات الوقف
 
ما السبب وهل هناك حل للمشكله دي واظهار علامات الوقف في التكست بوكس
الرد
تم الشكر بواسطة: v_2017_6
#2
وعليكم السلام ورحمة الله وبركاته

ممكن تحط مثال صغير
كي نحاول نجد حل
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
#3
شكرا لك على الاهتمام
هذا مثال اخي في المرفقات


الملفات المرفقة
.rar   New folder (2).rar (الحجم : 9.26 ك ب / التحميلات : 43)
الرد
تم الشكر بواسطة: v_2017_6
#4
السلام عليكم
اعتذر اخي الكريم    

حاولت  ولم تفلح كل محاولاتي  

سابحث عن طريقة اذا وجدت ساوافيك بها

اتمنى من الاخوة الكرام   المساعدة او اقل شيء المحاولة  قد تنجح احد الافكار او يجد احدكم حلا  ما .

ايضا ارجوا منك اذا وجدت حل  ان تضيفه كي تعم الفائدة
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
#5
وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم , النصوص التي يوجد فيها رموز خاصة يفضل أن تكتبها أو تضعها في أداة الـ RichTextBox وليس الـ TextBox العادي ثم ما يتم حفظه في الحقل هو الخاصية RichTextBox1.TextRTF وليست RichTextBox1.Text  وعند عرض البيانات من الحقل لوضعها في الريتش تكست بوكس ضعها في نفس الخاصية بهذا الشكل :

PHP كود :
RichTextBox1.TextRTF Rs!Text 
الرد
#6
نفس المشكله أخي تظهر علامة استفهام بدل الرموز
فهمت قصدك أخي
اذا كان لدي قاعدة بيانات كبيره الموضوع  حيبقى متعب اني اقوم بالتعديل عليها كلها
الرد
تم الشكر بواسطة: v_2017_6
#7
وجدت الحل
كود :
 Private Type SETTEXTEX
    Flags    As Long
    CodePage As Long
End Type

Private Declare Function SendMessageW Lib "user32.dll" (ByVal hWnd As Long, ByVal uMsg As Long, ByRef wParam As Any, ByVal lParam As Long) As Long

Private Sub Command1_Click()
If Rs.State = adStateOpen Then Rs.Close
Rs.Open "Select * From table1 ", DB, adOpenDynamic, adLockOptimistic
 Const EM_SETTEXTEX = &H461&, ST_UNICODE = 8&, TristateTrue = -1&
    Dim STE As SETTEXTEX

    STE.Flags = ST_UNICODE
    STE.CodePage = 1200& 'Unicode
'ملحوظة غير خط الريتش بوكس الى خط آخر غير Traditional Arabic
' Tahoma مثلا
 SendMessageW RichTextBox1.hWnd, EM_SETTEXTEX, STE, StrPtr(Rs!Text)

End Sub
شكرا لكم وجزاكم الله خيراا
الرد
#8
بالتوفيق اخي الكريم

الله يعطيك العافية
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
تم الشكر بواسطة: Ahmed_Mansoor , v_2017_6 , أيمن الفخراني
#9
جزاك الله خير أخي أيمن

فكيت لي أزمة Unicode

والشكر لكل من شارك
الرد
تم الشكر بواسطة: Ahmed_Mansoor , sendbad100 , أيمن الفخراني
#10
شكرا جزيلا لك أيمن الفخراني على إفادتنا بالحل جزاك الله كل خير .
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكله مع ادوات ocx على وندوز 8.1 Visual_Basic 6 259 27-11-17, 01:38 PM
آخر رد: Ashraf Elafify
  [سؤال] كيفية معالجة مشكلة ظهور اللغة العربية على شكل رموز Emad Nashaat 1 384 08-06-17, 05:16 AM
آخر رد: Amir_Alzubidy
  مشكله اتصال vb6 مع Excel sad 1 178 02-04-17, 12:12 AM
آخر رد: Ahmed_Mansoor
  موضوع العصر : دعم العربية في الأنظمة التي لا تدعم العربية السندبااد 5 1,910 22-02-17, 12:34 AM
آخر رد: sendbad100
  مشكلة اللغة العربية مع برامج فجوال بيسك Dano Pro 18 9,093 02-02-17, 12:33 AM
آخر رد: مساعدة
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 2,585 25-11-16, 12:23 AM
آخر رد: fkwinna
  [سؤال] بخصوص اللغة العربية في عمور2016 1 500 27-09-16, 08:29 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] عندى مشكلة فى كتابة اللغة العربية فى inputbox Acc.MohamedSamir 3 1,177 14-12-15, 01:42 PM
آخر رد: Ashraf Elafify
  [سؤال] مشكله فى اداة Calendar aboezzat84 4 1,080 22-08-15, 10:06 AM
آخر رد: aboezzat84
  عندي مشكله في الكود جمعه عريفه 4 940 21-05-14, 09:00 PM
آخر رد: جمعه عريفه

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


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