Input Box

InputBox akan menampilkan message dimana user dapat menginputkan suatu nilai atau message pada form tersebut. Format penggunaannya adalah sebagai berikut:

MyMessage=InputBox(Prompt, Title, default_text, x-position, y-position)

MyMessage adalah tipe data variant yang dideklarasikan sebagai string. Argumen yang tersedia dapat dijelaskan sebagai berikut: 

1. Prompt            :  Pesan yang ditampilkan.
2. Title                :  Judul dari Input Box.
3. default-text     :  Default text yang ditampilkan pada field dimana user dapat menggunakannya atau menggantinya.
4. x-position and y-position   : menunjukkan posisi dimana input box tersebut akan ditampilkan pada form

Tambahkan satu Command lagi pada project yang telah anda buat sebelumnya. Masukan kode berikut ini :

Private Sub Command4_Click()

Dim userMsg As String

   userMsg = InputBox("Apa pesan anda?", "Message Entry Form", _

   "Masukan message anda disini", 500, 700)

   If userMsg <> "" Then

      Label1.Caption = userMsg

   Else

      Label1.Caption = "No Message"

   End If

End Sub

Ketika user meng-klik tombol OK pada Input Box, pada label akan menampilkan message yang telah anda ketik, akan tetapi jika anda meng-klik tombol Cancel maka akan ditampilkan pesan "No Message".

Contoh Program

Contoh berikut ini adalah untuk menerapkan penggunaan MessageBox. Tampilan yang akan dibuat sperti pada gambar 5.4.

 

Gambar  Contoh MessageBox

Langkah-langkah :

1.    Jalankan IDE Visual Basic dan pilihlah project Standart Exe.

2.    Simpanlah project tersebut dengan nama cthPesan.frm untuk form dan cthPesan.vbs untuk projectnya.

3.    Pada form letakkan kontrol seperti pada gambar 5.5.

4.    Edit properti dari kontrol-kontrol seperti tabel 5.4.