Basic Exe Icon Changer เปลี่ยน icon ง่ายๆ

1. เปิด VB6 เลือก new project

2. สิ่งที่ต้องการ 2 textboxes, 2 labels, 1 picture box, และ 3 buttons

3. เข้า Components โดยกด CTRL + T เลือก Microsoft Common Dialog Control box คลิก ok

4. ดับเบิ้ลคลิก browse button ใส่โค้ด

code

[hide=1]

Code:

---

CommonDialog1.DialogTitle = "Please Select Executable"
CommonDialog1.FileName = vbNullString
CommonDialog1.DefaultExt = "exe"
CommonDialog1.Filter = "Executables (*.exe)|*.exe|All Files (*.*)|*.*"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName

---

5. ดับเบิ้ลคลิก Find Icon button ใส่โค้ด

Code:

---

CommonDialog1.DialogTitle = "Please select a icon"
CommonDialog1.FileName = vbNullString
CommonDialog1.DefaultExt = "ico"
CommonDialog1.Filter = "Icon Files (*.ico) | *.ico"
CommonDialog1.ShowOpen
Text2.Text = CommonDialog1.FileName
Picture1.Picture = LoadPicture(CommonDialog1.FileName)

---

6. ดับเบิ้ลคลิก Change Icon button ใส่โค้ด

Code:

---

Call ReplaceIcons(Text2.Text, Text1.Text, vbNullString)

---

7. Add module

[code]Option Explicit
Public Type IMAGE_DOS_HEADER