mostafazidani

اخواني هل هناك كود يحول رمز الكس ديسمال hex decimal الى اللو ن المقابل لهذا الرمز مثلا من &h8000 الى اللون المقابل له

اذا كنت تستخدم ال data control جرب هذا الكود data1.recordset.movefirst do while not data1.recordset.eof=true data1.recordset.delete loop مصطفى زيداني

اتمنى ان يكون هذا المطلوب واذا لم يكن أخبرني أخوك مصطفى زيداني saveall.zip

السؤال الاول : من المعروف ان الحجم المعروف لل datareport هو حجم ورقة A4 فكيف استطيع طباعة ال datareport على ورقة أكبر من A4 السؤال الثاني : عقود الأيجار لمحلات تأجير السيارات تحتوي على شروط طويلة بمثابة اتفاقية بين المستأجر والبائع وهذه الشروط توجد على نفس الع…

جزاك الله ألف خير أخي ناصر والله كود جميل استفدت منه كثير وكمّل لي المشروعو اللي كان متوقف على طباعة سجل معين عن طريق الداتا ريبورت أخوك مصطفى

أخي الكريم تستطيع حفظ البيانات باستخدام الدالة Savesetting الصيغة العامة لها savesetting application_name,section_name,key_name in Regestry ,settings مثال: savesetting "project1","project","test",text1.text

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

على ما أظن ان لإعدادات التاريخ في الجهاز لها دور . حاولي تغيير اعدادات التاريخ conrol panel-->Regional language options --> Regional options tab-->customize ---> date tab---> short date format ضعي الصيغة التالية dd/mm/yyyy

تستخدم هذه الجملة للقراءة من ملف نصي وتستطيع الكتابة الى الملف عن طريق الجملة open app.path & "\" & "infopath.txt" for output as #filenumber print #filenumber,text1.text close #filenumber تضع بدل filenumber رقم الملف المراد فتحه عن طريق الدالة freefile

اخي وضح سؤالك أكثر

لقد وضعت لست بوكس ثم قسمت النص الموجود في التكست بوكس رقم 1 الى أجزاء ووضعتها في مصفوفة حرف حرف ثم من المصفوفة الى اللست بوكس ثم استخدمت جملة الشرط IF لتفحص عناصر اللست واحدة واحدة من خلال ال FOR LOOP فإذا كان أحد عناصر اللست بوكس رقم فانه يقوم بإضافته الى الت…

في الخدمة

if employee.visible=true then msgbox "employee form is open" end if

تفضل اخي alt+f4.zip

بالتوفيق أخي وعلى الفكرة الكود سهل جدا وأي سؤال عن الكود أنا جاهز أخوك مصطفى زيداني

تفضل أخي get only numbers.rar

[ private command1_click() commondialog.showopen fullpath=commondialog.filename dim separate_file() as string separate_file=split(fullpath,"\") file=separate_file(ubound(separate_file)) list1.additem file Text1.Text=left(list1.list(0),instr(list1.list(0),"."))…

هنا بعض الأوامر الجميلة في أداة ال RichTextBox : RichTextBox.selstart وهي تقوم بوضع مؤشر الكتابة في المكان الذي تريده داخل الأداة . RichTextBox.selstart=0 2- RichTextBox.selcolor وهي تقوم بتلوين النص الذي تضلله طبقا للون الذي تحدده RichTextBox.selcolor=vbred 3…

الله يوفقك

أخي HNHN شكر ا على الرد أولا لقد جربت هذه الطريقة من قبل ولكن هذه الطريقة محدودة بمعنى عندما يكون البرنامج شغال أي مرئي امامي ولكن عندما تقوم بإخفائه وتضغط على أي زر ليظهر الصوت فإنه لايؤدي الغرض المطلوب فما العمل مصطفى زيداني