TreeCtrl

للرفع

طيب هل السؤال غير واضح

العنوان غير واضح .....

عنوان موضوعك لن يدع احد يدخل للمشاركه ....

حاول قدر الامكان ان يكون عنوان موضوع اوضح ..

بسم الله الرحمن الرحيم

شكرا لك اخي الكريم على التوضيح

ولكن هل لديك فكرة عن السؤال واجابته

او هل تستطيع ان ترشدني الى الطريق

للرفع

أبحث عن تعريب الأدوات يوجد امثلة كثيرة في المنتدى

جرب هذا الكود

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

Private Const WS_EX_LAYOUTRTL = &H400000
Private Const GWL_EXSTYLE = (-20)

Public Sub SetRtoL(Ctl As Control)
Ctl.Visible = False
SetWindowLong Ctl.hwnd, GWL_EXSTYLE, GetWindowLong(Ctl.hwnd, GWL_EXSTYLE) Or WS_EX_LAYOUTRTL
Ctl.Visible = True
End Sub

قم بتمرير اسم الاداة الى الوظيفة SetRtoL فى حدث تحميل الفورم

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني

سابحث عن تعريب الادوات

وبالنسبة للكود الذي ارفقته اخي الكريم فانه لم يقم بفعل اي شئ هل يمكن ان تراجعه من اجلي

اخى الكريم لقد جربته قبل ان اضعه , راجع انت الكود ربما اخطأت عند كتابته وانا سأتأكد مرة اخرى :rolleyes:

لقد تأكدت ان الكود يعمل بدون أى اخطاء , راجع كتابته مرة أخرى

عليك ان تمرر اسم الاداة الى الاجراء SetRtoL فى حدث تحميل الفورم

Private Sub Form_Load()
SetRtoL TreeView1
End Sub

sx1 كتب:

بسم الله الرحمن الرحيم

هذه اول مشاركة لي في قسم الفيجوال

سؤالي بخصوص treeCtrl وهي المسئولة عن العرض بالنظام الشجري المعروف

سؤالي في جعل هذه الشجرة من اليمين وليس من الشمال

لقد رايت في برنامج بالاكسس وحدة نمطية اسمها basRightTree اعتقد انها المسئولة عن جعل الشجرة من اليمين

احتاج لهذه الوحدة التي تفيد في الاكسس والفيجوال على حد سواء

ارجو في النهاية ان اكون قد اوضحت المطلوب

←

بسم الله الرحمن الرحيم

اخي الكريم بارك الله فيك

لم اقصد اخي الكريم ان تتأكد لان الكود به خطا

ولكن قصدت واذا راجعت المشاركة السابقة انها لا تؤثر في برنامج الاكسس حيث اني اقوم بتجربتها فيه

وقصدت هنا منتدى الفيجوال لعدم حصولي على اجابة في اقسام الاكسس ولان هذه الاداة مستخدمة في الفيجوال توقعت ان اجد الاجابة لديكم فهل اطمع اخي الكريم في تحديث البرنامج ليتناسب مع الاكسس

ولقد ارفقت مثال ارجو منك التفضل بتصحيحة وجزاك الله كل الخير

db18.rar

اخ sx1 لقد ارفقت لك مثال عن استخدام دالة right to left ولكني استخدمت معها listview بسبب توفرها لدي حالياً استخدم الدالة مع تغيير listview الى treeview

example for RToL.rar

بسم الله الرحمن الرحيم

بارك الله فيك اخي hussein2005 اخي الكريم رايت مثالك وهو بالفيجوال وهو تمام التمام ولكن ما ارغبه هو تعديل الكود للاكسس

هل يمكنك ان تقوم بتحميل المثال الذي ارفقته في المشاركة الخاصة بي وتعدل عليه اذا امكن

واذا كان الكود ناجح فهل يمكن استعمالة مع ال Tab Control حيث انه دائما في الاكسس تكون من اليسار

للرفع

للرفع

للرفع

مازلت في انتظار جميل ردكم

بسم الله الرحمن الرحيم

للرفع

افيدوني افادكم الله

لا اجد اي رد

رجاء الاهتمام

او حتى الاجابة بان ما اطلبه خطا

اي اجابة

للرفع

للرفع

اخي العزيز اعذرنا على التأخر في الرد ولكن هناك عطل في منظومة الانترنت

بسم الله الرحمن الرحيم

شكرا وبارك الله فيك اخي على الرد

وانا في انتظار الحل ان شاء الله