mrx_ta7ady

نعم .. خاصية الـ SelText هي التي تحوي النص المظلل داخل الـ TextBox .. علما بأنها تكون فارغة في حالة اللا تظليل وخاصية الـ ForeColor هي التي تحوي لون النص للـ TextBox .. كل النص وليس المظلل فقط كما ان اللون يتحول باهتا عند تغيير خاصية الـ Enabled إلى False وفي …

بالفعل ممكن تظليل كلمة وممكن معرفة الكلمة المظظلة أيضا لو إفترضنا أنا الـ Text1 به قيمة " الفريق العربي للبرمجة " .. وهدفنا تظليل كلمة " العربي " X = InStr(1, Text1.Text, "العربي", vbTextCompare) If X > 0 Then Text1.SelStart = X - 1 Text1.SelLength = Len("العر…

المشكلة غريبة فعلا وانا لا اعلم لها قاعدة او منطق .. ولكني إستنتجت شيئا ان الإعتراض يكون حين إدخال متغيريات من نوع واحد في عملية حسابية ناتجها يتجاوز الحد الأقصى لهذا النوع على سبيل المثال : X = CByte(128) + CByte(128) + CLng(50000) Dim X As Long لأن ناتج المت…

اهااا .. قومي بتغير خاصية الـ MultiLine إلى True أولا لجعل الـ TextBox يقبل أكثر من سطر ثم بعدها أكتبي ما تشائين فيه .. ولكن لابد وان تعلمي ان السطر الجديد يعني vbNewLine أي إذا أردتي كتابة " الفريق العربي للبرمجة " على 3 سطور .. ستكون بهذه الطريقة Text1.Text …

السلام عليكــم ورحمـة الله وبركاتــه أمامك طريقتين لضغط وإصلاح قاعدة البيانات الأولى بإستخدام الـ DAO وتتطلب تحميل مكتبة الـ Microsoft DAO Object Library وتكون بإضافة هذا الـ Code إلى Module مثلا On Error GoTo Err: Dim TMPAttr As Long Dim TMPPath As String TMP…

يعني إنت عاوز تقنعني إن الكود ده ممكن تظهرلك فيه مشكلة ؟؟ Dim Red As Integer For R = 1 To 255 For Max = 1 To 255 Red = Average * R / Max Next Max Next R Const Average = 52 أو ده ؟؟ Dim Red As Long For R = 1 To 255 For Max = 1 To 255 Red = Average * R / Max Nex…

هل تتحدث عن محاذاة الأداة ؟؟ أم ظبط التنسيق ؟؟ على كل التعديل في المرفقات وأتمنى اكون فهمت صح المره دي YMS12.rar

يا أخي المعطيات السابقة بها إحتمالات كثيره جدا ليزيد الناتج عن 255 أو يقل عن صفر أي مثلا لو الـ Average يحمل قيمته 52 والـ R يحمل قيمته 5 أو يزيد والـ Max يحمل قيمته 1 فالناتج سيزيد عن 255 انت تفكر في ان قيمة الـ Max و الـ R هي التي لابد وان تقل عن 255 .. بينم…

مش مسألة ان محدش عاوز يرد .. لكن انا عن نفسي كنت فاكر انه خلاص من زمان وعموما التعديل في المرفقات وآسفين على التأخير ولكن عليك أن تعلم أني قمت بإضافة جدول جديد وسميته TMPNames test.rar

الدالة تمام وكل حاجه سليمه .. او انا مش فاهم .. طيب ياريت مثال يثبت فشل إستخدام الدالة Chr وياريت تجربي الكود ده الأول Text1.Text = Chr(212) & Chr(219) & Chr(199) & Chr(225) & Chr(191)

الرد في المرفقات Word_and_VB6.rar

ولماذا الـ Label ?? هل الـ TextBox غير مناسب ؟؟ ولماذا ؟؟

بالنسبة للثانيا في المشاركة السابقة فالرد هو بإمكانك تفصيل أي تنسيق كما يليق لك وهذا إذا علمت الآتي : yyyy = السنة ( أي إذا كانت السنة الحالية تكون 2009 ) yy = السنة ( أي إذا كانت السنة الحالية تكون 09 ) MMMM = الشهر ( أي اذا كان شهر يناير يكون بإسمه يناير ) M…

السلام عليكــم ورحمـة الله وبركاتــه إستخدم هذا الـ Code Text3 = Format(Val(Text2) * Val(Text1), " #,##0.000") ولاحظ أن الـ Format هو نفسه الذي وضعته أنت في الـ Text1 وبإمكانك أيضا وضع الـ Format في الـ Text3 نفسه دون إستخدام اي تنسيق في عملية الضرب

الرد في المرفقات FLDR_Fixed.rar

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

إستخدم الأداة ListView .. وستجدها في Microsoft Wiindows Common Controls عند إضافة Component

تأكد من وجود حقل يحمل نفس الإسم Days_Count داخل جدول tblHolidays لقد قمت بإنشاء الثلاثة جداول المستخدمه داخل قاعدة بيانات مع كل الحقول المستخدمه أيضا والأمور على ما يرام عندي .. في حالة وجود تأكدك من وجود الحقل المذكور داخل الجدول المذكور فيرجى إرفاق قاعدة بيا…

بالنسبة للشق الأول فلا حل للتاريخ الهجري مع الـ DTPicker وبالنسبة للشق الثاني .. اعتقد انك تستخدم MSFlexGrid والحل هو وضع التسميه بعد ملأ الـ Grid .. أي لو إفترضنا مثلا أنك تملأ الجريد بهذه الطريقة Set MSFlexGrid1.DataSource = MYRecordset ستضع التسميه بعدها به…

إتبعي هذا الرابط وستجدي فيه ما ينفعك إن شاء الله http://support.microsoft.com/kb/313193/ar