درس في طريقة التعامل مع ListView

[شوقي ربيع]

السلام عليكم

الاخ  ابو ادم

لا عليك اخي الكريم تعبكم راحة بالنسبة لي 

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

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

اما طلبك الثاني ارجو ان تعود للمرفق الاول  ستجد فيه شرح تنسيقات اليست

وان تلبس عليك في امر ما نحن في الخدمة

[ضاحي الغريب]

أخي الحبيب // شوقي ربيع (( ربيع المنتدي ))

وملك الحركات

بارك الله فيك

فعلا شرحك مبسط وجميل وعن نفسي استفد منه 

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

وما اجمل من طروحاتك الجميلة والمفيدة 

تقبل تحياتي

[شوقي ربيع]

السلام عليكم

الاخ الحبيب ضاحي الغريب

يسعدني ويشرفني مرورك العطر

ولك مني  جزيل الشكر لكلماتك الجميلة

والحمد لله لاستفادتك من الموضوع فافادة الغير هي غايتنا

تقبل تحياتي وشكري

[علي سالم 75]

انا الملف لا يعمل عندي

ممكن تعطيني الحزمة الخاصة والتي من ضمنها

ListView

 

لكي اضيفها عندي في مكتبة الاكواد

[saad abed]

اخى شوقى ربيع

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

عملت ستب اوفيس 2007 مخصوص  دون جدوى

عدم وجود listviewضمن toolbox

كذلك toolboxتضغظ كليك يمين تظهر

 

addional controls

تضغط عليها فلا حراك

اين الخلل اخى الحبيب عندى

[شوقي ربيع]

السلام عليكم

الاخ علي سالم

الملف مصمم على اوفيس 2007

ان كنت تستخدم اوفيس 2007 سيشتغل عندك البرنامج عادي  اما ادا لم يشتغل معك فدلك راجع الى التحديث الاخير للونداوز 

ان عملت رسترينج لنصلم لتاريخ 24/4/2013 سيعمل مع البرنامج

[شوقي ربيع]

السلام عليكم

الاخ سعد عابد

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

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

http://www.officena.net/ib/index.php?showtopic=46367&hl=

الا اني لم اجد الحل فضطررت الى اعادت تثبيت الونداوز من جديد

تقبل تحياتي وشكري 

[ali abdu2010]

عجزت عن شكرك 

دمت مبدعا 

ماشاء الله ربنا يحفظك ويبارك فيك 

[على]

الاخ والاستاذ شوقي ربيع

ماشاء الله عليك

تمت التجربة واكثر من رائع بارك الله فيط وزادك علما

اخي الكريم

هل من الممكن شرح مبسط لما تم لجعل البيانات من اليمين لليسار

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

معلش ارهقتك بطلباتي لكن كرمك هو الذي شجعني

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

ممكن اخي ترفق ملف تجربتك لتعم الفائدة

لانني حاولت وصادفتنى بعض الاخطاء

[sasaelgenius]

جامد جدا

[sasaelgenius]

مشكور جدا على هذا العمل

[محمود ربيع]

استاذنا القدير / شوقي ربيع

عمل اكثر من رائع

وجاري تحديث نسخة الويندوز للوصول الي عنصر الليست فيو

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

وزادك من علمه وفضله

[arsalan]

في 5/6/2013 at 12:46, شوقي ربيع said:

هذا الكود للبحث عن البينات في العمود الاول ةاضهار النتائج في اليست فيو

Private Sub Rabie_SearchNom()
Dim M
listviwlist
With Me.ListView1
    With .ColumnHeaders
        .Clear
        
       .Add , , Feuil1.Range("a1"), 246
       
    End With
     .View = lvwReport
    .Gridlines = True
    .FullRowSelect = True
    .HideColumnHeaders = True
    .LabelEdit = 1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
End With

ListView1.ListItems.Clear
M = TextBox1.Text
If M = "" Then GoTo 1
With Feuil1
LR = .Cells(Rows.Count, 1).End(xlUp).Row
Set A = Feuil1.Range("a2:a" & LR).Find(M)
If Not A Is Nothing Then
F = A.Address
Do
If Application.WorksheetFunction.Search(M, A, 1) = 1 Then

With ListView1
.ListItems.Add , , A
End With

End If
Set A = Feuil1.Range("a2:a" & LR).FindNext(A)
Loop While Not A Is Nothing And A.Address <> F
End If
End With

1 End Sub