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)
End Sub