nputBox

Visual Basic programının icrası esnasından klavyeden bilgi girmek amacıyla kullanılır.Buradan gelecek değer string türü bir değerdireğer girilecek bu değeri sayısal bir hesapta kullanmak istiyorsak Val(String) komutuyla sayısal değere çevirmeliyiz.Kullanımı Değişken=Inputbox("Başlık") şeklindedir.
Örnek: Standart.exe olarak açtığınız formunuza 1 adet text.box koyun ve textbox koyduğunuz projenin üzerinde herhangi biryere çift tıklayarak (Private Sub Form_Load() ve End Sub ifadelerini otomatikman elde edebilmek için forma çift tıkladık) aşağıdaki ifadeleri yazın.
Private Sub Form_Load()
a = InputBox("İsminizi Giriniz...")
Text1.Text = a
End Sub
Yani inputboxprograma dışarıdan bir veri girmek istediğimizde imdadımıza koşuyor.MsgBox ı da anlatınca ikisini de kapsayan bir örnek daha yapacağız. MsgBox

Visual Basic programının çalışması sırasında elde edilen bazı sonuçları ve kullanıcıyı uyaracak gerekli bazı mesajları ekrana taşımamıza yardımcı olur. Kullanımı: A=MsgBox("Mesaj"Görünüm"başlık") şeklindedir.Görünüm ve başlık kısımları kullanılmasada olur.Bu kısımlar kullanılmazsa sadece MsgBox "mesjimiz" şeklinde kullanımımız doğru olanıdır.Görünüm kısmında tanımlayacağımız komutlarla okcancelyesno gibi kontrol butonları koyabileceğiz.Mesela bazen Kullanıcıya ....... yapmak istermisiniz diye sorarsınızevet mi hayır mı deyip demediğini bu gürünümün değişkene yollayacağı ifadeyle anlarız.Ama görünüm kısmına Hiçbirşey yazmazsak sadece ok butonu olacaktır mesaj kutumuzda.Görünümde; VbOkOnlyVbOkCancelVbYesNoVbYesNoCancel... gibi tanımlamalarla mesaj kutumuza 1den fazla buton koyabiliriz.Kullanıcının tıklayacağı buton A değişkenine VbokVbCancel... gibi yansiyacaktir.Daha sonra işlemlerimizi bunlara göre yapacaksakilerki derslerimizde göreceğimizif kontrolüyle bunları yönlendirebiliriz.
Örnek: Standart.exe olarak açtığınız formunuza 1 adet text.box koyun ve programın tasarım aşamasındayken forma çift tıklayarak (Private Sub Form_Load() ve End Sub ifadelerini otomatikman elde edebilmek için) aşağıdaki ifadeleri yazınız. Programınızı çalıştırdığınızda direk isminizi soracaksonra isminizi text kutusuna yazacaktext kutusunda yazılı olan isminizin doğru olup olmadığını soracak eğer eveti tıkladıysanız program ekranına geri dönecekhayırı tıkladıysanız 1 uyarı mesajı daha gönderecektir.
Private Sub Form_Load()
a = InputBox("İsminizi Giriniz...")
Text1.Text = a
Form1.Show

b = MsgBox("İsminiz Doğrumu?" vbYesNo "Sorgu Ekranı")
If b = vbNo Then
MsgBox ("Yanlış Olması İmkansız")
End If
End Sub

paylaşım için teşekkürler..