Bila kita perlu meminta user untuk memasukkan suatu nilai, kita dapat memakai menggunakan InputBox.
InputBox merukapan suatu kotak dialog dengan pesan tertentu yang lazimnya merupakan petunjuk isian, menanti user memasukkan nilai dan mengembalikan string hasil input.
Untuk lebih jelasnya, mari kita lihat teladan berikut.
UI:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Choose..."
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = InputBox("Your favorite color is...", "Colors")
If str.Length > 0 Then
TextBox1.Text = str
End If
End Sub
End Class
Runtime:
Kita juga dapat menambahkan nilai default untuk input box dengan cara selaku berikut:
Dim str As String = InputBox("Your favorite color is...", "Colors", "Red")
Input box mampu dipakai untuk input string yang sangat sederhana. Untuk input yang lebih kompleks saya langsung lazimnya lebih menentukan menciptakan form dialog sendiri. Kelemahan input box yang paling biasa adalah tidak bisa membedakaan dikala user menekan tombol Cancel atau menginput data string kosong.
Click here if you like this article.
Sumber http://rani-irsan.blogspot.com
EmoticonEmoticon