najy_zl

السلام عليكم... هذا مثال للوصول إلى قائمة جهات الاتصال (Contacts) في برنامج MS Outlook (النسخة التي لدي هي 2003). 1. من القائمة Project اختر الأمر References 2. قم بتحديد المكتبة Microsoft Outlook xx.x Object Library (حيث xx.x هو رقم النسخة. أنا لدي 11.0). 3. …

السلام عليكم... الطريقة التي أفضلها هي استعمال نافذة بحث صغيرة (يمكن إبقاؤها دائماً في المقدمة) تحتوي على خانة أو أكثر لإدخال نصوص البحث و زر للبحث وADOQuery و DataGrid لعرض النتائج. مع استعمال جملة SQL لفتح الـ Query. و عند اختيار أي سجل في نافذة البحث يتم ال…

السلام عليكم... لا تستطيع التحكم في مقدار الزيادة (أو النقصان) في حلقة for في دلفي كما هو الحال مع VB، لكن يمكنك تحويل الكود السابق بأكثر من طريقة، مثلاً: انسخ الكود procedure TFRtlForm1 . Button1Click ( Sender : TObject ) ; var I : Integer ; begin for I : = 0…

السلام عليكم... طبعاً: انسخ الكود Private Sub Command3_Click ( ) Command1_Click Command2_Click End Sub نرجو الاستفادة و السلام.

السلام عليكم... يظهر هذا الخطأ عندما يصبح حجم الإجراء (Sub أو Function) عند ترجمته (Compiled) أكبر من 64 كيلوبايت. الحل: قم بتقسيم الإجراء إلى مجموعة من الإجراءات الأصغر بحيث يتم استدعاؤها بشكل ملتتالي أو حسب الحاجة. نرجو الاستفادة و السلام.

السلام عليكم... انسخ الكود Private Sub Text1_KeyPress ( KeyAscii As Integer ) If KeyAscii > 31 Then If KeyAscii = Asc ( "." ) Then If InStr ( Text1. Text , "." ) <> 0 Then KeyAscii = 0 ElseIf ( KeyAscii < Asc ( "0" ) ) Or ( KeyAscii > Asc ( "9" ) ) Then KeyAsc…

السلام عليكم... حسب ما أعتقد أنك لم تجرب الكود الذي كتبته في مشاركتي السابقة، أو أنني لم أفهم المشكلة. لاحظ أنه هناك فرق بين هذه الجملة: انسخ الكود "select * from table1 where YYY like '" & XXX & "'" و هذه الجملة: انسخ الكود "select * from table1 where " & YYY…

السلام عليكم... المرفقات تحتوي على ملحق (Add-In) خاص بالـ Visual Basic و هو عبارة عن أداة بسيطة لحفظ الملفات (Modules, Class Modules, Forms, MDIForms, Property Pages, User Controls, User Documents) على هيئة قوالب (Templates) يمكن إضافتها بعد ذلك إلى أي مشروع م…

السلام عليكم... انسخ الكود Dim XXX As String DIM YYY As String XXX = TEXT1. TEXT YYY = TEXT2. TEXT RS. Open "SELECT * FROM table1 WHERE " & YYY & " like '" & XXX & "'" , DB, adOpenStatic, adLockRe adOnly لاحظ وجود فراغ بعد كلمة WHERE و قبل كلمة LIKE داخل علاما…

السلام عليكم... المثال المرفق في دلفي لا يحتوي على طريقة لضبط النص من الجانبين، كما يطلب الأخ. يمكن ذلك بإرسال رسالة (SendMessage) إلى الـ RichEdit كالتالي: 1. أضف الوحدة RichEdit إلى جملة uses في قسم الـ interface 2. استعمل الكود التالي انسخ الكود procedure T…

السلام عليكم... معك حق إذ لم أنتبه لتلك النقطة. على أية حال تحتاج فقط لتغيير صيغة جملة SQL كالتالي: انسخ الكود SQLStr = "SELECT bdTbl.Name, bdTbl.Birthdate FROM bdTbl " SQLStr = SQLStr & "WHERE (DateDiff('d', Date(), DateSerial(Year(Date()), Month([birthdate])…

السلام عليكم... استعمل الكود التالي في الحدث Form_QueryUnload انسخ الكود Private Sub Form_QueryUnload ( Cancel As Integer , UnloadMode As Integer ) If MsgBox ( "هل تريد بالتأكيد الخروج؟" , vbQuestion Or vbYesNo Or vbMsgBoxRight Or vbMsgBoxRtl Reading, "تأكيد ا…

السلام عليكم... النسخة الثانية مع دعم RightToLeft TransparentControlsTrick2.rar نرجو الاستفادة و السلام.

السلام عليكم... البرنامج المرفق يحتوي على خدعة صغيرة تجعل الـ OptionButton أو الـ CheckBox يبدو شفافاً. * في كل نافذة تحتاج فيها لمثل هذا الإجراء تلزم إضافة: = Label مع ضبط الخاصية Name على lblBoxTitle و ضبط الخاصية Index على 0. = Shape مع ضبط الخاصية Name على…

السلام عليكم... انسخ الكود Private Sub Command9_Click ( ) Dim RsTenDays As Recordset Dim SQLStr As String SQLStr = "SELECT bdTbl.Name, bdTbl.Birthdate FROM bdTbl WHERE " & _ "(DateDiff('d', Date(), DateSerial(Year(Date()), Month([birthdate]), Day([birthdate]))…

السلام عليكم... الخاصية Text للكائن TField لا تعطيك القيمة المحفوظة في الحقل، بل النص أو التنسيق الذي يتم عرضه في المكون المرتبط بالحقل أثناء تحرير قيمة الحقل. للحصول على القيمة المخزنة في الحقل استعمل الخاصية AsString للحقل أو الخاصية FieldValues للـ DataSet …

السلام عليكم... كلنا هنا لنتعلم. الـ InputBox ليست أداة من الأدوات، بل هي دالة تستعمل للحصول على إدخال من المستخدم حيث تقوم تلقائياً بعرض نافذة جاهزة في Visual Basic. تستعمل للدالة InputBox كالتالي: انسخ الكود Dim X As String X = InputBox ( "الرجاء إدخال اسم ا…

السلام عليكم... إذا كنت تقصد الكود المرفق في المشاركة رقم 6 فالتوضيح هو: الخطأ هو استعمال كلمتي Private و Public كجمل مستقلة. هاتان الكلمتان تستعملان فقط ضمن تعريف الـ Class و التي يمكنها أن تضم 4 أنواع من المحددات (Private و Protected و Public و Published) كم…

السلام عليكم... ضع الكود التالي في Module انسخ الكود Public Enum TAllowedChars tacArabicOnly tacEnglishOnly tacBothLangs End Enum دالة شاملة للتأكد من الإدخال Public Function AcceptChar ( KeyAscii As Integer , AllowedChars As TAllowedChars, Optional IncludeSpa…

السلام عليكم... ربما تكون هذه المشاركة غير متعلقة بعنوان الموضوع، لكنها إجابة على تساؤل الأخ Framework2: بالنسبة إلى تحديد المتغيرات و الثوابت و الإجراءات و الدوال الخاصة (Private) و العامة (Public) في دلفي فالأمر سهل: * كل ما هو مصرح عنه في القسم interface فه…