تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] اظهار Icon Process
#1
اريد icon Process تظهر فى PictureBox قمت بصنع هذا المثال
كود :
Dim img As New ImageList
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        With ListView1
            .Clear()
            .View = View.Details
            .Columns.Add("Process name", 250)
            .Columns.Add("ProcessID", 80)
            .GridLines = True
            .SmallImageList = img
        End With
        For Each p In Process.GetProcesses
            With ListView1.Items.Add(p.ProcessName)
                Dim pid = p.Id
                .SubItems.Add(pid)
                Try
                    Dim ico As Icon = Icon.ExtractAssociatedIcon(p.MainModule.FileName)
                    img.Images.Add(pid.ToString, ico)
                    .ImageKey = pid.ToString
                Catch ex As Exception

                End Try
            End With
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        PictureBox1.Image = img.Images(ListView1.FocusedItem.Index)
    End Sub
لاكن دامن حصل على icon الخطاء
الرد }}}}
تم الشكر بواسطة:
#2
أخي جربت المثال والأيقونة بتظهر في أداة PictureBox1 بدون مشاكل فين الخطأ ؟؟؟

لاظهار الأيقونات بجودة أفضل ضع هذه الجزئية في كود الزر Button1 قبل With ListView1 :
كود :
With img
            .ColorDepth = ColorDepth.Depth32Bit
            .ImageSize = New Size(16, 16)
        End With

***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة: محمود اكرم , أسامة
#3
جزيل الشكر
مفيدة فكرة جودة أفضل
الرد }}}}
تم الشكر بواسطة:
#4
شكرآ اخى لاكن هذا لم يحل المشكله بعد يوجد خطاء فى هذه السطر
كود :
PictureBox1.Image = img.Images(ListView1.FocusedItem.Index)
اكثر icon


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#5
طيب ارفق البرنامج
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#6
تفضل اخى


الملفات المرفقة
.rar   WindowsApplication2.rar (الحجم : 42.1 ك ب / التحميلات : 46)
الرد }}}}
تم الشكر بواسطة:
#7
آسف أخي ... برنامجك مصمم بفيجوال بيسك أعلى من اللي عندي (عندي نسخة 2010)

لعل الأعضاء يساعدوك
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#8
ولا يهمك أخى و شكرآ على المساعده Smile
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم،
كود :
Public Class Form1
    Dim img As New ImageList
    Dim indices As New Dictionary(Of Integer, Integer)
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        With img
            .ColorDepth = ColorDepth.Depth32Bit
            .ImageSize = New Size(16, 16)
        End With
        With ListView1
            .Clear()
            .View = View.Details
            .Columns.Add("Process name", 250)
            .Columns.Add("ProcessID", 80)
            .GridLines = True
            .SmallImageList = img
        End With
        For x As Integer = 0 To Process.GetProcesses.Length - 1
            Dim p As Process = Process.GetProcesses()(x)
            With ListView1.Items.Add(p.ProcessName)
                Dim pid = p.Id
                .SubItems.Add(pid)
                Try
                    Dim ico As Icon = Icon.ExtractAssociatedIcon(p.MainModule.FileName)
                    img.Images.Add(pid.ToString, ico)
                    .ImageKey = pid.ToString
                Catch
                Finally
                    indices.Add(x, img.Images.Count - 1)
                End Try
            End With
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        PictureBox1.Image = img.Images(indices(ListView1.FocusedItem.Index))
    End Sub
End Class
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يتم اظهار كلمة مدين اذاكان المبلغ موجب ودائن اذا كان المبلغ سالب بجوار Textbox السيد الجوهري 1 86 08-01-18, 02:06 PM
آخر رد: nooralcown
  مساعده لدي فورم اريد اظهار الموديل بشرط النوع مراد بورجي 8 162 02-01-18, 07:58 PM
آخر رد: karimx
  اظهار بيانات تقرير hglogtd 4 114 10-12-17, 10:29 PM
آخر رد: hglogtd
  اظهار الاحداثيات في ال Google Earth khaled12345 4 184 08-12-17, 01:37 PM
آخر رد: khaled12345
  اظهار اسم اليوم حسب التاريخ aftfm 5 175 06-12-17, 01:35 PM
آخر رد: sendbad100
  شو سبب اظهار الرساله المرفقه لكم m.shubair 1 87 14-11-17, 01:18 AM
آخر رد: sendbad100
  [سؤال] اظهار ايقونة على سطح المكتب حين الانتهاء من تنفيذ الكود ابو روضة 10 288 09-11-17, 12:02 PM
آخر رد: ابو روضة
  مساعده في اظهار البيانات من قاعدة البيانات الى الرسم التوضيحي Rabeea Qbaha 2 103 30-10-17, 11:57 PM
آخر رد: sendbad100
  هل استطيع اظهار الالة الحاسبة الخاصه بالجهاز بكود برمجي samawi 4 124 25-10-17, 01:52 AM
آخر رد: samawi
  [سؤال] اظهار واخفاء صورتين لسه مبتدئ 2 89 15-10-17, 05:39 PM
آخر رد: لسه مبتدئ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم