[عبد الله]

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

إخواني وجدت موضوع على هذا الرابط - http://vb4arb.com/vb/showthread.php?2139 -

يتكلم عن الخدمات ولكن الكود الأخير لم يعمل معي ولم يتعرف الفيجوال على كلمة ServiceController

فما البديل عنها " اعمل على فيجوال بيسك 2010 " ؟

وكذلك السؤال الذي بعده وهو كيفية جلب أسماء الخدمات ووضعها في DataGridView أو ListView والتحكم بها ؟

وأخيراً عندما أريد عمل تصفية لبعض الخدمات بحيث أجلب من كان في أسمها كلمة name أو من كان في وصفها كلمة .Net

والتحكم بها من خلال إيقافها أو حذفها أو تشغيلها.

[Aly El-Haddad]

السلام عليكم و رحمة الله و بركاته،
المثال يعمل لكن أضف إلى الـReferences
System.ServiceProcess
و طبعاً أعمل لها Import في أول سطر من الكود

بخصوص طلبك الثاني فالـClass ServiceController يتيح لك ذلك.

[عبد الله]

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

أشكرك أخي علي الحداد على التوضيح المهم ، وفعلاً أستطعت عرض جميع الخدمات في

DataGridView ( ولم استطع عرضها في ListView )

لكن السؤال المهم الآن هو كيف لي بتحديد عمودان أو ثلاثة للعرض وليس عرض جميع الخيارات ؟

ثم كيف لي بــ

عمل تصفية لبعض الخدمات ؟

[learning.net]

اخى الكريم
لعرض ال services فى Datagridview
اكتب هذا الكود فى اى حذث تريده

كود :

Dim services() As ServiceController
        services = ServiceController.GetServices()

        DataGridView1.DataSource = services

ولاظهار عمود واحد او اكثر اكتب هذا الكود

كود :

Dim services() As ServiceController
        services = ServiceController.GetServices()

        Dim sv = From servic In services
                 Select servic.DisplayName, servic.ServiceName

        DataGridView1.DataSource = sv.ToList

هذا يظهر عمودين...ويمكنك ان تختار اى عامود ليظهر

[عبد الله]

أخي ليرننج دوت نت في الشفرة الثانية التي عرضتها بمشاركتك :

يظهر لي خطأ في السطر الثالث في الكلمة الأخيرة وهي services ، فما المشكلة وما الحل ؟

تم الحل بتحويل المشروع إلى الإصدار 3.5 من .net

طيب الآن كيف لي بعمل فلترة لهذه الخدمات بحيث أجلب فقط من كان في اسمها حرف a مثلاً ؟

[learning.net]

Dim services() As ServiceController
services = ServiceController.GetServices()

Dim sv = From servic In services
Where servic.ServiceName.Contains("a")
Select servic

DataGridView1.DataSource = sv.ToList
هذا لعرض كل الخدمات التى اسمها يحتوى على حرف a
ويمكنك ان تغير ما تشاء من اعمده وتغير الحروف اللتى تختارها

[Aly El-Haddad]

من بعد إذن أخي learning.net، أنا حابب أن أضع هذا المثال البسيط (في المرفقات)

[learning.net]

مثال رائع اخى Aly El-Haddad
مشكور

[فاتن]

يسلمو على المثال الرائع

[عبد الله]

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

بارك الله في الجميع.