Hello Guyz today i will tell u how to create an .EXE file Icon changer in Vb
1st of all open vb and create new Project
Now from Tool Box add following things
2 textboxes
3 buttons
1 openfiledialog
button1 = browse .exe file
button 2 = browse icon
button 3= Change Icon
textbox1 = .exe file location
textbox2 = ico file location
Now lets Start Coding
first double click on form1 and before
Public Class Form1
add this Code
Imports System.IOImports fLaSh.Dissembler
now Double Click on Button 1 and add this code
OpenFileDialog1.DefaultExt = "exe"
OpenFileDialog1.Filter = "exe files (*.exe)|*.exe"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
TextBox1.Text = String.Empty
TextBox1.Text = OpenFileDialog1.FileName
End If
then Double Click on button2 and add this code
OpenFileDialog1.DefaultExt = "ico"
OpenFileDialog1.Filter = "icon files (*.ico)|*.ico"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
TextBox2.Text = String.Empty
TextBox2.Text = OpenFileDialog1.FileName
End If
Now double Click on button3 and add this code
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Dim oIconFilenathu As New IconFile(TextBox2.Text)
Dim groupIconResource As GroupIconResource = oIconFilenathu.ConvertToGroupIconResource()
groupIconResource.SaveTo(TextBox1.Text)
MsgBox("Icon Changed Successfully!")your Icon Changer Is Ready
Comment Here if u have difficulty :)
not's work.
ReplyDelete