[أيمن الفخراني]

السلام عليكم
مشكلتى عند جلب نص من قاعدة بيانات يحتوي على آيه قرآنيه تظهر في التكست بوكس علامة استفهام بدلا من علامات الوقف
 
ما السبب وهل هناك حل للمشكله دي واظهار علامات الوقف في التكست بوكس

[sendbad100]

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

ممكن تحط مثال صغير
كي نحاول نجد حل

[أيمن الفخراني]

شكرا لك على الاهتمام
هذا مثال اخي في المرفقات

[sendbad100]

السلام عليكم
اعتذر اخي الكريم    

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

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

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

ايضا ارجوا منك اذا وجدت حل  ان تضيفه كي تعم الفائدة

[Ahmed_Mansoor]

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

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

PHP كود :

RichTextBox1.TextRTF = Rs!Text 


[أيمن الفخراني]

نفس المشكله أخي تظهر علامة استفهام بدل الرموز
فهمت قصدك أخي
اذا كان لدي قاعدة بيانات كبيره الموضوع  حيبقى متعب اني اقوم بالتعديل عليها كلها

[أيمن الفخراني]

وجدت الحل

كود :

 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

شكرا لكم وجزاكم الله خيراا

[sendbad100]

بالتوفيق اخي الكريم

الله يعطيك العافية

[v_2017_6]

جزاك الله خير أخي أيمن

فكيت لي أزمة Unicode

والشكر لكل من شارك

[Ahmed_Mansoor]

شكرا جزيلا لك أيمن الفخراني على إفادتنا بالحل جزاك الله كل خير .