بالعربي الفصيح ( أريد تصميم شريط أدوات مثل برنامج العقارات للمحترف )

up

:lol: لما لا تساله بنفسك ان كنت تريده هو بذات ولا تريد المحاولة في عمل ذلك فهو موجود في المنتدى واذا اراد المساعد فسيساعدك

السلام عليكم ...HnHn

هل هو موجود بالمنتدى بنفس الاسم ( المحترف )

والا بأسم أخر

أرجوا الرد ضروري

وبعدين اللي يعرف يعلمني مو شرط المحترف

up

up

الي هذه الدرجة طريقة تصميم هذا الشريط معقده ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟!!!!!!!!!!!!!!!!

هلا بك ياغاااالي ..

معليش انا آسف ماشفت الموضوع ..

سم ياغالي أيش تبي تعرف بالضبط ؟ وانا اشرحه لك ..

بانتظارك ،،،

على فكره انا المحترف :)

السلام عليكم ورحمة الله وبركاته .........

جزاك الله خير .......ونفع الله بك الدين

سؤالي

كيف أجعل شريط الادوات toolbar مع cool bar

مدموجين مع بعض مثل ماأنت عاملهم بالبرنامج وكأنهم شريط أدوات إنترنت اكسبلورر

سأحاول إرفاق ملف وأريد ملاحظاتك علية

أنتظر ردك

معليش والله أنا آسف على التأخير .. :wacko:

سأشرح لك بالتفصيل كيف تضيف التول بار وتضيف الأكواد + الصور ..

أولاً لابد إضافة هذه الأدوات :

وكيفيه إضافة هذه الأدوات . .

كلك يمين على على نفس الشريط واختر Components

ستظهر لك شاشة الأدوات .. ابحث عن الآتي :

ضع علامة صح لأرفاقها وكلك موافق ..

الآن ارفق في مشروعك هذه الأدوات

Toolbar

Imagelist

الآن اذهب على الأداه المرفقه في مشروعك Imagelist1

وكلك يمين عليها واخترProperties لإضافة الآيقونات التي تريد وضعها على التور بار كما موضح:

Insert Picture < لإضافة الأيقونات ..

و Index < لمعرفة رقم الأيقونه المرفقه ...

بعد إرفاق الأيقونات المطلوبه . . تبقى الآن نعبي التول بار .. والطريقه كالآتي ..

أضغط كلك يمين على التور بار واختر Properties

ستخرج لك نافذه .. أعمل الآتي :

كما هو محدد اختر Imagelist1

والآن اذهب إلى التبويب Buttons لإضافة الأزرار ..

1. لإضافة زر جديد

2. اسم الزر

3 . رقم الأيقونه . الموجوده في الأمج ليست ..

الايقونه الآولى مثلاً تعطيك الاندكس 1 .. والايقونه الثانيه تعطيك 2 وهكذا ..

وبهذه الطريقة استطع ان ترفق التول بار + الأيقونات .. والآن بقيت خطوة واحده وهي

كيفيه إضافة الأوامر لهذه الازرار ..

إضغط دبل كلك على التول بار لتفتح لك النافذه لوضع الاوامر ..

وهذي الأوامر :

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index

Case Is = 1
newaqar.Show

Case Is = 3
search.Show

Case Is = 5
note.Show

End Select
End Sub

Case Is = 1

يعني الايقونه الي رقم الاندكس واحد مثل هالصورة ..

newaqar.Show

يعني نفذ هذا الأمر وهو عرض شاشه العقار الي اسمها ’ newaqar ’

وهكذا مع بقية الأزرار ..

أتمنى إني وفقت في شرحي ...

وإن شاء الله يكون واضح ..

واسمح لي على التأخير الغير مقصود ،،

أخوك / البرنــس ( المحترف ) :)

الاخ الفاضل / المحترف

جزاك الله خير وألف شكر على أهتمامك الله يجعله بموازين اعمالك ,,,,,,,,,,,,,,,

