السلام عليكم ورحمه الله وبركاته
اما بعد فأريد ان اضع try و catch داخل مجموعه من الاكواد ولكن اريد ان يظهر الخطأ ان وجد في catch على شكل تنبيه (message box) فما الحل.
السلام عليكم ورحمه الله وبركاته
اما بعد فأريد ان اضع try و catch داخل مجموعه من الاكواد ولكن اريد ان يظهر الخطأ ان وجد في catch على شكل تنبيه (message box) فما الحل.
If you have an apple and I have an apple and we exchange these apples then you and I will still each have one apple. But if you have an idea and I have an idea and we exchange these ideas, then each of us will have two ideas.
عزيز musaireae
لو لاحظت انو امام الكاتش يتم تعريف متغير ex
Catch ex As Exception
بعد هذا التعريف تستطيع معرفة رسالة الخطأ وموقع الخطأ ومجموعة من ال Function وذلك بكتابة
ex.??
لمعرفة رسالة الخطأ اكتب
ex.message
طريقة حماية الصفحة بالصورة العشاوائية Captcha
انا عارف يا اخي ولكن يا اخي لو انتبهت لطلبي فأنا أريد ان يكون التنبه يظهر على شكل مسج.
If you have an apple and I have an apple and we exchange these apples then you and I will still each have one apple. But if you have an idea and I have an idea and we exchange these ideas, then each of us will have two ideas.
RegisterClientScriptBlock("myscript","<script language='javascript'>alert(ex.message)</script>");ماشي ياعم ولاتزعل علينا انا مافهمت قصدك
اكتب الكود التالي بعد ال Catch وإن شاء الله ينفعك :
Dim Msg As New Literal
Msg.Text = "<script language=""javascript"">"
Msg.Text &= " alert('" & ex.Message & " \n\n " & ex.TargetSite.ToString & "');"
Msg.Text &= "</script>"
Me.Controls.Add(Msg)طريقة حماية الصفحة بالصورة العشاوائية Captcha
صراحه انا قمت بتجربه كلتا الطريقتين ولكن لم تشتغل كلتاهما مع العلم انني اقوم بتجربه الاكواد داخل كلاس ولتوضيح ما عملت فقد قمت برفع الملف الذي اقوم بعمل التجارب عليه.
افيدوني.
If you have an apple and I have an apple and we exchange these apples then you and I will still each have one apple. But if you have an idea and I have an idea and we exchange these ideas, then each of us will have two ideas.
طيب يمكن الكود مافيه خطأ بمعنى لن يتم تنفيذ مابعد Catch
عموماً انا جربت الكود الي عطيتك ... مافيه مشكلة شغال تمام
Dim Msg As New Literal
Msg.Text = "<script language=""javascript"">"
Msg.Text &= " alert('" & ex.Message & " \n\n " & ex.TargetSite.ToString & "');"
Msg.Text &= "</script>"
Me.Controls.Add(Msg)طريقة حماية الصفحة بالصورة العشاوائية Captcha
هذا الموضوع مغلق.