كيفية إضافة حدث عند نقر فرع شجرة في TreeView

أخي الكريم حارث

السلام عليكم

ما تقصده هو أن هذين الحدثين ليسا موجودين في صفحة الخصائص في أكسس لكن هذا لا يعني أبداً أن هذه الأداة ليس لها هاتين الخاصيتين ولكن هذا من عيوب صفحة الخصائص في الأكسس

ضع أحد الكودين التاليين في الوحدة النمطية للنموذج

Private Sub TreeView1_DblClick()



MsgBox "www"



End Sub

Private Sub TreeView1_Click()



MsgBox "www"



End Sub

تحياتي

أخوك / أبو هاجر

جزاك الله خير .

ما كنت أتوقع إمكانية استخدام الحدثين الذين أوردتهما بهذه السهولة

وبالنسبة لحاجتي فقد جربت حدث عند النقر المزدوج على عنصر التحكم الشجرة الذي أوردته وأدى الغرض الذي أريده تماما، جعل الله ذلك في موازين حسناتك .

لكن طمعا في مزيد من الفائدة أود الإيضاح أني كنت أقصد النقر على فرع الشجرة وليس على الشجرة نفسها ، أي على node كما في الكود التالي من التعليمات

Private Sub TreeView1_NodeClick(ByVal Node As Node)
	Form1.Caption = "Index = " & Node.Index & " Text:" & Node.Text
End Sub

ملف التعليمات المقصود موجود في الرابط

http://www.arabteam2000.com/vb/showthread....=&threadid=9059

بعنوان : مطلوب ملف comctl1.hlp

أخي الكريم حارث

السلام عليكم

الحقيقة أن هذه هي المرة الأولى التي أتعامل فيها مع هذه الأداة لكنني أقيسها على أدوات أخري ولا أدري ما هي الـ Node التي تتحدث عنها

لكن إذا كانت عبارة عن كائن يتم إنشاؤه فأتصور أنه يجب تعريفها ككائن عام ثم محاولة تنفيذ حدث باسم الكائن الذي تم تعريفه كـ Node

تحياتي

أخوك / أبو هاجر

الأخ حارث

هناك أداتين للـ TreeView ويوجد اختلافات طفيفة بينهما .

عموما هذا الحدث المطلوب للأداتين :

Private Sub TreeView1_NodeClick(ByVal Node As Object)

  Me.Caption = "Index = " & Node.Index & " Text:" & Node.Text

End Sub



Private Sub TreeView1_NodeClick(ByVal Node As Node)

  Me.Caption = "Index = " & Node.Index & " Text:" & Node.Text

End Sub

تحياتي

جزاكم الله خير جميعا

والمطلوب هو الكود الأول الذي أورده الأستاذ أبو هادي

ByVal Node As Object

جعل الله ذلك في موازين حسناته

نرجو التكرم بمثال واضح عن TreeView

انظر القاعدة الجماعية للمحاسبة

في قسم المشاريع الجماعية والدروس