TreeView شجرة الأصناف

[Guest محمد ابو صهيب]

Option Compare Text
Dim tw As MSComctlLib.TreeView
Dim Tbl, TMP As Variant, n

Private Sub UserForm_Initialize()
  Tbl = Range("A3:E" & [A65000].End(xlUp).Row).Value
  pere = Tbl(1, 1)
  Set tw = Me.MonArbre
  n = UBound(Tbl)
  tw.Nodes.Add(, , "NoeudMat" & pere, Tbl(1, 1)).Expanded = True   ' Racine arbre
  Fils pere, 1
  Call icon_caption
End Sub
Sub Fils(parent, niv)      ' procédure récursive
  For I = 2 To n
    CD = Tbl(I, 2)
    If CD = parent Then
      tw.Nodes.Add("NoeudMat" & parent, tvwChild, "NoeudMat" & Tbl(I, 1), Tbl(I, 1)).Expanded = True
      Fils Tbl(I, 1), niv + 1
    End If
  Next I
End Sub
Private Sub MonArbre_NodeClick(ByVal Node As MSComctlLib.Node)
  If Left(Node.Key, 8) = "NoeudMat" Then
    Me.TX1 = Application.VLookup(Mid(Node.Key, 9), Tbl, 1, False)
    Me.TX2 = Application.VLookup(Mid(Node.Key, 9), Tbl, 2, False)
    Me.TX3 = Application.VLookup(Mid(Node.Key, 9), Tbl, 3, False)
    Me.TX4 = Application.VLookup(Mid(Node.Key, 9), Tbl, 4, False)
    TMP = Application.VLookup(Mid(Node.Key, 9), Tbl, 5, False)
    If TMP <> "" Then
       Me.Image1.Picture = LoadPicture("C:\ASNAF\" & TMP & ".jpg")
    Else
      Me.Image1.Picture = LoadPicture
    End If
  End If
End Sub

Sub icon_caption()
     'Full path of the picture (UNC works too)
    uFile = "C:\ASNAF\ABOU SOHAIB.ico"
    ' Check if the picture file really exists, if not -> termine the sub
    ' Be careful if you have code behind this (maybe goto)
    X = Len(Dir(uFile))
    If X = 0 Then Exit Sub
    'Extract icon from picture file, and put it in the TitleBar
    X = ExtractIconA(0, uFile, 0)
    SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, X
 

End Sub

لاحقا سأبعث الملف...أنا في مرحلة الانتهاء......

تحياتي اليكم الرابط من مركز الخليج

http://www.mrkzgulf.com/do.php?id=498308

http://www.up-00.com/?ggvR

بعد تفكيك الملف يجب تغير مسار الملف ASNAF الى  "C:\ASNAF"    

حتى يشتغل الملف  بشكل صحيح    محمد ابو صهيب

تم تعديل يناير 17, 2017 بواسطه محمد ابو صهيب

[محمد حسن المحمد]

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ..أما بعد:

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

السلام عليكم ورحمة الله وبركاته

ما شاء الله بارك الله أبدعت وأحسنت..

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

لأنه بحق يستحقها بجدارة دون أي مدح أو إطراء...

والسلام عليكم ورحمة الله وبركاته.

[جلال الجمال_ابو أدهم]

محمد ابو صهيب

اخى الفاضل جزاك الله خيرا

فى الانتظار

[Guest محمد ابو صهيب]

السلام عليكم أخي محمد الحسن المحمد لكم وحشة...والله لا أمزح وددت أن اتصل بالرفقاء لكن ...خذفوا بريد الرسائل لا ادري لماذا....كل مرة احب ان اتصل يالرفقة الطيبة ..لكن لا استطيع كان بريد الرسائل بمثابة صلة الرحم بين الإخوة ...للإطمئنان عليهم وتبادل الأراء والمفاهم ...حتى إضطررت للإرسال الأخ جلال الجمال أبو ادهم لتكلم مع فريق الإداري لأرجاع بريد الرسائل الخاص بالمنتدى...أرشدني الى الأخ الفاضل محمد طاهر ...بما أنه المسؤول الأول بالمنتدى بطرح المشكل...حتى استحيييت من نفسي بأن أطلب هذا الطلب .....

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

لا تحرقن من المعروف شىء......عسى ان يكتب الخير في صحفتك.......

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

كما ترون اضرنا كتابة رسائل خاصة من محرر النصوص مع ان الرسائل تكون خاصة مع الرفقاء .....و التعليقات تكون عامة مع عامة الرفقاء.....اي في الأمانة العلمية....

الحمدلله أنكم بخير وعلى خير ....كل من الأصدقاء الذين نحبهم ويحبنا في الله ....

اخوكم محمد ابو صهيب....

[ياسر خليل أبو البراء]

بسم الله ما شاء الله أخي العزيز محمد أبو صهيب

موضوعاتك في قمة الجمال والروعة .. بارك الله فيك وجزاك الله كل خير

[hany elsawy1]

السلام عليكم

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

عايز اعمل اكسيل للشغل بمواصفات معينة ومش عارف

اكتب لشخص معين للتواصل

انا مستخدم حديث

ارجو التواصل

 

1 minute ago, hany elsawy1 said:

السلام عليكم

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

عايز اعمل اكسيل للشغل بمواصفات معينة ومش عارف

اكتب لشخص معين للتواصل

انا مستخدم حديث

ارجو التواصل

 

14 hours ago, محمد حسن المحمد said:

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ..أما بعد:

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

السلام عليكم ورحمة الله وبركاته

ما شاء الله بارك الله أبدعت وأحسنت..

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

لأنه بحق يستحقها بجدارة دون أي مدح أو إطراء...

والسلام عليكم ورحمة الله وبركاته.

استاذ محمد حسن 

حضرتك ممكن تتواصل معايا

تم تعديل يناير 18, 2017 بواسطه hany elsawy1

[محمد حسن المحمد]

استاذ محمد حسن 

حضرتك ممكن تتواصل معايا

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

الحقيقة التي يعلمها الكثيرون من الأساتذة الكرام أنني مبتدئ في هذا البحر الزاخر ...وما قدمني بينهم إلا عاطفة الأبوة والأخوة التي أحسها تجاههم ..

أما إن كنت تريد معرفة العلم على أصوله فاطرق أبواب أربابه ولا تمل وهم لن يبخلوا لأنه مجال لا مجال للبخل به ....وهل يرضى أن يحوز على رضى الناس ويغضب ربه بكتمان العلم

وكيف سينتقل العلم إلى الأجيال القادمة في حال كتمانه.

والسلام عليكم ورحمة الله وبركاته.