Gorsel Programlama

Formumuza 1 button üç textbox üç label ekliyoruz  formumuzun genel   aşağıda ki gibi olacaktır.

Buton 1 olayına aşağıdaki kodu yazıyoruz;

Dim a as Integer

 a=msgbox (“merhaba,msgboxstyle ,Informatıon + msgboxstyle.default button1,”deneme”)

If MsgBox("Devam etmek istiyor musunuz?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Soru") = _
        MsgBoxResult.Yes Then
            MsgBox("Devam edebilirsiniz")
        Else
            MsgBox("Program kapatılıyor")
        Else
           Msgbox (“vazgez tuşuna bastınız”)

        End If

Programı çalıştırdığınız zaman aşagıdaki pencere karşınıza gelecektir.

Evet, butonuna basarsak aşağıdaki mesaj iletisi ile karşılaşırız.

Hayır butonuna basarsak aşağıdaki mesaj iletisi ile karşılaşırız.