كود للtreeview

فين الرودود يا شباب اعتقد السؤال مش صعب بس انا مش عرفة :lol:

طيب هو الوضع الحالى ايه معاكى أصلا ؟

يعنى ايه اللى بيحصل من غير الكود اللى انتى عاوزاه ؟

مبحصلش حاجة بس انا عايز كود يفتح اول عنصر فى treeview

يفتح ؟؟ يعنى Open ؟؟

طيب ... هو بيعمل Focus على ايه أول ما بيفتح ؟

مثلاً لو كان الكود هذا يعني إضافة عناصر للأداة

Dim N As Node
Set N = TreeView1.Nodes.Add
N.Text = "asa"
N.Key = "as"
Dim X As Node
Set X = TreeView1.Nodes.Add
X.Text = "asa"
X.Key = "aa"

ونريد تحديد X سيكون الكود هذا

TreeView1.SelectedItem = X

أتمنى أني أفدتك :blush:

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

TreeView1.SelectedItem = TreeView1.Nodes.Item(1)

إستبدل 1 بأي رقم عنصر في القائمة

اقرئى هذا الموضوع

http://msdn.microsoft.com/en-us/library/aa733703(v=vs.60).aspx

اقتباس

TreeView1.SelectedItem = TreeView1.Nodes.Item(1)

الشجرة عندى مش مترقمة انا عايزة كود افتح بى عنصر فى الشجرة

يعنى عندى العنصر الاساسى

كتب ده العنصر الاساسى

الفروع

احياء

رياضيات

علوم

انا عايزة كود لما ادوس عليه يضغط على عنصر العلوم فتظر معلوماته فى التكست بوكس

يعنى كود استدعاء عنصر من الشجرة

:sad:

لا ، لم يكن فصدي أنهم مرقمين ولكن كان قصدي أن تحسبي من 1 إلى العنصر الذي تريدين أن يحدده

الكود فإذا كان العنصر رقم 10 تغيير رقم 1 في الكود إلى 10

أو مثلاً لو كان هذا العنصر في الأداة معرف بأنه Nodes كما في أول المشاركة

سيصبح الكود هكذا :

TreeView1.SelectedItem = X

مع إستبدال X بالعنصر المعرف :happy:

اقتباس

TreeView1.SelectedItem = TreeView1.Nodes.Item(1)

فى حدث اسمه NodeClick

Private Sub TV_NodeClick(ByVal node As MSComctlLib.node)

لو ترفقين مثال يكون أفضل :blush:

وسنعدل عليه إن شاء الله :cool:

الرابط الخاص بي

الرابط اهو اخى جزاك الله خير

ولو ممكن اضع ليبل يظهر فيه اسم العنصر عند الضغط عليه

كود فتح التصنيف دوال الوقت والتاريخ

TreeView1.Nodes.Item(4).Expanded = True

وللتحديد الابن DataDiff

TreeView1.SelectedItem = TreeView1.Nodes.Item(43)

اقتباس

ولو ممكن اضع ليبل يظهر فيه اسم العنصر عند الضغط عليه

لو أردتي النص الخاص بهم :

Label1.Caption = TreeView1.SelectedItem.Text

لو أردتي الكي الخاص بالعنصر المضغوط عليه :

Label1.Caption = TreeView1.SelectedItem.Key

السلام عليكم

اقتباس

Label1.Caption = TreeView1.SelectedItem.Text

بالنسبة للكود دة الحمد لله شغال تمام

بس بردة لحد دلوقا مفيش اجابة على سؤالى

بالنسبة الكود دى

اقتباس

TreeView1.SelectedItem = TreeView1.Nodes.Item(43)

يفتح الجزر الراسية

الكود دة لا يعمل

اقتباس

TreeView1.SelectedItem = TreeView1.Nodes.Item(43)

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

الكود صحيح ولكن ضعي بعده هذا الكود

TreeView1.SetFocus

ولكنه فقط سيحدده لن يضغط عليه لذلك لن تظهر البيانات في مربعات النصوص

حسناً ... كما ذكر الاخ bahbah فإن لكل عنصر في الـ TreeView رقم مسلسل (Index)

ولتحديد العنصر رقم (x) نستخدم الكود:

TreeView1.Nodes(x).Selected = True

ولأن الخاصية HideSelection = True و التحديد (Focus) على اداه غير الشجرة فلن يظهر ان العنصر تم تحديده

لذلك نجعل التحديد على الشجرة بإستخدام الكود:

TreeView1.SetFocus

حسناً .. الان نريد تنفيذ الكود الذي يحدث عند الضغط على عنصر في الشجرة (وهو عرض البيانات في الـ Text)

فهل نكتب الكود مرة أخرى برغم انه موجود ؟

لا .. فقط نقوم بإستدعاءه بإستخدام الكود:

TreeView1_NodeClick TreeView1.Nodes(x)

وهنا نقول للبرنامج اذهب للكود المكوب تحت الامر TreeView1_NodeClick ونفذه بإعتبار ان البارامتر Node في الامر (وهو العنصر الذي تم الضغط عليه) يساوي (x)

طبعاً نضع بدلاً من x رقم العنصر في الكودين

حسناً , الان كيف نعرف رقم عنصر معين

هذا يكون في الحدث TreeView1_NodeClick اي عند الضغط على عنصر في الشجرة نقوم بوضع رقمه في Text1 بإستخدام الكود :

Text1.Text = Node.Index

تم عمل هذا في المثال ..

TreeView.rar

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

بعد كدة هنتظر تكون موجود فى المنتدى لاضع سؤالى :)

سؤال تانى لو سمحت عندى فى قاعدة البيانات انا بستخدم اكسس 2003 مساحة الحقل لا تقبل الا عدد معين من الكلمات

وارى فى بعض قواد البيانات الاخرى الحقل يتسع لكمية هائلة من الكلمات اكتر من 255 حرف

فما العمل ؟ :mellow:

الاخ bahbah إجابته كانت صحيحة لكني فقط قمت بتوضيحها ..

بالنسبة للسؤال :

استخدمي نوع الحقل Memo حيث يقبل عدد غير محدود من الحروف

محمد مصطفي غريب كتب:

الاخ bahbah إجابته كانت صحيحة لكني فقط قمت بتوضيحها ..

بالنسبة للسؤال :

استخدمي نوع الحقل Memo حيث يقبل عدد غير محدود من الحروف

شكراً لك على توضيح إجابتي :blush:

وكلامك صح أيضاً ....

Memo بالإنجليزي و مذكرة بالعربي

لأن أكسس الخاص بي عربي :happy: