Cryptonic (05-21-2013),deinemudda012345 (05-20-2013)
Hello guy in this tutorial you gonna learn how to make an icon extractor which extract icons from files and save them, first you must include this on your source code
Code:Dim extractpath As String Dim savepath As String
- 1 Tools we need:
- 3 Buttons
- 2 Textboxs
- 1 PictureBox
- 2 Changing tool text:
- Button1 = Browse File
- Button2 = Save Extracted icon
- Button3 = Extract
- 3 Coding:
Browse Executable Button
Code:Dim s As New OpenFileDialog If s.ShowDialog = Windows.Forms.DialogResult.OK Then PictureBox1.Image = Icon.ExtractAssociatedIcon(s.FileName).ToBitmap() extractpath = s.FileName TextBox1.Text = s.FileName End If
Save Extracted icon
Code:Dim s As New SaveFileDialog If s.ShowDialog = Windows.Forms.DialogResult.OK Then savepath = s.FileName TextBox2.Text = s.FileName End If
Extract
Code:If savepath = Nothing Then MsgBox("Select a path to save the icon first", MsgBoxStyle.Critical, "Select path!") Exit Sub End If If extractpath = Nothing Then MsgBox("Select a path to extract the icon from", MsgBoxStyle.Critical, "Select path!") Exit Sub End If Try Dim bm As New Bitmap(PictureBox1.Image) Dim ico As Icon = Icon.FromHandle(bm.GetHicon) Dim fs As New System****.FileStream(savepath & ".ico", IO.FileMode.CreateNew) ico.Save(fs) fs.Close() Catch ex As Exception MsgBox("A following error occured: " & vbCrLf & vbCrLf & ex.ToString) End Try End Sub
Cryptonic (05-21-2013),deinemudda012345 (05-20-2013)