السلام عليكم
مشكلتى عند جلب نص من قاعدة بيانات يحتوي على آيه قرآنيه تظهر في التكست بوكس علامة استفهام بدلا من علامات الوقف
ما السبب وهل هناك حل للمشكله دي واظهار علامات الوقف في التكست بوكس
وعليكم السلام ورحمة الله وبركاته
ممكن تحط مثال صغير
كي نحاول نجد حل
شكرا لك على الاهتمام
هذا مثال اخي في المرفقات
السلام عليكم
اعتذر اخي الكريم
حاولت ولم تفلح كل محاولاتي
سابحث عن طريقة اذا وجدت ساوافيك بها
اتمنى من الاخوة الكرام المساعدة او اقل شيء المحاولة قد تنجح احد الافكار او يجد احدكم حلا ما .
ايضا ارجوا منك اذا وجدت حل ان تضيفه كي تعم الفائدة
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , النصوص التي يوجد فيها رموز خاصة يفضل أن تكتبها أو تضعها في أداة الـ 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
شكرا لكم وجزاكم الله خيراا
بالتوفيق اخي الكريم
الله يعطيك العافية
جزاك الله خير أخي أيمن
فكيت لي أزمة Unicode
والشكر لكل من شارك
شكرا جزيلا لك أيمن الفخراني على إفادتنا بالحل جزاك الله كل خير .