السلام عليكم ورحمة الله وبركاته
عملت زر ( رجوع ) وكتبت فيه الكود
كود :
[align=left][color=#0000FF]Me[/color][color=#000000].WebBrowser_0.GoBack[/color][/align]
لاكنى اريد عند عدم وجود صفحات سابقه يصبح الزر غير ممكن ( Enabled = False
) كتبت الكود
كود :
[align=left][color=#0000FF]Me[/color][color=#000000].Button1.Enabled = [/color][color=#0000FF]Me[/color][color=#000000].WebBrowser_0.GoBa[/color][/align]
لاكن للاسف عند الاستعلام يتم تنفيذ الكود
ارجو المساعدة ما الحل
خلاص عرفته جزاكم الله خير
كود :
[align=left][COLOR="#000000"]
[/COLOR][color=#0000FF]Private Sub [/color][color=#000000]WebBrowser_0_DocumentCompleted(sender [/color][color=#0000FF]As Object[/color][color=#000000], e [/color][color=#0000FF]As [/color][color=#2B91AF]WebBrowserDocumentCompletedEventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]WebBrowser_0.DocumentCompleted
[/COLOR][color=#0000FF]Me[/color][color=#000000].Button1.Enabled = [/color][color=#0000FF]Me[/color][COLOR="#000000"].WebBrowser_0.CanGoBack
[/COLOR][color=#0000FF]Me[/color][color=#000000].Button2.Enabled = [/color][color=#0000FF]Me[/color][COLOR="#000000"].WebBrowser_0.CanGoForward
[/COLOR][color=#0000FF]Me[/color][color=#000000].TextBox1.Text = [/color][color=#0000FF]Me[/color][COLOR="#000000"].WebBrowser_0.DocumentTitle
[/COLOR][color=#0000FF]End Sub[/color][COLOR="#000000"]
[/COLOR][/align]
ali.alfoly كتب :خلاص عرفته جزاكم الله خير
كود :
[align=left][COLOR="#000000"]
[/COLOR][color=#0000FF]Private Sub [/color][color=#000000]WebBrowser_0_DocumentCompleted(sender [/color][color=#0000FF]As Object[/color][color=#000000], e [/color][color=#0000FF]As [/color][color=#2B91AF]WebBrowserDocumentCompletedEventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]WebBrowser_0.DocumentCompleted
[/COLOR][color=#0000FF]Me[/color][color=#000000].Button1.Enabled = [/color][color=#0000FF]Me[/color][COLOR="#000000"].WebBrowser_0.CanGoBack
[/COLOR][color=#0000FF]Me[/color][color=#000000].Button2.Enabled = [/color][color=#0000FF]Me[/color][COLOR="#000000"].WebBrowser_0.CanGoForward
[/COLOR][color=#0000FF]Me[/color][color=#000000].TextBox1.Text = [/color][color=#0000FF]Me[/color][COLOR="#000000"].WebBrowser_0.DocumentTitle
[/COLOR][color=#0000FF]End Sub[/color][COLOR="#000000"]
[/COLOR][/align]
هههه الكود منسوخ باستخدام برنامج الاخ sooriaty03
الاصدار القديم
الاصدار الجديد روعة
شوفو فى اخر رد
السلام عليكم ورحمة الله وبركاته
جزاكم الله خيرا
أعجبتني جدا روح التعاون في هذا المنتدى
أسأل الله أن يجعله في ميزان حسناتكم
ربنا يبارك فيك
انا تعلمت منكم التعاون والعطاء قبل ان نتعلم البرمجة
من لم يشكر الناس لايشكر الله
ali.alfoly كتب :[b]الاصدار القديم
الاصدار الجديد روعة
شوفو فى اخر رد
نزلته ..
خلاص من الان وصاعدا اي كود بخليه في المنتدى راح احوله اولا باستخدام البرنامج
شكرا لك اخي sooriaty03 على هذه التحفة الفنية + شكرا لكم جميعا

[/b]