najy_zl

السلام عليكم... مثال في المرفقات. AddTextBoxes.rar نرجو الاستفادة و السلام.

السلام عليكم... الطريقة السهلة هي استعمال مصفوفة المكونات (Control Array). لإنشاء مصفوفة المكونات (لمربع نص مثلاً) ضع مربع النص (TextBox) على الـ Form ثم اضبط الخاصية Index لمربع النص على 0، و اضبط الخاصية Visible على False. أما مكانه فغير مهم. في قسم التصريحا…

السلام عليكم... في العادة لا أكتب مشاركات من أجل التحية فقط :) لكنني أردت أن أقول لأخي و زميلي Sniper.ps (من vb4arab) نورت منتديات الفريق العربي للبرمجة (ArabTeam2000) و لو أنك لسه عضو جديد هنا ( :) بالطبع أعرف خبرتك في VB و أتمنى أن تثري هذا المنتدى بمواضيعك)…

السلام عليكم... الكود المرفق لا يحتوي على أية جملة تستعمل القيم المسندة إلى المتغير Flag و بالتالي لا يمكن معرفة الغرض منه. ابحثي في بقية الكود لديك عن جمل تستعمل هذا المتغير، مثلاً في جمل If أو Select Case أو حيث يظهر هذا المتغير على يمين علامة (=). نرجو الاس…

السلام عليكم... إذا كنت تقصد الأخطاء التي قد تنشأ من برنامجك فربما يكون من الأفضل تسجيل تقرير عن الخطأ - بدل تصوير نافذة رسالة الخطأ - و ذلك بإنشاء مصائد أخطاء (Error Traps) جيدة، حيث يمكنك تسجيل كل المعلومات عن الخطأ، مثلاً: رقم الخطأ، نص رسالة الخطأ، وقت و ت…

السلام عليكم... 1. أضف المكون ImageList إلى النموذج. 2. اختر الخاصية Custom التابعة للمكون ImageList 3. حدد حجم الأيقونات. 4. حمّل الصور التي تريد استخدامها للأزرار. من المهم أن يكون اللون الخلفي لكل الصور هو نفسه إذا أردت أن تكون خلفية الصور شفافة. 5. يمكنك إ…

السلام عليكم... الأنواع التعدادية (Enumerated Types) توفر ميزتين أساسيتين: 1. إعطاء أسماء للقيم: و هذا يشبه مسألة استخدام الثوابت (Constants)، حيث يكون استخدام اسم القيمة أسهل بكثير من استخدام القيمة نفسها، خاصة مع القيم التي يصعب تذكرها. كما أن استخدام الاسم …

السلام عليكم... كما تفضل أخونا mr_mgm ، أي بإضافة رمزي الصباح و المساء، لكني أردت أن أبين كل الصيغ الممكنة في هذه الحالة: Format(Now, "hh:nn:ss AM/PM") يعرض AM للفترة الصباحية و PM للفترة المسائية (حروف كبيرة). Format(Now, "hh:nn:ss am/pm") يعرض am للفترة الصب…

السلام عليكم... باستعمال ADODB.Recordset قم بجلب كل السجلات التي تحتوي على الرقم 1 في الحقل CODE بجملة SQL كالتالي: SELECT * FROM Table2011 WHERE (CODE = 1) * إذا كان الحقل CODE نصياً فضع الرقم 1 بين علامتي اقتباس فرديتين. بعد ذلك، و باستعمال حلقة، قم بإضافة ا…

السلام عليكم... بالطبع يجب أن يكون تعريف الـ Procedure في SQL Server متضمناً للـ Parameters التي تريد تمريرها (أعتقد أنك لا تقصد هذه النقطة، و لكني للتوضيح فقط أذكر هنا جزء من تعريف Procedure لأحد برامجي): CREATE PROCEDURE [dbo].[P_TransferAllAccounts] (@CID i…

السلام عليكم... عنوان مخالف ، و موضوع مخالف لا علاقة له بالبرمجة !!!!! سلام.

السلام عليكم... هناك ملف DLL لا تقوم برامج التحزيم (حتى المرفق مع VB6) بتضمينه، و هو ضروري للغات التي تكتب من اليمين إلى اليسار. هذا الملف هو vbame.dll حيث يجب وضعه في المجلد System32 في جهاز العميل. يمكنك إضافته يدوياً عند إعداد حزمة التنصيب. نرجو الاستفادة و…

السلام عليكم... لقد ذكر أخونا فادى_سى_بلس_بلس مشكوراً الخلاصة المفيدة دون الحاجة إلى الدخول في مقارنات بين اللغات المختلفة. منذ أن عرفت دلفي (بداية من النسخة 5، و الآن على نسخة 2010) و أنا أقول دائماً أن من اخترع فكرة الـ Visual Component Library = VCL و الـ P…

السلام عليكم... مبدئياً: انقل DoEvents إلى داخل الحلقة (بعد RS.MoveNext) لأن فائدة DoEvents تكون داخل الحلقة و ليس خارجها. ثم جرب التشغيل مرة أخرى. ثانياً: ماذا تقصد بـ "يتوقف عن العمل" ؟ هل يمتنع عن الاستجابة ؟ أم ي عطي رسالة خطأ عند سطر معين ؟ أم ي كمل الحلق…

السلام عليكم... ' في قسم التصريحات العام Private Const SW_NORMAL = 1 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpD…

السلام عليكم... و الله يا أخي shalwan يبدو أن لا أحد فهم ما تريده، أو أنك لم توضح المطلوب بشكل صحيح. مشاركتي الثانية في موضوعك هذا كان بها مرفق يحتوي على مشروع بالشكل التالي: * نافذة صغيرة أسفل الشاشة و بعرض الشاشة، لا يمكن تحريكها و لا تغيير حجمها و لا إغلاقه…

السلام عليكم... اكتب الإجراء التالي للحصول على الإحداثيات الثلاثة: procedure GetCoords(const CoordStr: string; var X, Y, Z: Real); var XPos, YPos, ZPos: Integer; MyStr: string; begin X := 0; Y := 0; Z := 0; MyStr := UpperCase(Trim(CoordStr)); if MyStr = '' the…

السلام عليكم... شكراً للأخ عبد الرحمن، و تكملة لكلامه فإن استعمال المفتاح Tab هي الطريقة الصحيحة و المستعملة في كل البرامج - و أنا أيضاً أفضلها - لكن هناك مستخدمون (زبائن) يصرون على استعمال المفتاح Enter للانتقال من خانة إلى أخرى (و هي طريقة قديمة كانت مستعملة…

السلام عليكم... طبعاً سيعطي خطأً لأن المتغير b2 عبارة عن string و ليس Object. إذا أردت الوصول إلى كائن عن طريق اسمه كـ string فإنه يمكنك استعمال الدالة FindComponent مع تحويل النوع (Type casting) فيكون الكود كالتالي: if TCheckBox(FindComponent(b2)).Checked the…

السلام عليكم... طبعاً ممكن. افصل بين النصوص برمز الانتقال إلى سطر جديد - vbCrLf MsgBox "هذا السطر الأول" & vbCrLf & "هذا السطر الثاني" نرجو الاستفادة و السلام.