[ابو روضة]

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

هو ينفع أدخل الكود اللى بالأسفل داخل Module  هكذا مثلا 

Module Module1

    Public Sub sanaa()

        checkedListBox1.Items.Clear()

        Button3.Enabled = False

        Button4.Enabled = False

        IsValidate = False

        myCheck = New CheckedListBox()

      

        WebBrowser.ScriptErrorsSuppressed = True

        WebBrowser.Navigate("http://www.downvids.net/download-youtube-playlist-videos")

    End Sub

End Module

وأنده عليه من خلال كلمة sanaa ؟

 لآنى جربتها لكن ظهر اخطاء كثيرة داخل الموديول وطبعا

انا عاوز فقط أفهم لآن المشروع أكواده كثيرة وطويلة وانا عاوز اخلى داخل الفورم

اكواد صعيرة جدا وباقى الاكواد تكون داخل صب او موديول وفقط انده عليها...

[larbihamri]

السلام عليكم اخي ابو روضة
قم بتسمية اسم الفورم قبل كود مثلا :

كود :

form1. Button3.Enabled = False

[ابو روضة]

(10-09-18, 07:52 PM)larbihamri كتب :

السلام عليكم اخي ابو روضة

قم بتسمية اسم الفورم قبل كود مثلا :

كود :

form1. Button3.Enabled = False

جزاك الله كل خير اخى العزيز

ظهر خطأ فى بعض الاكواد ونفع مع اكواد اخرى انظر

[محمد كريّم]

أخي أبوروضة حياك الله
انصحك بمتابعة دورة تعليمية للغة البرمجة التي تستخدمها
ألاحظ من مواضيعك انك متحمس ومهتم بالبرمجة
لهذا أعتقد انك ظالم لنفسك لتجاهلك بأهمية تعلم الأساسيات

[ابو روضة]

(10-09-18, 08:26 PM)محمد كريّم كتب : أخي أبوروضة حياك الله
انصحك بمتابعة دورة تعليمية للغة البرمجة التي تستخدمها
ألاحظ من مواضيعك انك متحمس ومهتم بالبرمجة
لهذا أعتقد انك ظالم لنفسك لتجاهلك بأهمية تعلم الأساسيات

ليس ظلما للنفس أخى الكريم استاذ محمد وليس الموضوع كما تظن حضرتك..

كل ما فى الأمر أن  هناك أشياء لا أستطيع قولها لآنها حساسة بعض الشيئ ولو علمت 

الحقيقة ستعذرنى وستقوم بالمساعدة دون أن تحرجنى بالذوق هكذا.

[asemshahen5]

Module Module1

Public Sub sanaa(checkedListBox1 As CheckedListBox, Button3 As Button, Button4 As Button, IsValidate As Boolean, myCheck As CheckedListBox, WebBrowser1 As WebBrowser)

checkedListBox1.Items.Clear()

Button3.Enabled = False

Button4.Enabled = False

IsValidate = False

myCheck = New CheckedListBox()

WebBrowser1.ScriptErrorsSuppressed = True

WebBrowser1.Navigate("http://www.downvids.net/download-youtube-playlist-videos")

End Sub

End Module

[ابو روضة]

(10-09-18, 08:52 PM)asemshahen5 كتب :

Module Module1

Public Sub sanaa(checkedListBox1 As CheckedListBox, Button3 As Button, Button4 As Button, IsValidate As Boolean, myCheck As CheckedListBox, WebBrowser1 As WebBrowser)

checkedListBox1.Items.Clear()

Button3.Enabled = False

Button4.Enabled = False

IsValidate = False

myCheck = New CheckedListBox()

WebBrowser1.ScriptErrorsSuppressed = True

WebBrowser1.Navigate("http://www.downvids.net/download-youtube-playlist-videos")

End Sub

End Module

جزاك الله كل الخير استاذى..
مش انا لما اجى انادى عليها بنادى على اسم sanaa ؟
عملت كدة زظهر خطأ ولا هناك طريقة للمناداة عليها ؟

[asemshahen5]

(10-09-18, 09:03 PM)ابو روضة كتب :

(10-09-18, 08:52 PM)asemshahen5 كتب :

Module Module1

Public Sub sanaa(checkedListBox1 As CheckedListBox, Button3 As Button, Button4 As Button, IsValidate As Boolean, myCheck As CheckedListBox, WebBrowser1 As WebBrowser)

checkedListBox1.Items.Clear()

Button3.Enabled = False

Button4.Enabled = False

IsValidate = False

myCheck = New CheckedListBox()

WebBrowser1.ScriptErrorsSuppressed = True

WebBrowser1.Navigate("http://www.downvids.net/download-youtube-playlist-videos")

End Sub

End Module

جزاك الله كل الخير استاذى..
مش انا لما اجى انادى عليها بنادى على اسم sanaa ؟
عملت كدة زظهر خطأ ولا هناك طريقة للمناداة عليها ؟

sanaa(checkedListBox1, Button3, Button4, True, CheckedListBox, WebBrowser)

[ابو روضة]

(10-09-18, 09:09 PM)asemshahen5 كتب :

sanaa(checkedListBox1, Button3, Button4, True, CheckedListBox, WebBrowser)

للاسف اخى  لم يقوم بتنفيذ الكود اللى داخل الموديول

[YousefOkasha]

تقريباً يجب وضع الكود بالشكل التالي ..

كود :

Form1.Button1.Enable = False

وإذا ما قلتة انا خاطئ فأنا اعتذر لإني لست في بلدي و ليس معي الكمبيوتر او حتي اللاب توب