Yaptığınız uygulamalarda
kullanıcıya ne olup ne bittiğini ifade etmek için msgbox fonksiyonu
kullanılır.
Örneğin uygulamadaki command1 tuşuna basıldığında formun arkaplanı
siyah renkte oluyorsa bunu kullanıcıya msgbox fonksiyonu ile ifade
edebiliriz...
Nasıl Kullanılır?
MSGBOX Fonksiyonu aşağıdaki şekilde kullanılır:
Msgbox "Bilgi",Düğmeler ve Şekiller,"Başlık"
Bilgi:Bilgi kısmına kullanıcıya vermek istediğiniz bilgiyi
yazarsınız...
Düğmeler ve Şekiller:Düğmeler ve şekiller kısmına msgbox üzerinde
yer alacak düğmeler ve şekiller seçilir.
Örneğin msgbox üzerinde Yes ve No düğmelerinin bulunmasını
istiyorsanız vbYesNo komutunu kullanmalısınız.
Şekiller ise soru işareti, bilgi işareti, ünlem ve çarpı
işaretlerinden oluşur.
Örneğin msgbox üzerinde soru işaretinin çıkmasını istiyorsanız
vbQuestion komutunu kullanmalısınız.
KOMUTLAR
Düğmeler
vbYesNo:Evet Hayır
vbOkCancel:Tamam İptal
vbOKOnly:Tamam
vbAbortRetryIgnore:Durdur Yeniden Dene Yoksay
vbRetryCancel:Yeniden Dene Yoksay
vbYesNoCancel:Evet hayır İptal
İşaretler
vbInformation:Bilgi İşareti
vbQuestion:Soru İşareti
vbExclamation:Ünlem İşareti
vbCritical:Çarpı İşareti
Başlık
Başlık kısmına msgbox ın başlığı yazılır
If ile MsgBox
kullanıcı evete bastığında programdan çıkması hayıra bastığında
çıkmaması için If ifadesini kullanırız.
İlk önce msgbox ı bir değişkene atayalım. Bu durumda
Msgbox "Bilgi",Düğmeler ve Şekiller,"Başlık"
değil
Msgbox ("Bilgi",Düğmeler ve Şekiller,"Başlık") olarak kullanırız.
mesela x değişkenine atayalım.
şöyle olur:
x = Msgbox ("Bilgi",Düğmeler ve Şekiller,"Başlık")
Örneği uygulayalım:
İlk olarak forma bir adet command buton ekleyelim.caption'ını ise
Çıkış olarak değiştirelim.
Command1 nesnesine çift tıklayarak kod bölümünü açalım.ve oraya
aşağıdaki kodları yazalım:
Private Sub Command1_Click ( )
x=msgbox("Çıkmak istiyor musunuz?",vbYesNo + vbInformation,"Çıkış
Onayı")
If x = vbYes Then
Unload Me
End If
End Sub