hishamnasr

السلام عليكم هذه بعض الامثلة /index.ph...=post&id=202360

السلام عليكم حاول ان تضيف من components الادوات من Microsoft Windows Common Controls ,و اختر الاداة dtpicker وهي اختصار ل date and time picker واستعمل الكود التالي لارجاع اليوم dtpicker1.day والشهر dtpicker1.month وهكذا

السلام عليكم هذا البرنامج المطلوب ولكن يحتاج الى تعديل كثير تحتاج فيه الى 2 تكستبوكس وزر Dim l As Integer, s(4) As String, k1, k2, k3, k4 Public Function sam(k1, k2, k3, k4) If k1 = 1 Then s(0) = " æÇÍÏ " If k1 = 2 Then s(0) = " ÇËäíä " If k1 = 3 Then s(0) = "…

السلام عليكم انا اعرف ان الخاصية forecolor تغيير لون الخط و لكن اذا كنت تريد ان اكتب في تكست بوكس باكثر من لون مثلا ه ش ا م فكيف ذلك؟؟؟ و لكم جزيل الشكر

السلام عليكم لست متأكدا من الكود كاملا و لكن ابحث في ال Help على الامر fopen و هو يتيح لك التعامل مع الملفات و الاضافة و الحذف

السلام عليكم ركز على الكتابين للاستاذين العسيري ( و هو موجود بالمنتدى ) و الاخر للاستاذ مجدي ابو العطى

السلام عليكم اعتقد ان جميع الاخوة في المنتدى على استعداد للمشاركة و التعاون في البرنامج و ححتى تعم الفائدة نرجو ان يكون تحليل و تصميم البرنامج ليس حكرا على مجموعة معينة بواسطة الايميل و لكن يكون مطروحا للجميع في المنتدى حتى يستطيع كل عضو ان يتابع و يستفيد و يع…

السلام عليكم من افضل الكتب في الفجوال بيسك هو كتاب الاستاذ مجدي ابو العطى و هو متوفر في مكتبات السعودية و الجزء الثاني منه ركز في اغلبيته على الداتا بيز و الربط مع اكسس ...الخ

السلام عليكم في حالة الارقام و نفي = نستخدم <> كما ذكر الاخ مصعب و لكن في النفي عموما نستعمل if not مثلا if not x=3 then ' order

السلام عليكم الطريقة التي ذكرتها يمكن ان تنجح و لكن طريقة طويلة و معقدة و لكن اذا حاولت و لو لمدة نص ساعة ان تقرأ عن كريستال ريبورت ستجده ممتع و سهل اكثر مما كنت تتوقع ال source and help للكريستال موجود بمنتدى الفجوال بيسك مع اسئلة و اجوبة هامة عن الموضوع نفسه

السلام عليكم اضف الكود التالي اذا كنت تربط الداتا بيز بواسطة داتا كنترول msflexgrid1.clear data1.refresh msflexgrid1.datasource=data1

السلام عليكم اضف الكود التالي اذا كنت تربط الداتا بيز بواسطة داتا كنترول msflexgrid1.clear data1.refresh msflexgrid1.datasiurce=data1

السلام عليكم اتبع اللنك هنا

السلام عليكم استعمل الفورم المسمى option form تجده عند اضافة فورم جديد

السلام عليكم عند التعامل مع database و لست متاكدا من انها فارغة ام لا و اعطيت الامر data1.recordset.movlast و لم يكن هناك اي record بالداتا سيعطيك البرنامج error و كذلك في اي برنامج اخر قمت بعمله و تخشى رسالة الخطأ التي تخرج المستخدم من البرنامج هنا عليك اضافة…

مثلا اذا اردنا ارجاع الحروف حرفا حرفا dim s(10) as string , x as string x="hisham" for i=0 to 5 s(i)=mid(x,i,1) بنفس الطريقة استعمل الكود التالي لكتابة نص بالمقلوب فقط اضف 2 تكست بوكس و زر للفورم Private Sub Command1_Click() Text2.Text = "" For i = Len(Text1.T…

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

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

السلام عليكم استعمل الاوامر left ,right , mid left تقرأ من اول النص right تقرأ من اخر النص mid تقرأ من اي من اي مكان بالنص مثلا المتغير x من النوع string x="hisham" s=left(x,2) ترجع hi s=right(x,3) ترجع ham s=mid(x, 2,3) ترجع من النص x ابتداء من الحرف الثاني 3…

السلام عليكم لننتقل الان الى موضوع اخر مع بعده البسيط عن الرسم الا و هو الحركة في الفورم اولا : الحركة الافقية و الراسية و هنا نستعمل الامر TOP ,LEFT Private Sub Command1_Click() Command1.Left = 0 End Sub الكود السابق يحرك الزر الي يسار الشاشة عند النقر عليه و…