منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : سؤال في كيفية جلب الخدمات Services ووضعها في DataGridView
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله وبركاته

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

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

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

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

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

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

بخصوص طلبك الثاني فالـClass ServiceController يتيح لك ذلك.
وعليكم السلام ورحمة الله وبركاته

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

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

ثم كيف لي بــ
عمل تصفية لبعض الخدمات ؟
اخى الكريم
لعرض ال 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 مثلاً ؟
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
ويمكنك ان تغير ما تشاء من اعمده وتغير الحروف اللتى تختارها
من بعد إذن أخي learning.net، أنا حابب أن أضع هذا المثال البسيط (في المرفقات)
مثال رائع اخى Aly El-Haddad
مشكور
يسلمو على المثال الرائع
أشكركم يا أخوان على الأستجابة في طرح حلول للمسألة ، وجزاك الله خير أخي علي الحداد على المثال الرائع.

بارك الله في الجميع.
الصفحات : 1 2