[ali.alfoly]

السلام عليكم ورحمة الله وبركاته
عملت زر ( رجوع ) وكتبت فيه الكود

كود :

[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]

لاكن للاسف عند الاستعلام يتم تنفيذ الكود
ارجو المساعدة ما الحل

[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]

[الشاكي لله]

خلاص عرفته جزاكم الله خير

كود :

[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]

الاصدار القديم
الاصدار الجديد روعة
شوفو فى اخر رد

[sooriaty03]

السلام عليكم ورحمة الله وبركاته

جزاكم الله خيرا
أعجبتني جدا روح التعاون في هذا المنتدى
أسأل الله أن يجعله في ميزان حسناتكم

[ali.alfoly]

ربنا يبارك فيك
انا تعلمت منكم التعاون والعطاء قبل ان نتعلم البرمجة
من لم يشكر الناس لايشكر الله

[الشاكي لله]

[b]الاصدار القديم
الاصدار الجديد روعة
شوفو فى اخر رد

نزلته ..

خلاص من الان وصاعدا اي كود بخليه في المنتدى راح احوله اولا باستخدام البرنامج

شكرا لك اخي sooriaty03 على هذه التحفة الفنية + شكرا لكم جميعا [/b]