السلام عليكم ورحمة الله وبركاته
ما هي أخباركم جميعاً ؟
أتمنى ان تكونوا في خير حال وأتم الصحة والعافية - كما يحب ربنا ويرضى - .

أخي (صقر الجزيرة) :
السؤال واضح بما يكفي ولله الحمد .. وفهمت مقصدك .
لكن في الحقيقة هناك عطل ما في جهازي الكومبيوتر الشخصي خاصتي .. وللأسف قد لا أستطيع أن أكتب لك الكود في الفترة الحالية .
الكود سهل ويسير إن شاء الله .. وسأضعه في أقرب فرصة تتاح لي - للأسف وقتي الآن لا يسمح وإنما دخولي الآن خلسة إن صح التعبير - !!.
أخيراً :
أحب أن أتعرف على طريقة دليل الهاتف الذي صممت بها برنامج .. أي الطرق اعتمدت عليها في تصميمك ..
ويا ليتك ترفق لنا الكود لنتعلم منه جميعاً .. وربما نتناقش فيه فلربما وجدنا طرقاً أفضل أو أيسر .

ملاحظة :
بالنسبة لدليل تليفونات (Index) شخصي .. ما هو برأيك يكون عدد الأسماء وأرقام الهواتف الموجودة بداخله ؟
هل ترى أن الموضوع يستحق قاعدة للبيانات ؟
أنتظر ردك ورأيك في الموضوع .
وسأحضر الكود قريباً إن شاء الله تعالى .

أسألك الدعاء بظهر الغيب - بالهدى والتقى والعفاف والغنى - .

تحياني
أبو عبد الله عمر

السلام عليك اخي الكريم
بصراحة انا مبتدئة في عالم البرمجة وبالذات في الفيجوال بيسك بس عندي سؤال هو الألوان كيف ممكن اختار لون غير عن الالوان الموجودة وهل لديك قائمة بالالوان .

شكرا جزيلا لك اخي

السلام عليكم ورحمة الله وبركاته
ما هي أخباركم جميعاً ؟
أتمنى أن تكونوا في خير حال واتم الصحة والعافية كما يحب ربنا ويرضى .

أختي (نسمة هواء) :

بإمكانك مراجعة هذا الرابط :
سؤال عن الاداة Combo
ربما يكون جوابك هناك في ردي وفي المرفقات الموجودة هناك ..
راجعيها وإن وجدت أي مشاكل أنا تحت أمرك

(صقر الجزيرة) :
أين الكوووووووووووووووووووووووووووووووووووووووووود ؟

تحياتي

أبو عبد الله عمر

السلام عليكم ورحمة الله وبركاته
اخي الكريم قد تابعت وقرأة ذاك الرابط من قبل ولكن ما اقصده هو كيف اختار لون او اكتب انا اللون في خصائص الفورم (properties ) شكرا جزيلا مسبقا اخي

شكرا لك اخي على مرورك الطيب ولكن انااعرف كل هذه الخطوات
ولكن احيانا اريد لون غير الالوان الموجودة في الصورة اي يعني ان اكتب الرقم الخاص باللون &h008080ff& مثلا
وطلبي هو اريد قائمة الالوان ان وجدت عندكم لاني اريد ان استخدمها في مشروعي ولا ارغب باستخدام تللك الالوان المحدودة واعذروني اخواني
اتمنى ان اكون اوضحت طلبي وعذرا لكم مجددا

السلام عليكم ورحمة الله وبركاته
كيف أحوالكم جميعاً ؟
أتمنى أن تكونوا في خير حال واتم الصحة والعافية - كما يحب ربنا ويرضى - .

أتأسف جداً على تأخري في الرد .. يعلم الله عدم تمكني من الرد لأعطال جهازي الشخصي - والحمد لله قد أصلحته - .. أنا تحت أمركم الآن .

أختي (نسمة هواء) :
جوابك بسيط وستجدينه في المرفق .. هذه الآداة ColorPicker كما أسماها أخينا (رغيد الطيب) تمكنك من معرفة لون أي شئ .. ومعرفة الرمز المقابل له في الفيجوال بيسك .
ستظهر لك الألوان جميعا اختار الدرجة المطلوبة وسيظهر لك الرقم الذي تستخدمينه في الفيجوال بيسك .
أتمنى أن تفيدك وأن تحقق لك ما تبغينه - وأتمنى أن أكون فهمت المطلوب كما ينبغي - .

أخي (صقر الجزيرة) :
في الحقيقة الكود الذي تتعامل به يعمل بآداة Data Control وأنا لا أعمل بهذه الآداة .. بالطبع كتبت لك كوداً ينفذ لك ما طلبته لكن اعذرني هو ينفذه بطريقة ملتوية .
عموماً الكود مرفق وأظنه سهلاً إلى حدٍ ما وفكرته بسيطة .. وأنت تعتمد عليها ببرنامجك ولكنني طوعتها بطريقة مختلفة قليلاً .
أخيراً لست في حاجة يا صديقي إلى أن تضطر المستخدم إلى أن يضع قاعدة البيانات والبرنامج في مسار معين .. اجعل برنامجك يعمل على أي مسار ...
يمكنك فعل ذلك عن طريق كتابة هذا السطر البرمجي في حدث تحميل النموذج :
Private Sub Form_Load()
Data1.DatabaseName = (App.Path + "\tell97.mdb")
End Sub
بالطبع :
"App.Path "= مسار البرنامج أيّاً كان هذا المسار سواء أكان في C أو في D أو حتى H .. سواء أكان في مجلد جديد أو مجلد اسمه برامج أو حتى VB هو يأخذ المسار كاملاً .
"\ "= لفاصل بين المسارات .. ولكن لاحظ وجود خطأ لو أن برنامجك في مسار C فقط هذا يعني تتابع \\ لأن الأقراص يوضع ورائها \ تلقائياً .. عموماً هذه مشكلة بسيطة وسيتم شرحها في وقت لاحق إذا احتجنا إلى شرحا .
"tell97.mdb" = اسم قاعدة البيانات ..

Data1.DatabaseName = (App.Path + "\tell97.mdb")
هذه تعني أن قاعدة البيانات بجوار الملف التنفيذي للبرنامج .

الكود ها هو يا صديقي .. أتمنى أن يفيدك وأتمنى أن أكون فهمت المطلوب وأديته :

Private Sub Form_Activate()
List1.Clear
a:
If Text1 Like "*" Then List1.AddItem Text1
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
Data1.Refresh
Exit Sub
End If
GoTo a:

End Sub

Private Sub List1_Click()
Data1.Recordset.FindFirst ("name='" + List1.Text + "'")
End Sub

أتمنى أن يفيدك .. وأنا تحت أمرك دائماً ..
لاحظ أنك ستحتاج إلى اضافة هذا السطر في زر الحفظ حتى تتمكن من اضافة ما سيتم اضافته من اسماء جديدة : Form_Activate

ملاحظة أخيرة البرنامج لا يزال به الكثير .. أتمنى أن أراه في صورته النهائية قريباً ..
(كلام في سرك) .. لا تسمح للمستخدم بكتابة الحروف في مكان رقم التليفون .. وأيضاً حدّد عدد الأرقام التي يكتبها .


تحياتي
أبو عبد الله عمر