Bugünlerde biraz blogumu ihmal ettim maalesef. Bu arada uzun süren bir kitap projem vardı. "VB.NET ve Ofis Uygulamaları" adlı bu kitabımı yazmayı nihayet bitirdim. Şimdi ise bunu bastırabilme uğraşısı içerisindeyim.
Öncelikle yazlılım kulubündeki öğrencilerimizle yaptığımız kodları ekleyerek başlayalım işe:
Örneğimiz form kapatılmaya çalışıldığında bir mesaj penceresi döngüsü içerisinde çıkışı engellemektedir. Kapanma olayı için form closing olayı, çıkışı iptal etmek için ise e.cancel=true, mesaj döngüsünden çıkıp forma geri dönüş için ise exit sub fonksiyonu kullanılır.
Kodumuz aşağıdaki gibi olacak:
Public Class Form1
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim i As Byte
Dim mesaj
For i = 1 To 5
If i = 1 Then
mesaj = MsgBox("Çıkmak istediğinize Emin misiniz?" , MsgBoxStyle.YesNo)
If mesaj = vbNo Then
MsgBox("Aferin. İşte Böyle yola gel" )
e.Cancel =True
Exit Sub
End If
ElseIf i = 2 Then
mesaj = MsgBox("Gerçekten Çıkmak istiyor musunuz?" , MsgBoxStyle.YesNo)
If mesaj = vbNo Then
MsgBox("Aferin. İşte Böyle yola gel" )
e.Cancel =True
Exit Sub
End If
ElseIf i = 3 Then
MsgBox("Emin misiniz?", MsgBoxStyle.YesNo)
If mesaj = vbNo Then
MsgBox("Aferin. İşte Böyle yola gel" )
e.Cancel =True
Exit Sub
End If
ElseIf i = 4 Then
MsgBox("Hımm. Düşünmem lazım", MsgBoxStyle.YesNo)
If mesaj = vbNo Then
MsgBox("Aferin. İşte Böyle yola gel")
e.Cancel =True
Exit Sub
End If
ElseIf i = 5 Then
MsgBox("Müsait bir zamanımda düşünürüm", MsgBoxStyle.YesNo)
If mesaj = vbNo Then
MsgBox(
"Aferin. İşte Böyle yola gel")
Exit Sub
End If
i = 0
End If
Next
If e.CloseReason = CloseReason.WindowsShutDown Then
MsgBox("Bilgisayarı Kapatamazsınız")
e.Cancel =True
End If
End Sub