Kali ini, kita akan membuat sebuah program yang dimana akan merubah Icon Program Executable dengan Icon yang kita inginkan dengan menggunakan Visual Basic 6. Didalam pembuatan program ini kita membutuhkan peralatan pembantu seperti Microsoft Common Dialog Control 6.0(SP3).
Cara pembuatan program :
Buat form baru, masukan 3 buah CommandButton, 2 buah TextBox, 1 buah dan CommonDialog. Dan buatlah 2 buah Module ke dalam project yang akan kita buat ini. Namailah Module tersebut dengan Nama UbahIcon.bas dan PE.bas.
Cara penambahan komponen Microsoft Common Dialog Control 6.0(SP3) yaitu :
- Menu Project
- Components
- Beri tanda di Microsoft Common Dialog Control 6.0(SP3)
- Ok
Tampilan dari program yang akan kita buat; kurang lebih seperti dibawah ini :
Akan tetapi saya tidak akan membeberkan scriptnya disini karena terlalu panjang dan akan banyak memakan halaman, maka saya hanya akan membeberkan beberapa script saja yang ada didalam form. Jika anda ingin mengetahui lebih banyak lagi silahkan download Source Code lengkapnya di sini :
Script di dalam form :
Private Sub Command1_Click()
Commondialog1.FileName=””
Commondialog1.Filter = "EXE Files (*.exe)|*.exe"
Commondialog1.ShowOpen
If Commondialog1.FileName <> "" Then
Text1.Text = Commondialog1.FileName
End if
End Sub
Private Sub Command2_Click()
Commondialog1.FileName=””
Commondialog1.Filter = "Icon Files (*.ico)|*.ico"
Commondialog1.ShowOpen
If Commondialog1.FileName <> "" Then
Text2.Text = Commondialog1.FileName
End if
End Sub
Private Sub Command3_Click()
Dim eRR As String
ReplaceIcons Text2.Text, Text1.Text, eRR
MsgBox "Icon Changed", , "Icon Changer"
End Sub
Nah sudah selesai program yang kita buat, sekarang kita tinggal jalankan program yang telah kita buat bersama tadi…. Jika kurang jelas atau mengalami kesulitan didalam script diatas, anda bisa mendownload Aplikasi program Membuat Shortcut beserta source codenya di sini.
