msgbox

degisken=Msgbox(“prompt”,simge+varsayılanbuton+butonlar,”başlık”)

prompt: kullancıya iletilmek istenen yazı
simge: pencerede solda bulunan simge

• ünlem (exclamation),
• soru işareti (question),
• bilgi (information),
• uyarı (critical),

siz kendiniz başka resim koyamaz mısınız? hayır koyamazsınız, çünkü msgbox VBnin bir fonksiyonudur, kodlarıyla oynamanız lazım, hiç sanmam :- )

varsayılanbuton: msgbox penceresi gelince hangi buton aktif olsun?
butonlar: msgbox penceresinde olması itenen butonlar

vbYesNo, vbOkCancel,vbOkOnly, gibi…

başlık: pencerenin başlığını belirler

uygulamayı indirmek için tıklayınız.

ders notunu indirmek için tıklayınız.

<!–[endif]–><!–[if gte mso 9]> 14.00 <![endif]–><!–[if gte mso 9]> Normal 0 21 false false false TR X-NONE X-NONE <![endif]–><!–[if gte mso 9]> <![endif]–> <!–[endif]–>

MSGBOX

Public Class Form1

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

c = MsgBox(“Çıkacak mısınız?”, MsgBoxStyle.Question + MsgBoxStyle.DefaultButton1 + vbYesNo, “ÇIKIŞ”)

If c = 6 Then End

End Sub

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

‘ msgbox deyimidir bu fonksiyon değildir

Microsoft.VisualBasic.MsgBox(“Your Message Here”)

 End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

c = MsgBox(“çıkacak mısınız?”, vbOKCancel, “ÇIKIŞ”)

If c = 1 Then End

If c = 2 Then MsgBox(“o zaman neden basıyon:)”)

End Sub

 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

c = MsgBox(“çıkacak mısınız?”, vbYesNo, “ÇIKIŞ”)

If c = 6 Then End

If c = 7 Then MsgBox(“o zaman neden basıyon:)”)

End Sub

End Class

Örnek:

        Dim C As Byte = MsgBox(“çıkacak mısınız?”, MsgBoxStyle.Question + MsgBoxStyle.YesNoCancel)

        If C = MsgBoxResult.Yes Then
            MsgBox(“Evet’e tıkladınız“)
        End If