السلام عليكم ورحمة الله وبركاته
هذه طريقة بسيطة وسهلة لطريقة المرآة للــ Form و التي تجعله من اليمين إلى اليسار < RightToLeft >
كما في الــ Windows العربي .
أولاً : ضع الكود التالي في قسم التصريحات العامة .
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Const WS_EX_LAYOUTRTL = &H400000 Const GWL_EXSTYLE = (-20)
ثانياً : هذا الكود في حدث تحميل النموذج ((( Form_Load )))
Private Sub form_load() Dim oldlong As Long oldlong = GetWindowLong(Form1.hwnd, GWL_EXSTYLE) SetWindowLong Form1.hwnd, GWL_EXSTYLE, oldlong Or WS_EX_LAYOUTRTL Form1.Refresh End Sub
ملاحظة : هذا الكود يصلح لتطبيق نفس العملية لأي أداة أخرى غير الــ Form فقط استبدل اسم الــ Form باسم الاداة .
و لا تنسونا من صالح دعائكم . :rolleyes:
