تقييم الموضوع :
  • 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 ك ب / التحميلات : 65)
الرد }}}
تم الشكر بواسطة:
#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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  اظهار كرستال ريبورت MOHAMMED ALZWI 0 318 24-08-23, 02:47 PM
آخر رد: MOHAMMED ALZWI
Wink كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2010 RADOS 1 397 09-08-23, 09:39 PM
آخر رد: أبووسم
  اظهار السعر اسفل الصنف atefkhalf2004 2 397 28-07-23, 03:03 AM
آخر رد: atefkhalf2004
  اظهار الاسماء المختلفة من 2 داتا جريد فيو yosif 2 508 14-04-23, 03:50 PM
آخر رد: yosif
  [سؤال] اظهار اداة باكورد على فيجوال بيسك 2008؟ ؟ طالب تقنية المعلومات it 1 493 17-02-23, 10:16 PM
آخر رد: asmarsou
  [سؤال] اظهار بيانات عنصر محدد من DataGrdView في فورم ثاني HUNTER25 9 868 19-12-22, 05:55 PM
آخر رد: HUNTER25
Rainbow [كود] كود اظهار تنبيه عند البحث بأقل من 3 حروف محمد مسافر 3 641 04-12-22, 10:10 AM
آخر رد: أبو خالد الشكري
  [VB.NET] اظهار كلمة المرور ali_ahmed12 2 568 26-11-22, 04:53 PM
آخر رد: ali_ahmed12
  كيفية اظهار رسالة داخل الفيجوال بيزيك واختفائها تلقائياَ بعد فترة ابو نور الهدى 3 1,840 23-11-22, 11:29 PM
آخر رد: Mostafa201255411

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


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