Penggunaan string replace pada vb6

Penggunaan string replace pada vb6 biasanya untuk mengganti kata-kata yang jorok, berbau pornografi, dan kata-kata kasar, string Replace ini dapat dimasukkan pada hasil dari input yang sudah diketikkan dan ketika diklik Submit maka hasil yang keluar akan berbeda.

dibawah ini contoh penggunaan string Replace yang digunakan untuk mengeluarkan hasil yang berbeda dengan yang diketikkan pada text1, lihat langkah-langkah dibawah ini:

1. Buatlah form dengan 1 text, 1 label dan 1 button lihat seperti gambar dibawah ini:

 

2. klik 2 kali pada form1 dan masukkan kode ini:

Private Sub Command1_Click()
Dim str As String
str = Replace(Text1, "bangsat", "hebat")
Label1 = str
End Sub

Private Sub Text1_Click()
Text1 = ""
End Sub

 Kemudian test run program yang sedang dibuat dengan meng klik tanda play yang berada dibagian atas maka ketika diketikkan semisal bangsat loe maka yang keluar di label1 adalah hebat loe, lihat gambar dibawah ini: