Membuat InputBox di VB.NET

[+] Post Title :

Membuat InputBox di VB.NET

[+] Date : Saturday, March 16, 2013
[+] Author : Unknown
[+] Link : http://sulastrijuliana.blogspot.com/2013/03/membuat-inputbox-di-vbnet.html
[+] Type : VB.NET

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 



 Untuk menjalankan program tersebut tekan F5