hishamnasr

السلام عليكم cal.zip

السلام عليكم عليك عمل الاتي من جدول الخواص اولا وضح مسار الدتا بيز في الخاصية databasename ثم من خاصية recordsource اختر اسم الجدول ظلل التكست بوكس من خاصية datasource اختر data1 من خاصية datafield اختر اسم الحقل المراد ربطه

هناك طريقة طويلة قليلا اضف تكست بوكس للفورم بجانب ال flexgrid و سمي الflexgrid fg مثلا اضف الكود التالي Private Sub Text1_Change() fg.Text = Text1.Text End Sub اثناء الرن اضغط بالماوس على على الخلية التي تريد الكتابة فيها واكتب في التكست بوكس

برنامج الكريستال في اي اسطوانة اصلية موجود في جميع اصدارات فجوال استديو من 1 الى الدوت نت عدا الاصدار 6 حيث حاولو فيها دعم الداتا ريبورت غير انهم اعادوها في الدوت نت

السلام عليكم اخواني اعاني من مشكلة وهي عندما انشئ برنامج كامل و اريد ان اصنع منه ملف setup عن طريق ال package and deployment لا يعمل البرنامج في بيئة xp مع ملاحظة ان البرنامج الاصلي مصمم في win me و جربتها في العديد من النسخ المختلفة من xp و لم تنجح ......فهل …

if dtpicker1.value>" 21/01/2004" then

اولا انا اسف لخبطت بينك و بين احدى الاخوات في المنتدى اذا اضفت الاداة للفورم فالتعامل معها بسيط .value تقوم بقراءة التاريخ يمكن معرفة اليوم او الشهر عن طريق .day and .month على فكرة الاداة تستخدم للتاريخ و للزمن و يمكن ضبط ذلك من costum لمقارنة تاريخين في الاد…

السلام عليكم اشكرك اخ مهند على الدروس القيمة و لدي استفسار لي صديق يبرمج بالدوت نت و في components لم يجد الاداة flexgrid اظن انها موجوده باسم اخر او طريقة اخرى ارجو المساعدة و للاهمية ارجو السرعة في الاجابة

اسهل من ده كله استعملي من components الاداة microsoft windows common controles 260 ستضيف مجموعة من الادوات من بينها dtpicker وهي اختصار date and time picker ملاحظة : راجعي حرمة الابراج الدينية حتى من باب التسلية

اذا اردت الكتابة في الخلية (0و0) اسم hisham فعليك بالكود التالي MSFLEXGRID1.col=0 MSFLEXGRID1.row=0 MSFLEXGRID1.text="hisham" لاحظ الفرق بين col التي تجدد عمود الكتابة و cols التي تحدد عدد الاعمدة وكذلك row and rows

لاضافة لون استعمل الدالة rgb(255,255,255) هذه الحروف الاولى من red green blue واكتب الدرجة لكل لون من 0 الى 255 او اضف الاداة ms commom dialog من components و استعمل الصيغة .showcolor او استعمل vb ثم اي لون مثلا form1.backcolor= vbwhite

طبعا الانتقال الى اللغة يتم باستعمال alt+ shift استعمل الدالة sendkeys و التي ترسل رمز من الكيبورد مثلا sedkeys "a" ترسل الحرف a بالنسبة لل alt تاخذ الرمز % لمزيد من الامعلومات الرجوع للنك sendkeys

استعمل هذا اللنك لتقارير داتا ريبورت data report introduction

تعيد 5 اضعاف زمن الاغنية و ليس 5 ثواني

راجع الكود اخ راكان مش حيشتغل لخمس ثواني انما لخمسة اضعاف زمن الاغنية و كودي انا جربته و شغال

السلام عليكم استعمل الميديا بليير من components و من الخاصية custom غير تكرار repeat الى ما لا نهاية اضف timer للفورم و تكست بوكس و اجعل ال interval بتاعه 1000 , وفي كود التايمر اكتب التالي text1.text=val(text1.text)+1 if val(text1.text)>( mediaplayer1.endposi…

والله سبحان الله اثناء ارسلك للرسالة انا كنت احاول في نفس الطريقة خذ طرف الخيط وواصل Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 65 And KeyAscii < 90 Then End If End Sub

وهنا ضع بدلا من الحرف باء كرر mid(text1.text,i,1)="" وضع باقي الحروف لكني لست متاكد من وجود دالة مباشرة لعمل ذلك

في الحقيقة لا اذكر طريقة حاليا لمنع الحروف العربية او الرموز الا عن طريق جملة if للحرف المستقبل و لكنها طريقة طويلة مثلا لو اردنا منع كتابة حرف الباء مثلا نستعمل الكود التالي Private Sub Text1_Change() For i = 1 To Len(Text1.Text) If Mid(Text1.Text, i, 1) = "ب…

استعمل الدالة isnumeric مثلا اضف تكست بوكس للفورم و اضف الكود التالي Private Sub Text1_Change() If Not IsNumeric(Text1.Text) Then MsgBox "not number" End Sub