31-08-14, 01:05 AM
اريد icon Process تظهر فى PictureBox قمت بصنع هذا المثال
لاكن دامن حصل على icon الخطاء
كود :
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