Visual Basic 6.0 Bilgi Giriş Kutuları
Bu ay bilgi girişlerinde kullanacağımız "InputBox" fonksiyonunu inceleyeceğiz.
Haydi inceleyelim!
Geçen ay bilgi çıkışları için kullandığımız "MsgBox" fonksiyonunu incelemiştik. Bu ay ise bilgi girişlerinde kullanacağımız "InputBox" fonksiyonunu inceleyeceğiz. "InputBox" fonksiyonunda önemli bir nokta girilen bilgi VB tarafından "String" yani karakter olarak kabul edilir eğer girilen bilgi string bir değer ise bunu "Val(string değer)" komutu ile sayısal değere dönüştürmeliyiz.
Kullanım Şekli;
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
| prompt | Zorunlu. İletişim kutusunda gösterilecek mesajı belirler ve en fazla 1024 karakter olabilir. Eğer birden fazla satır olacaksa aynı MsgBox fonksiyonunda olduğu gibi mesajımıza Chr(13) & Chr(10) kodunu ekleriz. |
| title | İsteğe Bağlı.Başlık çubuğunda kullanılan değerdir. Eğer kullanmazsanız varsayılan olarak projenizin ismi kullanılır |
| default | İsteğe Bağlı. Text Box da varsayılan olarak bir cevap görüntülenir eğer kullanılmazsa Text Box boş olarak görüntülenir |
| xpos | İsteğe Bağlı. Giriş kutusunun ekrandaki yatay pozisyonunu belirler ve sayısal bir değer olmak zorundadır. |
| ypos | İsteğe Bağlı. Giriş kutusunun ekrandaki dikey pozisyonunu belirler ve sayısal bir değer olmak zorundadır. |
| helpfile | İsteğe Bağlı. yardım dosyasının yerini belirler eğer bu değer tanımlanmışsa "Context" değeri mutlaka tanımlanmalıdır. |
| context | İsteğe Bağlı. Sayısal bir değer alır yardım konularının numaralarını gösterir |
Örnek:
Private Sub Form_Load()
Dim Vize1, Vize2, Vize3 As Byte
Dim Final, Sonuc As Integer
Vize1 = Val(InputBox("1.Vize Sonucu", "Not Hesaplama"))
Vize2 = Val(InputBox("2.Vize Sonucu", "Not Hesaplama"))
Vize3 = Val(InputBox("3.Vize Sonucu", "Not Hesaplama"))
Final = Val(InputBox("Final Sonucu", "Not Hesaplama"))
Sonuc = Vize1 + Vize2 + Vize3 + 4 * Final
MsgBox Sonuc, vbInformation + vbOKOnly, "Sınav Sonucu"
End Sub
Arkadaşlar sizin de farkettiğiniz gibi "InputBox" fonksiyonu ile "MsgBox" fonksiyonun kullanımları birbirine oldukça yakındır. Geçen ay "MsgBox" fonksiyonunu detaylı bir şekilde incelediğimiz için bu ayki yazımda "InputBox" konusunu burada bitiriyorum
Gelecek ay görüşmek üzere
