najy_zl

السلام عليكم... لتنفيذ ذلك تحتاج إلى إجراء موحد يقوم بفحص حالات الـ CheckBoxes جميعاً و إنشاء الـ String المطلوب. مثال: ضع على الـ Form 4 مكونات CheckBox و اضبط عناويتنها (Caption) على تسميات الصلاحيات لديك. ضع Memo على الـ Form، و امسح النص من الخاصية Lines ا…

السلام عليكم... بدأت فيها منذ أيام، و قد أضفت لها خاصية NumbersOnly للسماح بإدخال أرقام فقط، و أعمل حالياً على إضافة الخصائص و الوظائف المتعلقة بالتاريخ، لكنني مشغول بعض الشيء هذه الأيام و لا أكاد أجد الوقت الكافي للبرمجة... فالمعذرة. سلام.

السلام عليكم... يبدو أنكم سبقتموني بينما كنت أجهز الرد. على أية حال، في الزيادة إفادة :) . البرنامج في المرفقات. DragDropWithLists.rar نرجو الاستفادة و السلام.

السلام عليكم... كود الحفظ: .Fields("Pass_Date") = "#" & Format$(CDate(Text1.Text), "mm/dd/yyyy") & "#" حيث عندما ترسل تاريخاً إلى قاعدة البيانات أرسله بالتنسيق الأمريكي (الشهر قبل اليوم) مع حصره بين علامتي # حتى تتجنب اختلاف تفسير قيمة التاريخ باختلاف الإعدادا…

السلام عليكم... كود الأخ عبد الجليل العقوري صحيح. الأخ جواد أعتقد أنك استخدمت الحقل الخاطئ حيث أعتقد أن الحقل Name_first هو حقل الاسم الأول للشخص و ليس حقل تاريخ، و بالتالي يعطي خطأ لأنه لا يمكن تنسيقه كتاريخ. لتسهيل الأمر أرجو أن تضع لنا سطر الكود الذي تستخدم…

السلام عليكم... المرفقات تحتوي على الـ Source Code في المشاركتين الأولى و الثانية :happy: سلام.

السلام عليكم... و هذه - في المرفقات - نسخة معدلة حيث يتم عرض كافة الأيقونات الموجودة في ملف EXE أو DLL بحيث يمكن الاختيار منها للنسخ أو الحفظ. IconExtractorAll.rar نرجو الاستفادة و السلام.

السلام عليكم... في المرفقات برنامج لاستخراج الأيقونات من ملف EXE أو DLL أو ICO مع إمكانية حفظ الأيقونة المستخرجة في ملف خارجي بصيغة Bitmap (الامتداد bmp) أو بصيغة Icon (الامتداد ico)، و كذلك إمكانية نسخ الأيقونة إلى الحافظة للصقها في أحد برامج الرسم. * إذا كان…

السلام عليكم... نعم أخي جواد، بعد أن تأخذ النسخة الثانية المعدلة (MultiPartEditOCX2.rar) و لكن ربما من الأفضل استخدام المكون DateTimePicker لإدخال التواريخ. على أية حال: اضبط الخاصية FieldCount على 3 (عدد الخانات). اضبط الخاصية FieldLength على 2 (السعة القصوى …

السلام عليكم... اضبط الخاصية FieldCount على 3 (عدد الخانات). اضبط الخاصية FieldLength على 3 (السعة القصوى لكل حقل). اضبط الخاصية Separator على - (الشرطة أو علامة الناقص الفاصلة بين الأعداد). اضبط الخاصية SizeUnit على 9. إذا كانت خانات الأرقام تقرأ من اليمين إل…

السلام عليكم... تم إجراء بعض التعديلات على المكون TMultiPartEdit، و إضافة الوظائف التالية للتعامل مع الحقول أو الخانات بشكل منفرد: الوظيفة GetField للحصول على نص أحد الحقول أو الخانات. الوظيفة SetField لضبط نص أحد الحقول أو الخانات. الوظيفة SetFieldLength لضبط…

السلام عليكم... في Module نضع الأكواد التالية: Public Const GWL_EXSTYLE = (-20) Public Const WS_EX_LAYOUTRTL = &H400000 Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare …

السلام عليكم... البارامتر المتعلق بالـ ReturnValue هو بارامتر ضمني (لا نقوم نحن بتعريفه)، و هو بارامتر إخراج (OUT) حيث يستخدمه الـ Server لإعادة قيمة إلى البرنامج المستدعي، و يمكننا ضبطه عند تصميم الـ Stored Procedure في SQL Server. إذا كنت لا تحتاجه فلا تهتم …

السلام عليكم... أنا قمت بالتالي: 1. تنزيل الملفات من الموقع، فك الضغط. 2. نسخت المجلد KleverComponents إلى المجلد Source التابع لدلفي. 3. فتحت الحزمة dclusr.dpk الموجودة في المجلد Lib التابع لدلقي. 4. في نافذة الـ Project Manager نقرت على اسم الحزمة بالزر الأي…

السلام عليكم... أولاً يجب تسجيل الأداة في النظام (مرة واحدة طبعاً): 1. انسخ الملف MultiPartEdit.ocx إلى المجلد System32 2. من القائمة "ابدأ" (Start) اختر الأمر "تشغيل" (Run) 3. في نافذة التشغيل اكتب: regsvr32 MultiPartEdit.ocx ثم اضغط Enter. سيعطيك رسالة بنجاح…

السلام عليكم... بناءً على سؤال الأخ جواد قمت بتصميم أداة تحرير (Edit Control) متعددة الخانات، و أرجو أن تكون مفيدة. تجد الأداة مرفقة في موضوع: أداة تحرير متعددة الخانات. نرجو الاستفادة و السلام.

السلام عليكم... بناءً على سؤال الأخ جواد في أحد المواضيع حول الكتابة في مربع النص مع الاحتفاظ بفواصل معينة ضمن النص، فقد قمت بتصميم المكون الموجود في المرفقات (الكود المصدر - Source Code - و ملف الـ OCX). لاستعمال المكون في VB6 يتم نسخ الملف MultiPartEdit.ocx …

السلام عليكم... نعم كما قال أخونا kachwahed فإن ضبط الخاصية Kind للزر BitBtn يؤدي إلى إغلاق النافذة عند نقر الزر. أما ضبط الخاصية ModalResult على أية قيمة عدا mrNone فيؤدي إلى إغلاق النافذة فقط إذا كانت معروضة كـ Modal Form (أي باستعمال الوظيفة ShowModal بدل S…

السلام عليكم... أنا أيضاً لا أنصح بذلك، لسببين: 1. عدم زيادة حجم الملف التنفيذي (EXE) 2. إمكانية تعديل التقرير دون الحاجة إلى إعادة تصريف (Compile) البرنامج. الملاحظتان السابقتان تفيدان خصوصاً في حالة إنشاء تقارير متشابهة أو مشتقة. لنفرض أن لدينا بيانات موظف و…

السلام عليكم... لماذا لا تستعمل المكون DirListBox فهو مخصص لعرض المجلدات و التنقل بينها، و تحدد لها المسار بالكود كالتالي: Dir1.Path = Text1.Text أما إذا كنت تريد استعمال ListBox تحديداً فالكود يكون كالتالي: Private Sub Command1_Click() Dim AName As String Dim…