realdie10

مافهمت سؤالك ؟ اذا كان قصدك معرفة القيمة في خلية في سطر المحدد لـ datagrid تكون كالتالي : text1=DataGrid1.Columns (0).Value text2=DataGrid1.Columns (1).Value

عدل السطر التالي الموجود في setColor If Mid(txt, g, l2) = Mid(txt, g, l2) & ReplaceString(Mid(txt, g + l2, rchLen)) Then GoTo 20 الى الكود التالي : If Mid(txt, g, l2) = Mid(txt, g, l2) & ReplaceString(Mid(txt, g + l2, rchLen)) Then If g + rchLen <= Len(txt) Th…

اضف Timer1 و Label4 الى النافذة بحيث label4 بتكون فيها الفترة الزمنية وقم بتعديل زر البحث command1 الى التالي Private Sub Command1_Click() Label4.Caption = 0 Timer1.Interval = 1 Call Amro Timer1.Interval = 0 End Sub اما في حدث timer1 يكون كالتالي: Private Sub …

حطي السطر التالي في حدث form_load Me.Hide

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

البرنامج في المرفق 2.rar

السلام عليكم يامحب لله ورسوله بصراحه في البداية استسهلت البرنامج ولما شفت التشكيل شفت المشكلة المشكلة انك لما تبعد التشكيل عن النص الاصلي لعملية المقارنة وافترضنا حددت الموقع مثلا ( كلمة "جبال" الموقع 65 طول الكلمة 4 لما تروح للنص الاصلي (النص مع التشكيل ) الم…

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

اخي اسلام لو قرأت اخر رد لي كان مكتوب فيه

عفوا اختي على هذا الخطا حملي البرنامج مرة ثانية برنامج.rar

ضع في نافذة form5 زر command باسم cmdOK والكود كالتالي Private Sub cmdOK_Click() Form4.Text7 = Adodc1.Recordset.Fields("Beneficiary_ID").Value Unload Me End Sub طبعا طريقة مبسطة في طريقة ثانية في حالة انك تستخدم نافذة البحث في اكثر من نافذة فلازم تعمل متغير من…

برنامجك في المرفقات وإن شاء الله يكون تمام برنامج.rar

السلام عليكم يا اخي awies لو بتقدر تتعامل مع قاعدة بيانات بحيث تنشأ جدول خاص بالسور كالتالي: الرقم اسم ملف السورة الفترة الزمنية والفكرة بان تقرا السجل الاول من الجدول وتاخد اسم ملف الصوت وكذلك الفترة الزمنية والتي تسندها الى timer1.Interval وبعد مرور الفترة ا…

يا اخي عفوا لاني لم افهم قصدك ؟؟؟؟ هل تقصد انك تدخل حرف ليس بضرورة a فقد يكون b او K او df وهل بضرورة في البداية تكتب الرقم مع الحرف ( مثلا a1 ) او انه ليس بضرورة فتدخل مثلا (a والكود يضيف بعد ذلك الرقم a1,a2,a3) ممكن تشرح اكثر المهم حول السطر التالي Text55.Te…

لا قصدي خطأ في المعلومة انا قلت الخاصية text ترجع القيمة المنسوخة في الذاكرة وهذا خطأ الخاصية text ترجع النص المحدد في ورقة الورد (النص المظلل )

عفوا على الحطأ الخاصية text ترجع النص المحدد اما القيمة في الذاكرة اما عن طريق API للوصول الى Clipboard او عن طريق تعريف متغير من نوع DataObject وبذلك باضافة mirosofr Forms 2.0 object labriy ملف باسم FM20.dll Public Sub copyToClipboard() Dim MyText As DataObje…

بالنسبة للتعديل حسب ماشفت من برنامج بيكون كالتالي لاحظت كود عند النقر على listview1 وهو Private Sub ListView1_Click() On Error Resume Next Text1.Text = ListView1.SelectedItem.SubItems(1) End Sub اضيفي سطر التالي لكي يصبح Private Sub ListView1_Click() On Error …

ياخت سلمى حاولي تبحثي في المنتدى اكيد في مواضيع تشرح الاضافة والحفظ والحذف من الالف الى الياء المهم بالنسبة للاضافة والحفظ rs.AddNew rs!id = 10 rs!a1 = "مدعي10" rs.Update بالنسبة لـ ListView1 اما انك تعملي كود يضيف مع الاضافة للقاعدة البيانات او انك تقومي بإعا…

بالنسبة لمعرفة الكلمة المنسوخة تكون عن طريق الخاصية text sStr=Selection.Text بعد ما اسندنا القيمة الى المتغير sSTr تبقى عملية البحث وتكون كالتالي Selection.Find.Text = sStr Selection.Find.Execute السطر الاول تحديد الكلمة المراد البحث عنها السطر الثاني تنفيذ عم…

حمل من المرفقات كل من التشغيل التلقائي startup وضع الايقونة في شريط المهام systray systray.rar startup.rar