مثال لعرض الشجرة

[أبو هادي]

السلام عليكم

مثال 2 في 1 .

Form2 مثال للشجرة مطبق على دليل محاسبي .

Form1 مثال بسيط لترجمة الأسماء .

تحياتي .

Treectrl.zip

[امير عاطف]

مثال رائع مثل صاحبه :)

[رضا عقيل]

مثال رائع

لكن صاحبه أروع :)

هذا المثال أبحث عنه منذ فتره جزاك الله عنى وعنا خير الجزاء أخى أبو هادي

[أبو هادي]

السلام عليكم

الحدث المرتبط بالعقدة الموجودة على الشجرة :

Private Sub TreeView1_NodeClick(ByVal Node As Object)

  If Node.Children Then

    MsgBox Node.Child.Text

  End If

End Sub

تحياتي .

[امير عاطف]

السؤال للأخ rudwan :

أريد مثلا عندما أنقر على اسم الحساب الفرعي ( العقدة الابن ) أن يفتح لي نموذج آخر يعرض بيانات تعريفية بذلك الحساب ,

فما هي ياترى تسمية تلك العقدة الابن ؟ و كيف نستطيع التعامل معها ؟

و لك خالص التحية و الشكر

[امير عاطف]

الرد لأستاذنا أبو هادي :

السلام عليكم

الأخ رضوان .. آمل أن يكون الكود التالي هو المطلوب :

Private Sub TreeView1_NodeClick(ByVal Node As Object)

  Dim Pos As Integer

  

  If Node.Index > 1 Then

    MsgBox TreeView1.SelectedItem, , Node.Parent

  End If

  

  Pos = InStr(1, TreeView1.SelectedItem, "..") - 1

  If Pos > 0 Then

    If Left(TreeView1.SelectedItem, Pos) = "1299999" Then

      DoCmd.OpenForm "Form1"

    End If

  End If

End Sub

تحياتي .

[امير عاطف]

الرد للأخ rudwan :

الشكر الجزيل لك يا أستاذ أبو هادي , و هذا بالضبط ما أبحث عنه .

و لكن لدي ا ستفساران لو سمحت :

الأول : هل بعض المعاملات الخاصة بالبنية الشجرية غير معرفة في الأكسس ؟ حيث لا حظت أن بعض الأكواد التي أرفقتها في المثال لم تظهر في صندوق المساعدة أثناء محاولة اعادة الكتابة مثل :

TreeView1.SelectedItem, , Node.Parent

TreeView1.Nodes.Add(, , "A", "Root") f

فأين نجد المساعدة حول استخدام هذه المعاملات مستقبلا .

السؤال الثاني :

أعرف أنني أثقلت عليكم , و لكن هل من الممكن لو تفضلتم شرح بسيط عن متى أستطيع استخدام الأحداث التالية , حيث أنها غير متوفرة على لائحة مساعدة الاكسس :

TreeView1_OLESetData

TreeView1_OLEStartDrag

TreeView1_OLEGiveFeedback

TreeView1_OLEDragOver

TreeView1_OLEDragDrop

TreeView1_OLECompleteDrag

TreeView1_Collapse

TreeView1_AfterLabelEdit

TreeView1_Expand

[امير عاطف]

الرد لأستاذنا ابو هادي :

السلام عليكم

أخي الفاضل ..

لا يمكن عرض العناصر للـ ActiveX Contols كما هي في الأدوات الأساسية التابعة للأكسس .

كل الأحداث التي أدرجتها بمشاركتك جميعا لم استخدمها من قبل أبدا .

حتى الأداة نفسها لم أقم باستخدامها قط . هي فقط مرة واحدة التي قرأت عن بعض المعلومات عنها قبل فترة طويلة عندما قمت بتقديم هذا المثال لأحد المشاريع الجماعية بمنتدى الفريق العربي للبرمجة ولم أرجع له أي المثال مرة أخرى .

عموما الأداة المستخدمة بالمثال الآن هي :

Microsoft Tree View Control, Version 6.0 (sp4)

وملف العون التابع له cmctl198.chm .

كما توجد أداة ثانية بإسم :

Microsoft Tree View Control, Version 5.0 (sp2)

وملف العون التابع له vbcmn96.hlp .

طبعا ملفي العون غير متوفرين لدي حاول أن تبحث عنهما وأن تزودنا بهما في حال وجدتهما :) .

وقد اعتمدت على ملف عون ثالث مرفق هو أقرب إلى الأداة الثانية ولكن يكفي لفهم الكثير عن الأداة الأولى حيث الإختلاف بينهما طفيف .

تحياتي .

Comctl1.zip

[امير عاطف]

الرد للأخ rudwan :

شكرا جزيلا للاستاذ الفاضل أبو هادي , حيث أفاد و أجاد

[أبو هادي]

السلام عليكم

كود من الأخ Voodoo من الفريق العربي منتدى الـ VB هل من يستطيع تكييفه لمثالنا أعلاه ؟ .

Option Explicit


Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long


Private Sub PrintTree()

Dim TreeDC As Long

TreeDC = GetDC(TreeView1.hwnd)

Printer.Print ""

BitBlt Printer.hdc, 0, 0, TreeView1.Width / 15, TreeView1.Height / 15, TreeDC, 0, 0, vbSrcCopy

Printer.EndDoc


End Sub

نسيت أن أنوه أن هذا الكود لطباعة الشجرة :d .

تحياتي .

تم تعديل أكتوبر 9, 2003 بواسطه أبو هادي