Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » MsgBox (Mesaj Kutusu)
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Sürücü Formatlama

Yazar: icefire
VB ile sürücülerinizi çok rahat formatlayabilirsiniz...


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 6087
Yayın Tar:17.02.2006
Yazar : esra
Hit :3713

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et


Bu deyim özellikle kullanıcıya belli bir mesaj verme ve kullanıcıdan belli bir yanıtı almak için kullanılır. MsgBox deyimi ile bir mesaj görüntülenir. Bu mesaj sadece mesajda olabilir veya üzerinde onay düğmeleri bulunabilir. Örneğin kullanıcının bir dosyayı kayıt etmesi gerektiğinde ?Dosya Kaydedilsin mi?? gibi bir soru olabilir ve msgbox üzerinde de Yes No gibi yanıtlar alınabilir.

MsgBox (?mesaj?, simgeler, ?başlık?)

ÖRNEK

1. MsgBox ?Visual Basic Dersine Hoşgeldiniz?
2. MsgBox ?Prestige Educations Center?





NOT

MsgBox deyimini Form Load yordamına yazılırsa form ekrana yüklendiği anda mesaj penceresi çıkar.

Windows uyumlu programlarda kullanıcıyı uyarmak veya mesaj vermek üzere ekrana getirilen mesaj kutularında Tamam düğmesinden başka düğmeler ve işaretler bulunur. Örneğin Excel ile çalışırken aktif belge kaydedilmeden kapatılmak istenirse, ekrana bir uyarı mesajı çıkar ve size seçme olanağı sunar. Bunun için iki seçenek vardır ve bilgisayarın sizin hangi tuşa bastığınızı anlaması için bir değişkene atamanız gerekmektedir.

ÖRNEK

Dim a

a = MsgBox("Visual Basic Dersine Hoşgeldiniz")

Görüldüğü gibi herhangi bir simge belirtilmezse TAMAM düğmesi belirir. Diğer düğmeleri çıkartmak için aşağıdaki kodlar kullanılır.

Sİmge Değeri Anlamı
vbOKOnly 0 Sadece OK düğmesini gösterir.
vbOKCancel 1 OK ve Cancel düğmesini gösterir.
vbAbortRetryIgnore 2 Durdur, Yeniden dene, Yoksay
vbYesNoCancel 3 Yes, No, Cancel düğmelerini gösterir.
vbYesNo 4 Yes ve No düğmelerini gösterir.
vbRetryCancel 5 Retry ve Cancel düğmelerini gösterir.

ÖRNEK

Dim a

a = MsgBox("Visual Basic Dersine Hoşgeldiniz", vbAbortRetryIgnore)

veya

a = MsgBox("Visual Basic Dersine Hoşgeldiniz", 2)

NOT

Mesaj kutusunun içine iki satır mesaj yazmak için Enter tuşunun karşılına gelen ANSI 10 (Chr(10)) karakterini yazmamız gerekir.

ÖRNEK

Dim a

a = MsgBox("Visual Basic Dersine Hoşgeldiniz" & Chr(10) & "ikinci satira geçtim", vbYesNo)

Mesaj pencerelerinde bir de uyarı veya dikkat çekici ek ikonlar mevcuttur. Bunlar da aşağıda gösterilmiştir.

Sİmge Değeri Anlamı
vbCritical 16 X işareti
vbQuestion 32 Soru işareti
vbExclamation 48 Ünlem
vbInformation 64 i enformasyon işareti






ÖRNEK

Dim a

a = MsgBox("Değişiklikler kaydedilsin mi?", vbYesNo + vbCritical)

Mesaj pencereleri üzerinde ki düğmelerin bir özelliği de aktif butonu seçme özelliğidir. Bunun için aşağıdaki kodlar yazılır.

Simge Değeri Anlamı
vbDefaultButton1 0 1.düğme aktif olacak
vbDefaultButton2 256 2.düğme aktif olacak
vbDefaultButton3 512 3.düğme aktif olacak
vbDefaultButton4 7682 4.düğme aktif olacak

ÖRNEK

Dim a
a = MsgBox("Degisiklikler kaydedilsin mi?", vbYesNo + vbCritical + vbDefaultButton2)

Son olarak mesaj penceresinin başlığını da değiştirebiliriz. Bunun için yazdığımız kodun en sonuna ekleriz.

ÖRNEK

Dim a
a = MsgBox("Degisiklikler kaydedilsin mi?", vbYesNo + vbCritical + vbDefaultButton2, "Kaydet Butonu")

