CurcunaForum.Org - Inputbox

Kullanıcıdan bilgi almak istediğimiz zaman bu fonksiyonu kullanabiliriz. Bilgi giriş penceresinden girilen bilgi String(karakter) türünde olacaktır.

Kullanımı: Değişken=Inputbox("Başlık") şeklindedir.

veri=InputBox("Adınızı girin")

Sayısal olarak kullanılacak bilgini VAL fonksiyonu yardımıyla sayısal değere dönüştürülmesi gereklidir.

Sıra No = Val(InputBox("Sıra No Giriniz"))

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

Example:
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