المشاركات : 1,298
المواضيع 277
الإنتساب : Apr 2016
السمعة :
250
الشكر: 2355
تم شكره 2107 مرات في 957 مشاركات
البلد:
السلام عليكم ورحمة الله وبركاته
هو ينفع أدخل الكود اللى بالأسفل داخل 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 ؟
لآنى جربتها لكن ظهر اخطاء كثيرة داخل الموديول وطبعا
انا عاوز فقط أفهم لآن المشروع أكواده كثيرة وطويلة وانا عاوز اخلى داخل الفورم
اكواد صعيرة جدا وباقى الاكواد تكون داخل صب او موديول وفقط انده عليها...
المشاركات : 501
المواضيع 119
الإنتساب : Jul 2014
السمعة :
16
الشكر: 1785
تم شكره 1287 مرات في 274 مشاركات
السلام عليكم اخي ابو روضة
قم بتسمية اسم الفورم قبل كود مثلا :
كود :
form1. Button3.Enabled = False
المشاركات : 1,298
المواضيع 277
الإنتساب : Apr 2016
السمعة :
250
الشكر: 2355
تم شكره 2107 مرات في 957 مشاركات
البلد:
(10-09-18, 07:52 PM)larbihamri كتب : السلام عليكم اخي ابو روضة
قم بتسمية اسم الفورم قبل كود مثلا :
كود :
form1. Button3.Enabled = False
جزاك الله كل خير اخى العزيز
ظهر خطأ فى بعض الاكواد ونفع مع اكواد اخرى انظر
المشاركات : 852
المواضيع 9
الإنتساب : Oct 2015
السمعة :
130
الشكر: 2218
تم شكره 1669 مرات في 742 مشاركات
البلد:
أخي أبوروضة حياك الله
انصحك بمتابعة دورة تعليمية للغة البرمجة التي تستخدمها
ألاحظ من مواضيعك انك متحمس ومهتم بالبرمجة
لهذا أعتقد انك ظالم لنفسك لتجاهلك بأهمية تعلم الأساسيات
المشاركات : 1,298
المواضيع 277
الإنتساب : Apr 2016
السمعة :
250
الشكر: 2355
تم شكره 2107 مرات في 957 مشاركات
البلد:
(10-09-18, 08:26 PM)محمد كريّم كتب : أخي أبوروضة حياك الله
انصحك بمتابعة دورة تعليمية للغة البرمجة التي تستخدمها
ألاحظ من مواضيعك انك متحمس ومهتم بالبرمجة
لهذا أعتقد انك ظالم لنفسك لتجاهلك بأهمية تعلم الأساسيات
ليس ظلما للنفس أخى الكريم استاذ محمد وليس الموضوع كما تظن حضرتك..
كل ما فى الأمر أن هناك أشياء لا أستطيع قولها لآنها حساسة بعض الشيئ ولو علمت
الحقيقة ستعذرنى وستقوم بالمساعدة دون أن تحرجنى بالذوق هكذا.
المشاركات : 2,033
المواضيع 73
الإنتساب : May 2018
السمعة :
437
الشكر: 12264
تم شكره 4921 مرات في 2007 مشاركات
البلد:
10-09-18, 08:52 PM
(آخر تعديل لهذه المشاركة : 10-09-18, 08:54 PM {2} بواسطة 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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
المشاركات : 1,298
المواضيع 277
الإنتساب : Apr 2016
السمعة :
250
الشكر: 2355
تم شكره 2107 مرات في 957 مشاركات
البلد:
(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 ؟
عملت كدة زظهر خطأ ولا هناك طريقة للمناداة عليها ؟
المشاركات : 2,033
المواضيع 73
الإنتساب : May 2018
السمعة :
437
الشكر: 12264
تم شكره 4921 مرات في 2007 مشاركات
البلد:
(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)
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
المشاركات : 1,298
المواضيع 277
الإنتساب : Apr 2016
السمعة :
250
الشكر: 2355
تم شكره 2107 مرات في 957 مشاركات
البلد:
(10-09-18, 09:09 PM)asemshahen5 كتب : sanaa(checkedListBox1, Button3, Button4, True, CheckedListBox, WebBrowser)
للاسف اخى لم يقوم بتنفيذ الكود اللى داخل الموديول
المشاركات : 452
المواضيع 126
الإنتساب : Jan 2018
السمعة :
29
الشكر: 351
تم شكره 465 مرات في 239 مشاركات
البلد:
تقريباً يجب وضع الكود بالشكل التالي ..
كود :
Form1.Button1.Enable = False
وإذا ما قلتة انا خاطئ فأنا اعتذر لإني لست في بلدي و ليس معي الكمبيوتر او حتي اللاب توب 
|