hishamnasr

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

هنا انت محتاج لمراجعة ال ASP

نبهني بعض الاخوة غير الاعضاء ان الملف المرفق به خلل لذا اعدت ارساله 1000000.zip

نبهني بعض الاخوة غير الاعضاء ان الملف المرفق به خلل لذا اعدت ارساله 1000000.zip

السلام عليكم يمكن اضافة textbox مخفي لادخال الزمن و التاريخ فيه انشئ جدول جديد في قاعدة بياناتك به الحقول التالية الاسم الزمن و التاريخ و مع امر الlogin اضف امر اضافة الاسم والزمن والتاريخ لقاعدة البيانات الجديدة

السلام عليكم انا لم ارد شيئا في الفورم انما كنت اعطي معلومة و مثال عن كيفية فصل مجموعة من option boxes في نفس الفورم شكرا لك

السلام عليكم في حالة استعمال ملف exe و كان برنامجك يحتوي على ادوات من ال components فان بعض ملفات ال dll لن توجد في الجهاز الثاني الا بوجود vb نفسها لذلك لن يعمل الا بواسطة عمل ملف setup

حاول ان تضغط الزر بالماوس 1000000.zip

السلام عليكم قومي بربط textbox1 بالحقل الذي تريدين اضافة بياناته للcombo و ذلك عن طريق الاداة data1 اضيفي command به الكود التالي data1.recordset.movelast x=data1.recordset.recordcount data1.recordset.movefirst combo.additem (text1.text) for i=2 to x data1.rec…

لا يوجد مشكلة في البرنامج!!

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

السلام عليكم لا استحضر طريقة مباشرة الان و لكن اليك طريقة قد تكون طويلة بعض الشئ ضع الصور التي تريد حفظها في مسار معين في جهازك ....اعطي لكل صورة اسم او رمز ... استخدم هذا الرمز في عمود الصور في قاعدة بياناتك لادراج الصورة في الفورم في image1 مثلا استعمل الكود…

مشكور بس هو نفس البرنامج الذي ارسلته انا

جربي الكود التالي Private Sub Command1_Click() For i = Combo1(1).ListIndex To Combo1(1).ListCount Combo1(1).List(i) = Combo1(1).List(i + 1) Next End Sub

هل انت متأكد من الspelling لهذه الكلمة؟ فلم يتعرف عليها الفجوال بيسك عندي

انشئ فورم به زر و اضف اليه الكود التالي Dim y As Integer Dim x(5) As Integer Private Sub Command1_Click() For i = 1 To 10 If i / 2 = Int(i / 2) Then x(y) = i y = y + 1 Print i End If Next End Sub Private Sub Form_Load() y = 0 End Sub هنا x(0)=2 x(1)=4 وهكذا

ما كتبته على الفورم لا يمكن الاستفادة منه و لكن يمكن قبل امر الطباعة ان تضع الناتج في مصفوفة و ذلك بالصيغة dim x(10) و يمكن مناداة اي عنصر بوضع رقمه بدل العدد 10

السلام عليكم غريبة ان اللنك لا يعمل لديك حاول هذا ال link www.filemirrors.com و في مكان الsearch اكتب msdn ستجد ان شاء الله كمية لا باس بها من اصدارات msdn و اول خيار اصدار 2003 الاخير

السلام عليكم انسخ الكود التالي داخل امر الزر g=msgbox("Are you sure you want to exit?",vbyesno,"") if g=vbyes then end

تسلمو Example.zip