najy_zl

السلام عليكم... طبعاً الحل الذي قدمه الأخ عبد العزيز اليوسفي (استعمال الدالة Split) هو أسرع و أبسط حل، و هو ناجح في معظم الأحوال، لكن تبقى هناك مشكلة (و ستسبب لك صداعاً !!!). أقصد من ناحية تقسيم الاسم إلى مكوناته بالاعتماد على الفراغات، و ليس من ناحية استعمال …

السلام عليكم... يمكن استعمال المنهج focus لمربع النص، و لكن بعد ضمان ظهوره في الصفحة، و يتم ذلك بإحدى الطريقتين التاليتين: 1. الطريقة الأولى: وضع الكود التالي في القسم head التابع للصفحة: <script language=javascript> document.onreadystatechange=fnStartInit; fu…

السلام عليكم... انسخ الكود var APicture : TPicture ; begin APicture : = TPicture . Create ; try if ADOTable1 . FieldByName ( 'ImageField' ) . IsNull then APicture : = nil else APicture . Assign ( ADOTable1 . FieldByName ( 'ImageField' ) ) ; except ShowMessage …

السلام عليكم... كما في هذه اللقطة: المأخوذة من المشاركة رقم 4 في هذا الموضوع. و شكراً مرة أخرى.

السلام عليكم... إذا كان الكود الذي لديك مطابق للكود المرفق في مشاركتك الأخيرة فإن مشكلته بسيطة، إذ أنه ينقصه إعادة تفعيل المكونات المتصلة بالجدول لأنك تعطلها في البداية باستعمال Table1.DisableControls. و لهذا بعد انتهاء حلقة القراءة من الجدول أضف السطرين التال…

السلام عليكم... إذا كنت تقصد أن يتم الانتقال إلى سجل الأستاذ أو التلميذ في الجدول حسب العقدة التي يتم نقرها في الشجرة فاتبع التالي: 1. يجب أن يكون في الجدول حقل تعريف قيمة فريدة لكل سجل (مثلاً حقل ID يحتوي على قيمة عددية خاصة لكل سجل بحيث لا تتكرر مع سجل آخر).…

السلام عليكم... قد أحتاج أحياناً لوضع نص أجنبي في المشاركة. كيف أجعل ذلك النص يظهر بتنسيق Right-to-Left reading order (و ليس فقط محاذاته إلى اليسار!) دون استخدام الرمز المستخدم للأكواد البرمجية. لقد رأيت ذلك في بعض المشاركات في هذا المنتدى لكني لا أعرف كيف. و …

السلام عليكم... أولاً الكود الذي أرسلته في مشاركتك صحيح! و للتأكد اكتب MsgBox MyBuffer و سيعرض لك النص الموجود في Text1. ثانياً إذا كنت ستسعمل المتغير بهذه الطريقة (أي أن تسند إليه قيمة مثل Text1.Text أو غيرها) فأنت لست في حاجة لتحديد حجمه مسبقاً لأن حجمه سيكو…

السلام عليكم... لتحديد حجم الـ Buffer: 1. قم بالتصريح عن متغير من النوع String. 2. استعمل الدالة String لملئه بالقيم NULL أو الدالة Space لملئه بالفراغات حسب الحجم الذي تريده. انسخ الكود Dim MyBuffer As String MyBuffer = String $ ( 255 , 0 ) ' Fill the variabl…

السلام عليكم... لاستعمال Class Module من برنامج أو ملف خارجي، يجب أن تكون موجودة إما في ActiveX DLL أو ActiveX Exe مترجم (Compiled) و مسجل (Registered) في النظام. أما طريقة الاستعمال: 1. من القائمة Project في مشروعك اختر الأمر References. 2. قم بتحديد اسم التط…

السلام عليكم... ألف مبروك للإخوة swift و merouane و rober و علي .ع و TopSec على الترقيات، و ألف شكر لهم على ما يقدمونه للمنتدى و أعضائه و زواره.

السلام عليكم... ماذا تريد أن تفعل ؟

السلام عليكم... الكود الأصلي: انسخ الكود Dim p As Integer If ro. State = adStateOpen Then ro. Close ro. Open "SELECT * FROM [info]" , cn, adOpenStatic, adLockPessimistic For p = 0 To p With ro . AddNew ! [ Name ] = Text1 ( p ) ! [ Add ] = Text2 ( p ) ! [ phone…

السلام عليكم... ما أحلى المنتدى عندما توجد أفكار للنقاش!! الكود التالي هو نفس الدالة التي كتبتها أنت مع بعض التعديلات عليها. لاحظ تعريف النوع TFindWhichNode الذي يمكن إضافته إلى عبارة type في أعلى الـ Unit أو وضعه في جملة type مستقلة في قسم الـ implementation.…

السلام عليكم... بالطبع يا أخ merouane أعرف الـ DBComboBox !! إنما كان سؤالي أن الأخ TopSec ربما كان يستعمل مكونات إضافية غير الموجودة أصلاً في دلفي. على أية حال بالنسبة إلى إجابة السؤال: 1. إذا كان المطلوب فقط عرض قيم يختار منها المستخدم ليتم تخزين القيمة المخ…

السلام عليكم... عفواً... ما هي الـ DBComboBox التي يتحدث عنها الأخ TopSec لأني لم أجد الخاصية EnableValues و لا الخاصية Values مع الـ DBComboBox في دلفي 7 و لا في دلفي 2007 ؟؟ الرجاء التوضيح للاستفادة. و شكراً.

السلام عليكم... أولاً: الرجاء التأكد من صحة المسارين (المصدر و الهدف)، مثلاً لنقل المجلد "Folder05" من المسار "D:\Folder10\Folder20" إلى المجلد "D:\Folder88\Folder99" يجب أن يكون المسار المصدر (المشار إليه في الكود بالمتغير FolderPath) كالتالي: انسخ الكود D:Fo…

السلام عليكم... من القائمة Project اختر الأمر References، ثم في نافذة المراجع ابحث عن Microsoft Scripting Runtime و قم باختياره ثم انقر OK. استخدم الكود التالي لنقل المجلد: انسخ الكود Private FS As New Scripting. FileSystemObject Private Sub Command1_Click ( )…

السلام عليكم... إذا كنت تريد البحث عن Item (أو Node) يبدأ نصها بالنص الذي تبحث عنه (مثلاً تحديد "محمد أحمد" عند البحث عن "محمد") فاستبدل سطر المقارنة if uppercase(node.text) = uppercase(avalue) then كالتالي: انسخ الكود if Length ( avalue ) < Length ( node . te…

السلام عليكم... مستعدون لمساعدتك لكن السؤال غير واضح أبداً !!! هل الكلام يعني نص؟ و في أي مكان يعني على Form تابعة للبرنامج أم على كل الشاشة، أم.......... نرجو التوضيح و السلام.