تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لأخذ الأيكون من ملفexe
#1
كاتب الموضوع : egyption-coder


كود :
[SIZE=1]
[SIZE=4][color=blue]Dim a As New OpenFileDialog[/color][/SIZE]
[SIZE=4][color=blue]Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As IntPtr, ByVal lpszExeFileName As String, ByVal nIconIndex As Integer) As IntPtr[/color][/SIZE]
[SIZE=4][color=blue]Private Sub opebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opebtn.Click[/color][/SIZE]
[SIZE=4][color=blue]namelbl.Text = "File name : " & a.FileName[/color][/SIZE]
[SIZE=4][color=blue]a.Filter = "Win32 PE Files (*.Exe,*.Dll,*.Scr,*.cpl)|*.exe;*.dll;*.scr;*.cpl"[/color][/SIZE]
[SIZE=4][color=blue]If a.ShowDialog = Windows.Forms.DialogResult.OK Then[/color][/SIZE]
[SIZE=4][color=blue]Dim Handler As IntPtr[/color][/SIZE]
[SIZE=4][color=blue]Handler = ExtractIcon(Me.Handle, a.FileName, -1)[/color][/SIZE]
[SIZE=4][color=blue]If Handler.ToInt32 = 0 Then[/color][/SIZE]
[SIZE=4][color=blue]MsgBox("No icon in this File sorry.....", MsgBoxStyle.Exclamation, "Error")[/color][/SIZE]
[SIZE=4][color=blue]Exit Sub[/color][/SIZE]
[SIZE=4][color=blue]End If[/color][/SIZE]
[SIZE=4][color=blue]total.Text = "Total icons : " & Handler.ToInt32[/color][/SIZE]
[SIZE=4][color=blue]img.Images.Clear()[/color][/SIZE]
[SIZE=4][color=blue]list.Items.Clear()[/color][/SIZE]
[SIZE=4][color=blue]Dim i As Integer[/color][/SIZE]
[SIZE=4][color=blue]i = Handler.ToInt32[/color][/SIZE]
[SIZE=4][color=blue]prog.Maximum = i[/color][/SIZE]
[SIZE=4][color=blue]For i = 1 To i[/color][/SIZE]
[SIZE=4][color=blue]Handler = ExtractIcon(Me.Handle, a.FileName, i - 1)[/color][/SIZE]
[SIZE=4][color=blue]img.Images.Add(i, System.Drawing.Icon.FromHandle(Handler))[/color][/SIZE]
[SIZE=4][color=blue]list.Items.Add("", Val(i - 1).ToString, i - 1)[/color][/SIZE]
[SIZE=4][color=blue]prog.Value = i[/color][/SIZE]
[SIZE=4][color=blue]Next[/color][/SIZE]
[SIZE=4][color=blue]End If[/color][/SIZE]
[/SIZE]
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود لتغيير خلفية قرص و الأيكون الخاص به RaggiTech 0 257 17-10-12, 07:08 PM
آخر رد: RaggiTech
  كود لأخذ ايقونة ملف و استخدامها لبرنامجك RaggiTech 0 224 17-10-12, 07:05 PM
آخر رد: RaggiTech

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


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