لمسات وأفكار على شجرة الحسابات

[ledoledo]

الأخوة المحترمين أساتذة الأكسيس السلام عليكم

مطلوب مساعدتكم فى تعديل النموذج المرفق كالآتى :

الطلب الاول :  text1 تساوى القيمة المختارة فى الشجرة عند الضغط - بالكود بدون ربطها بالجدول

الطلب الثاني : عند اختيار قيمة في الشجرة تظلل باللون الازرق وعند نقل التركيز يتغير لون الخلفية الى رمادى ، هل يمكن تغيير اللون الرمادى الى الازرق ؟

ولكم جزيل الشكر

DB2.mdb

[ابوخليل]

عليكم السلام

حسب فهمي لطلبك اضفت الى مثالك ثلاثة اسطر

TreeView2.SelectedItem.BackColor = 255
TreeView2.SelectedItem.ForeColor = vbGreen
Text1 = Node.Text

وهذه طريقة اخرى لتلوين العقد

Dim X As Integer
X = TreeView2.SelectedItem.Index
TreeView2.Nodes.Item(currindex + X).BackColor = vbBlue
TreeView2.Nodes.Item(currindex + X).ForeColor = 255

DB3.mdb

[ledoledo]

سلمت يداك استاذنا ابوخليل اشكرك جزيل الشكر هذا هو المطلوب تمام

[ledoledo]

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

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

[ابوخليل]

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

TreeView2.SelectedItem.BackColor = 16777215

الرقم هذا يعني اللون الابيض

DB4.mdb

[ledoledo]

اشكرك جدا ما قصرت يا غالي استاذنا ابوخليل تحياتي ولكن عند العودة مرة اخرى تظل اخر عقدة مظللة

هل هناك كود يلغى تظليل كل العقد عند الكليك

حفظك الله

تم تعديل يونيو 23, 2020 بواسطه ledoledo

[ledoledo]

استخدمت هذا الكود

Private Sub TreeView2_GotFocus()
On Error Resume Next
TreeView2.SelectedItem.BackColor = 16777215
TreeView2.SelectedItem.ForeColor = 0
End Sub

[ابوخليل]

تمام .. اعتقد يفي بالغرض

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

[ledoledo]

اشكرك جدا استاذي العزيز 

[ledoledo]

الاخ الكريم ابوخليل لو بالامكان تعطيني كود الوصول لقيمة محددة 

اذا اردت مثلا عند الضغط على زر  ان يذهب الاختيار الى العقدة التى تحمل القيمة 14 او القيمة التى بداخلها فكيف يكتب الكود ؟

 

[ابوخليل]

بحثت في مكتبتي ووجدت لك هذا المثال الوافي

ملحوظة :

قمت بتغيير العنوان بما يتناسب مع المحتوى

 

DB5.mdb

[ledoledo]

شكرا استاذي ابوخليل ساعدتني كثيرا تحياتي لشخصك الكريم