Mesaj düğmesinde hangi düğmenin seçildiğine ilişkin bir değer döndürdüğünü belirlemek için aşağıdaki tablodaki değerler kullanılır.

Sabit Bilgi Değeri Anlamı
VbOK 1 OK düğmesi seçilmiş.
vbCancel 2 Cancel düğmesi seçilmiş.
vbAbort 3 Abort düğmesi seçilmiş.
vbRetry 4 Retry düğmesi seçilmiş.
vbIgnore 5 Ignore düğmesi seçilmiş.
vbYes 6 Yes düğmesi seçilmiş.
vbNo 7 No düğmesi seçilmiş.

ÖRNEK

Private Sub Command1_Click()
Dim a, b, c
a = MsgBox("Degisiklikler kaydedilsin mi?", vbYesNo + vbCritical + vbDefaultButton2, "kaydet butonu")
c = 10
If a = vbYes Then
b = c * 10
Else
b = c * 2
End If
Print b
End Sub

Sonuç = yes butonuna basınca 100,
no butonuna basınca 20 olur.
veya,
Dim a, b, c
a = MsgBox("Degisiklikler kaydedilsin mi?", 4 + vbCritical + vbDefaultButton2, "kaydet butonu")
c = 10
If a = 6 Then
b = c * 10
Else
b = c * 2
End If
Print b

Sonuç = yes butonuna basınca 100,
no butonuna basınca 20 olur.

InputBox (Bilgi Giriş Kutusu)

Giriş kutusu kullanıcıdan bir değeri almayı sağlar. InputBox fonksiyonu bir iletişim kutusu görüntüleyerek kullanıcının bir değer girmesini sağlar. InpuBox fonksiyonu kullanıcıdan aldığı değeri programa geri döndürür.

Değişken = InputBox (?mesaj?, başlık, varsayım, xpoz, ypoz)

ÖRNEK 1

Private Sub Command1_Click()
Dim ad As String
ad = InputBox("Şehir Adını Giriniz : ?")
Print ad
End Sub

Görüldüğü gibi ekranın tam ortasında bir bilgi giriş ekranı çıktı ve sol üst köşesinde projenin adı yazıyor. Giriş kutusunun adını değiştirmek için aşağıdaki örnek yazılır.

ÖRNEK 2

Private Sub Command1_Click()
Dim ad As String
ad = InputBox("Şehir Adını Giriniz : ?", " Giriş Kutusu Başlığı")
Print ad
End Sub

Sol üst köşesinde bu sefer bizim yazdığımız ?Giriş Kutusu Başlığı? yazıyor. Giriş kutusunun üzerinde bazen default olarak bir şey yazmasını isteriz, örneğin şehir adlarını giriyoruz ve en çok girilen şehir İstanbul olduğu için onun default olmasını isteyebiliriz. Bunun için aşağıdaki örneği yazarız.

ÖRNEK 3

Private Sub Command1_Click()
Dim ad As String
ad = InputBox("Şehir Adını Giriniz : ?", " Giriş Kutusu Başlığı", "İstanbul")
Print ad
End Sub

Eğer aksi bir durum belirtmediysek açılan InputBox kutusu ekranın tam ortasında açılır. Bazen açılan bu kutuları kullanıcıların ekranı daha iyi görebilmesi için değişik yerlere koyabiliriz. Bunun için aşağıdaki örneği yazarız.

ÖRNEK 4

Private Sub Command1_Click()
Dim ad As String
ad = InputBox("Şehir Adını Giriniz : ?", " Giriş Kutusu Başlığı", " İstanbul ", 3500, 500)
Print ad
End Sub

ÖRNEK 5

İki tane arka arkaya sayı girilerek girilen iki sayının toplamı MsgBox ile bize bildirilsin. MsgBox penceresinde information da olsun.

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = InputBox("1. sayıyı giriniz")
b = InputBox("2. sayıyı giriniz")
c = a + b
MsgBox("iki sayının toplamı = " & c & ,vbinformation)
End Sub

NOT : MesajBox yazımında kullanılan & (ampersant) işareti girilen değeri mesajbox kutusuna taşır.





Yorumlar, eklemeler ve düşünceler
        Dostum sağ ol, işime yaradı.

   GENC, 07.09.2006 00:38
   TESEKKÜR EDERİZ AMA HERYERDE AYNI YAZILAR BİRAZ DAHA ÜRETKEN OLABİLİRİZ DE?İL Mİ...

   sokratgirl, 13.07.2007 13:53
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin