السلام عليكم
لقد انتهيت من تصميم برنامج لكن ينقصه امرين
السؤال الاول
كيف انقل النص الموجود في التكست الي التقرير في ليبل
اي في form1 يوجد Text6 اريد ان انقل الموجود في text6 الى التقرير في Label6
مع العلم ان القيمه الموجود في text6 ليست موجوده في قاعدة البيانات
السؤال الثاني
اريد عندما اعرض رساله للمستخدم عند امر حذف "Delete"ونوع هذه الرساله vbYesNoCancel يكون الاختيار الافتراضي No بدل Yes
لقد ارفقت مثال اتمنى منكم افادتي
بالنسبة لتعديل ال label فى ال datareport ... عليك تحديد ال section و رقم ال control كما فى المثال
Set DataReport1.DataSource = rs DataReport1.Sections(2).Controls(2).Caption = " I love VB 6" DataReport1.Show 1
اما بالنسبة لجعل زر ال no هو الافتراضى ... ركز فى المثال التالى وستعرف كيف :)
If MsgBox("Do you want to Delete a current record ?", _
vbQuestion + vbYesNoCancel + vbDefaultButton2, "Message") = vbYes Then1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
مشكووور استاذي VB6-Rocket كفيت ووفيت
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…