Mesaj kutusu (MsgBox) özellikleri ve kullanımı

Kullanıcıyı bilgilendirmeyi sağlar. Kullanıcıya elde edilen bilgi ve uyarı mesajlarını bildirmekte ya da seçimin onaylanmasını sağlamak için kullanılır.
Windows’ta en aşina olduğumuz şey program akışı sırasında bilgi vermek ve onaylatmak için karşımıza çıkan mesaj kutularıdır.Örneğin bir programdan çıkarken “kaydedilsin mi?” gibi bir soru ve duruma göre evet,hayır,iptal vb. seçenekleri olan bir kutu çıkar.Bu kutu windows tarafından sağlanan standart bir kutudur ve windows altındaki İngilizce bir mesajın altındaki evet,hayır gibi Türkçe seçenekleri vardır.Bu kutuları programın herhangi bir yerinde kullanıcıya mesaj vermek ve onay almak için iki değişik formatta kullanılabilir.

Sadece kullanıcıya mesaj vermek için kullanılacaksa aşağıdaki gibi kullanılır.
Msgbox(“dosya bulunamadı”)
Bu durumda mesajla birlikte tamam düğmesi olan pencere çıkar.

Örneğin programdan çıkarken iyi günler mesajı vermek için form kapanırken meydana gelen Unload olayına aşağıdaki kodu yazınız.

Option Explicit
Private Sub Form_Unload(Cancel As Integer)
MsgBox ("iyi günler")
End Sub


Mesaj kutuları bir çok durumda sadece bir mesaj vermek için değil aynı zamanda kullanıcıdan onay almak içinde kullanılır.Kullanıcının mesaj kutularında verebileceği cevaplar için uygun düğmeleri belirlemek ve verilerin cevabını da öğrenebilmek içinde msgbox fonksiyonu aşağıdaki formatta kullanılır.
Cevap=msgbox(mesaj,[tip],[pencere başlığı],[helpfile,context])

Mesaj:
Kutu içerine yazılmasını istediğimiz mesaj.
Pencere başlığı:
Pencerenin başlığına yazılacak metin.



Helpfile,context:
Bu iki özellikle bir yardım dosyası ismi ve bir konu numarası belirlenebilir.Böylece kullanıcının mesaj kutusunda yardım istendiğinde ilgili help dosyası açılır ve ilgili konu gösterilir.
Tip:
Pencerenin içine konacak seçenekler,iconlar pencerenin önceliğini ve varsayılan seçenekleri belirten bir sayıdır.Tip parametresini şu şekilde formalize edersek;
Tip=seçenek+icon+varsayılan+öncelik
Bu formüldeki değerlerin olabileceği liste aşağıdaki tablodaki gibidir.
Aşağıdaki tabloda en önemli parametre mesaj kutusunun tipini belirleyen seçenekler parametresidir.Bu parametre mesaj kutusunda hangi düğmelerin bulunacağını belirler.
İcon parametresi ise kullanıcının dikkatini çekebilmek için mesaja uygun bir resim gösterilmesinde kullanılır.
Varsayılan düğme parametresi ise kullanıcının yanlış seçim yapmasını önlemek için açılan pencerede hangi düğmenin aktif olacağını belirler.Örneğin bir dosyayı önemli bir dosyayı silmek için kullanıcıdan onay alırken açtığınız pencerede varsayılan düğmeyi hayır düğmesi yaparak kullanıcını dosyayı yanlışlıkla silmesi önlenebilir.
Öncelik parametresinin 4096 olması durumunda mesaj kutusunda herhangi bir seçim yapılmadan diğer uygulamalara geçiş yapılmaz.Cevap verilmesinin sistem için kesinlikle gerekli olduğu durumlarda kullanılabilir.
Bu dört ayrı seçenek birbiriyle toplanarak msgbox fonksiyonun ikinci parametresi olarak kullanılır.





seçenek
v***only

v***cancel


vbAbortretryIgnore

vbYesNoCancel

vbYesNo

vbRetryCancel

icon
vbCritical

vbQuestion

vbExclamation

vbInformation

varsayılan
vbDefaultButton1
birinci düğme
vbDefaultButton2
ikinci düğme
vbDefaultButton3
üçüncü düğme
öncelik
vbApplicationModal
system modal
vbSystemModa
normal

Msgbox fonksiyonundan kullanıcını hangi düğmeyi seçtiğini belirtir bir tam sayı geri döner.bu değerler aşağıdaki tabloda verilmiştir.


sembolik
sayısal
anlamı
v***
tamam düğmesi seçildi
vbCancel
iptal düğmesi seçildi
vbAbort
işlemi durdur düğmesi seçildi
vbRetry
tekrar dene düğmesi seçildi
vbIgnore
göz ardı et düğmesi seçildi
vbYes
evet düğmesi seçildi
vbNo
hayır düğmesi seçildi


Örnek:
Private sub form_load()
Dim cevap,dosya
Dosya=”gereksiz.sil” ‘silinecek dosya adı
cevap = MsgBox(dosya + "dosyası silinsin mi?", 4 + 32 + 256, "silinecek")
If cevap = 6 Then Kill dosya
End Sub


Yukarıdaki örnekte görüldüğü gibi 4 değeri ile evet,hayır düğmesini,32 değeri ile ? iconu ,256 değeri ile de hayır düğmesi aktif hale geldi. Cevap= 6 satırı ile evet düğmesinin seçildiğini anlıyoruz ve kill ile de dosya silme işlemine gerçekleştiriyoruz.,
Msgbox fonksiyonunun bulunduğu satırı sembolik değerleri kullanarak yazarsak daha anlaşılır olur.

Private Sub Form_Load()
Dim cevap, dosya
dosya = "gereksiz.sil"
cevap = MsgBox(dosya + "dosyası silinsin mi?", vbYesNo + vbDefaultButton2 + vbQuestion, "silinecek")
If cevap = 6 Then Kill dosya
End Sub
Private sub form_load()
Dim cevap As VbMsgBoxResult
Msgbox “programa hoş geldiniz!”,VbInformation+V***Only,deneme v1.0”
Cevap=Msgbox (“programın yüklenilmesine devam edilsin mi? , vbQuestion + VbYesNo , ”deneme v1.0”)
İf cevap=VbYes then
Msgbox “program yüklemeye devam edecek “,VbOnly +VbInformation,”deneme v1.0”
Else
Msgbox”güle güle”,VbOnly+VbInformation,”deneme v1.0”
End
End if
End sub.


A satırında, yazdığımız kodların form ilk yüklendiğinde işleme sokulacağını anlatmaktadır.B satırında ise “cevap” isimli değişkenimizin bir mesaj kutusunun sonuç değişkeni olduğunu tanımlıyoruz.C satırında ki alttan çizgi ( _ ) ise daha satırın daha bitmediğini çizginin altındaki satırın devamı olduğunu belirtmektedir.Bu özelliği bu özelliği kullanmamıza gerek yok , çok uzun satır kullandığımızda bunu kullanmamız hataları bulmamız açısından kolaylık sağlayacaktır.Ç satırında “cevap” değişkenine mesaj kutusundan bir değer atanıyor.Burada önemli olan nokta mesaj kutusunda ki basılan düğmeyi atama yapıyorsak “msgbox” komutundan sonra yazdıklarımızı () parantez içinde yazmalıyız. F satırındaki komut programı sona erdirmeye yarar.