18-03-17, 12:43 AM (آخر تعديل لهذه المشاركة : 18-03-17, 12:44 AM {2} بواسطة Ahmed_Mansoor.)
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , النصوص التي يوجد فيها رموز خاصة يفضل أن تكتبها أو تضعها في أداة الـ RichTextBox وليس الـ TextBox العادي ثم ما يتم حفظه في الحقل هو الخاصية RichTextBox1.TextRTF وليست RichTextBox1.Text وعند عرض البيانات من الحقل لوضعها في الريتش تكست بوكس ضعها في نفس الخاصية بهذا الشكل :
18-03-17, 03:15 PM (آخر تعديل لهذه المشاركة : 18-03-17, 03:17 PM {2} بواسطة أيمن الفخراني.)
وجدت الحل
كود :
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)