Event Close(X) บน ฟอร์ม ครับ

Event Close(X) บน ฟอร์ม ครับ



ปัญหาที่พบคือเมื่อผู้ใช้กดปิดที่ปุ่ม x ด้านบนนะครับ 
แล้ว พบว่าจะเปิดโปรแกรมไม่ได้อีก เนื่องจาก อยู่ใน TaskManager 
เหมือนคำสั่งปิดไม่สมบูรณ์
จึงต้องหาคำสั่งมาเพิ่มเพื่อให้เกิดการปิดโปรแกรมอย่างแท้จริงอีกครั้งครับ
   
   Private Sub frmName_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If (MsgBox("คุณต้องการออกจากระบบใช่หรือไม่ ?", MsgBoxStyle.YesNo, "การยืนยัน") = MsgBoxResult.Yes) Then
            Dim a As Double
            For a = 1 To 0 Step -0.01
                Me.Opacity = a
            Next
            End
        End If
    End Sub
ลองใช้ดูครับ

ฝากติดตามผลงานด้านล่างด้วยครับ
--------------------------
► Website : http://www.siamfocus.com/
► LINE@ : http://line.me/ti/p/@siamfocus.com
► Facebook : https://www.facebook.com/fanpage.siamfocus
► Twitter : https://twitter.com/siamfocus
► Google+ : https://plus.google.com/+TAAMSiAMFOCUS
► Instagram : https://www.instagram.com/iamtaam
--------------------------









บทความ แนะนำ




หมวดหมู่บทความ