Mengganti Nama Recycle Bin Dengan VB

Trik ini digunakan untuk mengganti nama Recycle Bin, yang semestinya windows tidak menyediakan fasilitas untuk mengganti nama Recycle Bin kecuali lewat Regristy.

1. Pada jendela New Project pilih Windows Application. Lalu letakkan satu komponen TextBox, dan satu komponen button. Atur posisi seperti gambar berikut ini.

Gambar 10.4 menambah dan mengatur posisi komponen.

1. Kemudian untuk pengaturan properties adna lihat table dibawah ini.

Tabel 10.3 mengatur properties komponen.

Nama Control	Properties	Nilai
Button 1	Text	Ganti Nama Recycle Bin

 

1. Selanjutnya anda klik ganda pada Button1, lalu ketikan kode program seperti di bawah ini.
   

1 2 3 4

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim GantiNama As String Dim Key As Microsoft.Win32.RegistryKey GantiNama = TextBox1.Text Key = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("CLSID\{645FF040-081-101B-9F08-00AA002F954E}", True) Key.SetValue("LocalizedString", GantiNama) End Sub

 

Keterang Kode: Baris 1 - 4 Fungsi ini akan Mengganti nama Recycle Bin, dangan nama baru sesuai dengan kata yang diketikan ke kolom TextBox1

 

1. Untuk tampilan pada kotak dialog Registry Editor, akan berubah seperti gambar di bawah ini.
   

 

Gambar 10.5 Registry Editor Sub Key Recycle Bin.

1. Kemudian untuk tampilan pada Recycle Bin terlihat seperti gambar di bawah ini
   

 

Gambar 10.6 Nama Recycle Bin berubah menjadi tempat sampah qw.

 

Oke guys selamat mencoba …!!!!!!