InputBox
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ğerdir,eğ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 inputbox,programa 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 ok,cancel,yes,no gibi kontrol butonları
koyabileceğiz.Mesela bazen Kullanıcıya ....... yapmak istermisiniz
diye sorarsınız,evet 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; VbOkOnly,VbOkCancel,VbYesNo,VbYesNoCancel...
gibi tanımlamalarla mesaj kutumuza 1den fazla buton
koyabiliriz.Kullanıcının tıklayacağı buton A değişkenine Vbok,VbCancel...
gibi yansiyacaktir.Daha sonra işlemlerimizi bunlara göre
yapacaksak,ilerki derslerimizde göreceğimiz,if 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
soracak,sonra isminizi text kutusuna yazacak,text kutusunda yazılı
olan isminizin doğru olup olmadığını soracak eğer eveti
tıkladıysanız program ekranına geri dönecek,hayı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
|