منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] عمل رساله تاكيد للحذف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عمل رساله تاكيد للحذف (/showthread.php?tid=15303)

عمل رساله تاكيد للحذف - رومنس الشوق - 01-04-16

السلام عليكم 

عندي هذا الكود للحذف 

وانا اريد ان اضع رساله تنبيه هل تريد الحذف 

اذا تم الضغط على نعم يحذف المعامله

اذا تم الضغط على لا    لايتم حذف المعامله 

هذا هو الكود المراد التعديل عليه
كود :
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        conn.Open()
        Try
            Dim cmddelete As New OleDbCommand
            cmddelete.CommandText = "delete from tan where idmt = '" + txtid_m.Text + "'"
            cmddelete.Connection = conn
            cmddelete.ExecuteNonQuery()
            MsgBox("تمت حذف جميع بيانات الشخص بنجاح")
            txtname_m.Clear()
            txtmustlm.Clear()
            txtnum_q.Clear()
            txtid_m.Clear()
            a1.Clear()
            Textalhalh.Clear()
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
        conn.Close()
    End Sub


شاكر لكم 


RE: عمل رساله تاكيد للحذف - silverlight - 01-04-16

PHP كود :
       Dim result As DialogResult = MessageBox.Show("هل تريد حذف البيانات", "Info", MessageBoxButtons.YesNo)
        If result = DialogResult.No Then
            ' لا تحذف البيانات
        ElseIf result = DialogResult.Yes Then
            ' إحذف البيانات
        End If 


RE: عمل رساله تاكيد للحذف - رومنس الشوق - 01-04-16

ماقصرت يالغالي

الكود شغال تمام

RE: عمل رساله تاكيد للحذف - 304 - 24-07-18

(01-04-16, 11:02 PM)silverlight كتب :
PHP كود :
       Dim result As DialogResult = MessageBox.Show("هل تريد حذف البيانات", "Info", MessageBoxButtons.YesNo)
        If result = DialogResult.No Then
            ' لا تحذف البيانات
        ElseIf result = DialogResult.Yes Then
            ' إحذف البيانات
        End If

#الله يقوويييك والله انك كفو  كود شغال