لكن باقي فقرة أخيره وهي الفقره اللي انا عجزت اعملها وهي إضافة شريط الادوات الى cool Bar

أتمنى توضيح طريقة عمل ذلك

وعذرا على إزعاجك ,,,,,,,,,,,,

ياليت أحد يرد علي ضروري الله يجزيكم خير

اريد المساعدة في أخر خطوة وهي دمج tolbar مع coolbar

ليصبح شريط ادوات حقيقي مثل شريط أدوات إنترنت اكسبلورر

سؤال ...

يعني مافية أحد الى الان يعرف يصمم مثل الشريط هذا .............

ياليت ماتبخلوا علي بالاجابة .......... ممكن تأخذ منكم وقت بالاجابة ........... لكنها مهمة جدا بالنسبة لي وبتأثر على شكل مشروعي ويمكن حتى بالتقييم

أتمنى المساعدة والامل بالله ثم فيكم

أهلا أخي الحبيب بالنسبة للأداة coolbar هي الشريط الحاضن للاداة toolbar وبالنسبة لربطها مع شريط الادوات فيوجد طريقتين :

الطريقة الأولى:

اضغط على شريط الأدوات بالزر الأيمن وأختار cut ثم أضغط على اللوح المراد وضع الشريط عليه بالزر الأيمن وأختار paste

الطريقة الثانية :عن طريق الكود

Set coolbar.Bands.Item("b1").Child = toolbar

جزاك الله خير ولكن أين أضع هذ اللكود

واريد توضيح من فضلك للكود

أتمنى المساعدة من الجميع

جزاك الله خير ولكن أين أضع هذ اللكود

واريد توضيح من فضلك للكود

أتمنى المساعدة من الجميع

السلام عليكم اخي k.f.u

انت ذكرت شيئ عن برنامج عقاري وين هذا البرنامج محتاجة اشوفة ضروري لانني بصدد تنفيذ برنامج عقاري ومحتاجة للإطلاع على هذا البرنامج

وعندي طلب ثاني الصور في شرح كيفية عمل الريط ليست ظاهرة عندي حابة اصمم نفس الشريط لبرنامجي

من هنا تقدرين تحملين البرنامج من هذا الرابط

http://www.arabmoheet.net/forum/default.as...p;topic_no=9678

بالنسبه للسؤال الثاني لم أفهم قصدك بالضبط لكن

ان كنتي تقصدين طريقة عمل شريط ادوات فتلقين طريقة عمله في قسم الدروس في مشاركه باسم أنشأ مشروعك من الالف الى الياء للاخ ناصر

وبالتوفيق

آسف على المقاطعة , حبيت بس أحطلكم روابط لأفضل Toolbars معمولين للـ VB وبيه , و مفتوحى المصدر :

http://www.vbaccelerator.com/home/vb/code/...rol/article.asp

http://www.planet-source-code.com/vb/scrip...08&lngWId=1

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

والف شكر على تشريفك الموضوع

السلام عليكم ..

شكرا على الرد .. جزاكم الله خيرا

السلام عليكم ... اخوتي الافاضل عندما اقوم لفتح صفحة رابط تحميل البرنامج

يمسح معرفي ولايسمح لي بالتحميل مع اني بحاجة للإطلاع على البرنامج

من يقدر ان يحل هذه المشكلة فلا يبخل علي ...

جزاكم الله خيرا

مشكورين

بعد إذن الادارة ...أختي هذا البرنامج

اتمنى أنك تستفيدي منه

3grat.rar

شكررررررررررررررررررررررررا لك اخي الفاضل

جعلة الله في ميزان حسناتك...

السلام عليكم ... إعذروني زادت طلباتي ,,,,,,

لكني كلي طمع بكرمكم ... .. اتمنى لو تذكرولي كلمة السر لقاعدة البيانات محتاجة اطلع عليها من بعد إذن صاحب المشروع

ثقو بأنني لن اقوم بنسخها او نسبتها لنفسي وإنما ارغب في الاستفادة منها ..

وشكرا لكم