Giriş kutusu kullanıcıdan bir değeri almayı sağlar. InputBox fonksiyonu bir iletişim kutusu görüntüleyerek kullanıcının bir değer girmesini sağlar. InpuBox fonksiyonu kullanıcıdan aldığı değeri programa geri döndürür.
Değişken = InputBox (“mesaj”, başlık, varsayım, xpoz, ypoz)
ÖRNEK 1
Private Sub Command1_Click()
Dim ad As String
ad = InputBox("Şehir Adını Giriniz : ?")
Print ad
End Sub
Görüldüğü gibi ekranın tam ortasında bir bilgi giriş ekranı çıktı ve sol üst köşesinde projenin adı yazıyor. Giriş kutusunun adını değiştirmek için aşağıdaki örnek yazılır.
ÖRNEK 2
Private Sub Command1_Click()
Dim ad As String
ad = InputBox("Şehir Adını Giriniz : ?", " Giriş Kutusu Başlığı")
Print ad
End Sub
Sol üst köşesinde bu sefer bizim yazdığımız “Giriş Kutusu Başlığı” yazıyor. Giriş kutusunun üzerinde bazen default olarak bir şey yazmasını isteriz, örneğin şehir adlarını giriyoruz ve en çok girilen şehir İstanbul olduğu için onun default olmasını isteyebiliriz. Bunun için aşağıdaki örneği yazarız.
ÖRNEK 3
Private Sub Command1_Click()
Dim ad As String
ad = InputBox("Şehir Adını Giriniz : ?", " Giriş Kutusu Başlığı", "İstanbul")
Print ad
End Sub
Eğer aksi bir durum belirtmediysek açılan InputBox kutusu ekranın tam ortasında açılır. Bazen açılan bu kutuları kullanıcıların ekranı daha iyi görebilmesi için değişik yerlere koyabiliriz. Bunun için aşağıdaki örneği yazarız.
ÖRNEK 4
Private Sub Command1_Click()
Dim ad As String
ad = InputBox("Şehir Adını Giriniz : ?", " Giriş Kutusu Başlığı", " İstanbul ", 3500, 500)
Print ad
End Sub
ÖRNEK 5
İki tane arka arkaya sayı girilerek girilen iki sayının toplamı MsgBox ile bize bildirilsin. MsgBox penceresinde information da olsun.
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = InputBox("1. sayıyı giriniz")
b = InputBox("2. sayıyı giriniz")
c = a + b
MsgBox("iki sayının toplamı = " & c & ,vbinformation)
End Sub
NOT : MesajBox yazımında kullanılan & (ampersant) işareti girilen değeri mesajbox kutusuna taşır. |
