Membuat InputBox di VB.NET

Membuat InputBox di VB.NET

Pada artikel ini kita akan membuat program sederhana yaitu program input box

seperti biasa buka VB.NET

Buat Project baru dengan cara : File->New Project->beri nama "Program ke-dua saya"->pilih Windows Forms Application->OK

tampilan akan seperti berikut :

 

Di bagian Toolbox sebelah kanan atas,tambahkan satu button,beri nama button tersebut "buka aku" dengan cara dibagian properties "Text" lalu beri nama.

Click 2 kali Button tersebut dan masukan coding sebagai berikut :

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim x As String 'membuat x sebagai variable String

        x = InputBox("Masukan kata : vbnetsite.blogspot.com", "Masuk") 'bagian dimana inputbox dibuat

        If x = "vbnetsite.blogspot.com" Then 'bila memasukan vbnetsite.blogspot.com 

            MessageBox.Show("Success") 'pesan muncul success

            System.Diagnostics.Process.Start("http://vbnetsite.blogspot.com") 'membuka laman http://vbnetsite.blogspot.com

        Else

            MessageBox.Show("It's Wrong") 'pesan muncul jika salah memasukan site tersebut

        End If

    End Sub

End Class