+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مشكله في بعض النصوص العربية (/showthread.php?tid=19677)
مشكله في بعض النصوص العربية - أيمن الفخراني - 16-03-17
السلام عليكم
مشكلتى عند جلب نص من قاعدة بيانات يحتوي على آيه قرآنيه تظهر في التكست بوكس علامة استفهام بدلا من علامات الوقف
ما السبب وهل هناك حل للمشكله دي واظهار علامات الوقف في التكست بوكس
RE: مشكله في بعض النصوص العربية - sendbad100 - 16-03-17
وعليكم السلام ورحمة الله وبركاته
ممكن تحط مثال صغير
كي نحاول نجد حل
RE: مشكله في بعض النصوص العربية - أيمن الفخراني - 17-03-17
شكرا لك على الاهتمام
هذا مثال اخي في المرفقات
RE: مشكله في بعض النصوص العربية - sendbad100 - 17-03-17
السلام عليكم
اعتذر اخي الكريم
حاولت ولم تفلح كل محاولاتي
سابحث عن طريقة اذا وجدت ساوافيك بها
اتمنى من الاخوة الكرام المساعدة او اقل شيء المحاولة قد تنجح احد الافكار او يجد احدكم حلا ما .
ايضا ارجوا منك اذا وجدت حل ان تضيفه كي تعم الفائدة
RE: مشكله في بعض النصوص العربية - Ahmed_Mansoor - 18-03-17
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , النصوص التي يوجد فيها رموز خاصة يفضل أن تكتبها أو تضعها في أداة الـ RichTextBox وليس الـ TextBox العادي ثم ما يتم حفظه في الحقل هو الخاصية RichTextBox1.TextRTF وليست RichTextBox1.Text وعند عرض البيانات من الحقل لوضعها في الريتش تكست بوكس ضعها في نفس الخاصية بهذا الشكل :
PHP كود :
RichTextBox1.TextRTF = Rs!Text
RE: مشكله في بعض النصوص العربية - أيمن الفخراني - 18-03-17
نفس المشكله أخي تظهر علامة استفهام بدل الرموز
فهمت قصدك أخي
اذا كان لدي قاعدة بيانات كبيره الموضوع حيبقى متعب اني اقوم بالتعديل عليها كلها
RE: مشكله في بعض النصوص العربية - أيمن الفخراني - 18-03-17
وجدت الحل
كود :
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 SubRE: مشكله في بعض النصوص العربية - sendbad100 - 18-03-17
بالتوفيق اخي الكريم
الله يعطيك العافية
RE: مشكله في بعض النصوص العربية - v_2017_6 - 18-03-17
جزاك الله خير أخي أيمن
فكيت لي أزمة Unicode
والشكر لكل من شارك
RE: مشكله في بعض النصوص العربية - Ahmed_Mansoor - 18-03-17
شكرا جزيلا لك أيمن الفخراني على إفادتنا بالحل جزاك الله كل خير .