Membuat Tool Message Box Java Script menggunakan VB 6.0

Written By δικα ςταΓκεγ on Jumat, 13 Januari 2012 | 06.52

Oke langsung saja gan, :D saya rasa sudah jelas dengan judul di atas, yang belum jelas silahkan bertanya :D

1. Buka Vb 6.0
2. New Project Standard EXE

3. Tambahkan 2 buah TextBox & 2 buah CommandButton

4. Copas code berikut :



Private Sub Command1_Click()

Dim code1 As String

    code1 = ""
    code1 = code1 & "<SCRIPT language='JavaScript'>alert("""
    code1 = code1 & Text1.Text
    code1 = code1 & """"
    code1 = code1 & ");</SCRIPT>"
        
Text2.Text = code1
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub