ahmed es

هو يقصد ان الخاصية يكون لها عناصر مثلا List.ListItemes.Add وده مش هتيجلى الا اذا بنيت الخاصية على Class معين

ان شاء الله انا بس اخلص مشروع التخرج(معمول بالبيسيك) هدهولك تكسره وبعد كده مش هبص للغة البيسيك تانى وبعد الامتحانات هشوف مجالات التجميع(بس انا مش عاوز ادخل السجن)

ياسلام عليك اخ هانى جاى فى الفترة الى عندى فيها امتحانات :( يعنى برده مش هاخد الشهادة :angry: على فكرة انا شفت عضو كزور واحدة لنفسه وده الى ناوى اعمله :P

ال AntiDebuger الى انت عاوزها تبقى فعاله انك تطلب من شكرتى Intel & Amd انتاج معالجات لا تسمح بتنفيز البرنامج الا مرة واحدة(مستحيل طبعا) انت يابنى انت حاسب على كلامك ولاحظ ان انا بقيت منهم

والله لو عاوز كتاب يعلمك ازاى تكسر برنامج بيطلب ملف معين لكى يعمل الكتاب موجود هنا!!!!!!!!!!!!!!!!

ya reet tekteb 3araby 3shan elnass ely mesh masreya ta3raf tefhamak enta law 3awez te3mel ely enta bet2ool 3aleeh teb2a te3mel klas we te7ot feeh el egr2at ely enta 3ayezha we kol egra2 yenafez she2 mo3ayan

ارجو انت الى توضح اضافة خاصية ولنفترض Test Public Property Get Test() As Variant End Property ويمفذ الاجراء get عندما يطلب المستخدم قيمة الخاصية مثل Text1=usercontrol.test اما Public Property Let Test(ByVal vNewValue As Variant) End Property اما Let فاذا ادخل …

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

يا اخوان انا مش شايف الا ملف EXE فما الاستفاده!!!!!!! ارجوا من صاحب الموضوع يوضح ما المطلوب

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

على العموم يا جماعة زى ما قلتلكم هى عمليه بحث عن كائن فى المثال الى بعثه محمد بتاع التيمر فى اوله تم تعريف كائن على الكلاس collection وقد استنتجت انه خاص بالفى بى 6 يحمل بيانات جميع الكائنات المعرفه فى البرنامج Private mcolItems As Collection وكما قلت سابقا فا…

حتى هذه الطريقة اخ ايوب لن تنفع انا ابحث الان عن طريقة اجد بها الكائن الذى بنى على هذا ال Class

فى الفيجوال بيسك 6 يمكن تمريمر كائن كبرامتر ساضع مثال هذا المثال نقوم بتمرير الكائن فورم الى الاجراء ليقوم بتغيير خاصية الكابشن له Object___parameters.zip

للاسف فعلا ال Addressof فى الفى بى 6 لا تقبل الا بالاجرائات الموجودة فى الموديول لماذا الله اعلم وكان البرانج الفرعية ال Private ليس لها عنوان!!!!!!!!!!!!!!!

انظر اخ ايوب انا حاولت فى المشاركة اسابقة بعمل تمرير للكائن الموجود فى الفورم Blah الى الكائن الاخر الموجود فى الموديول لعمل اجراء يجعل الكائن Blah يستدعى الحدث عن طريق اى اجراء اخر لكن ظهرت رسالة خطا كتبتها فى المشاركة السابقة

فى حاجة مهمه الخطا out of stack تم التغلب عليه لكن حتى لو وضعت raisemyevent مباشرا فى ال Class_Inialize لن يتم عرض الرساله الموجودة بالحدث فى الفورم والسبب ان اكلاس ما هى الا نسخة من الاوامر يتم بناء كائن عليها وياخذ كل الاجرائات وكل شئ بداخلها لذلك يجب على ال…

انت بترد من غير ما تجرب :angry: المشكلة مش فى الخطا out of stack لكن ان الحدث لا يتم استدعائمة على الرغم من استدعائ الاجراء myMind.RaiseMyEvent فهحاول اشوف ليه

محمد انا حليت المشكلة بطريقة مختلفة ارجوا انها تنفع فى الموديول Option Explicit Public Cancel As Boolean Public Sub Gooo() If Not Cancel Then Dim myMind As New Class1 myMind.RaiseMyEvent End If End Sub والجديد انه تم تعريف متغير بولينى Cancel اذا كانت قيمته Tr…

هو صحيح انا مفهمتش منك حاجة لكن باين من الحدث DestroyMyPc انه مهم جدا لكن انا لسة جاى هقيل ساعتين وابحث القضية مع الوزراء بتوعى سلاااااااااااااااااااااااااااااااااااااااااام

امسك يا عم ادينى عملت حاجة ممتزجة من الاتنين Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Then Exit Sub If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 End If End Sub