البداء بإستخدام أدوات Codejock

أنا بانتظارتك ...

حسنا اخى انا ساعد المثال

مثال للشريط الحالة

StatusBar.zip

مــــــــا يـــجــــيـــــبــهـــــــــــــــــــــا إلــــى إرجــــــــــــــــــالـــــــــهـــــــــــــــــــــــــــــا .

===============================================

مشكور يا أخ "يوسف الزياني" لك من التحية.

وما ننسى الأخ "حريف برمجـة" له تحية.

وش دعوة ماسوينا شي يا " ans_adil"

بس على فكرة أنا إسمي يوسف الزين .... مش الزياني.... هههههه :lol:

شكراً على المثال السابق و لكن في عندي استفسار في الكود

Public WithEvents StatusBar As XtremeCommandBars.StatusBar

فقط ما معنى أو ما فائدة WithEvents ؟

و جزاكم الله خيراً .

هذا لقافة فيني...... ههههههه

عندما تريد إنشاء أدوات على الفورم بدون رسمها...

مثال لو أنك تر يد إنشاء TextBox بعد الضغط على الزر أو تريد إنشاء أكثر من صندوق نص حسب إختيار المستخدم

فذلك يستدعي إنك تقوم بتعريفها مثل ماسبق ومثال على ذلك

إنشاء صندوق نص عند تشغيل الفورم

Option Explicit
Private WithEvents txtObj As TextBox


Private Sub btnObj_Click()
	On Error Resume Next
	Set txtObj = Controls.Add("VB.textbox", "txtObj")
	With txtObj
		.Visible = True
		.RightToLeft = True
		.Alignment = 2
		.Width = 2000
		.Text = "Welcome"
		.Top = 2000
		.Left = 1000
	End With
End Sub

أرجو أن يكون الشرح وافي

وسامحني على اللقافة

إن شاء الله سوف أضع مثال بسيط عن صناديق الحوار MsgBox

طبعاً راح تكون جميلة مثل الي تطلع للماسنجر

مشكوووووووووووووور

الله عليك اخ يوسف ربنا يكرمك

بسمه تعالى

الشرح ليس مختص على المسج تبع MSN ولكن المثال فقط هو الي يكون عليه

يعني إذا عرفت وش تركيبت المسج للـ MSN مارح يكون في تغيير في باقي المسجات الثانية

وهذي صور للمسجات

msgbox.zip

PopupControl.zip

معليش ياجماعة...

بس الموضوع الي رسلته إرسل ناقص ... وراح التعب كله

الله يعين .... يبغالي أعيد شرحه.... :(

إن الله مع الصابرين

اقتباس

الله يعين .... يبغالي أعيد شرحه

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

شكراً لك أخي يوسف على االشرح و التوضيح

و معليش أرفق لنا أداة Popup لأن النسخة الي عندي من

الاداة أقدم من الي عندك و ما بتشتغلش كويس أنا حملت المجموعة التي

سبقت ارفاقها .

في البداية عندنا فورم جديد

محتوياته

1- تضمين الأداة بإسم PopupControl1 تجدونها من project>--components

الي ماعنده الأداة يشوف الأدوات جميعها في الصفحة الخامسة او هذه الأداة Popup

2- زر بإسم Command1

عند حدث الضغط على الزر

راح يكون هذا الكود

Private Sub Command1_Click()
	On Error Resume Next

	PopupControl1.Animation = xtpPopupAnimationSlide
	PopupControl1.AnimateDelay = 256 ' msgbox Acceletor
	PopupControl1.ShowDelay = 2000  ' Left time
	PopupControl1.Transparency = 200 ' Transparency

	Call SetMSNTheme(PopupControl1)

	PopupControl1.Show


End Sub

الكود التالي إخترنا نوع حركة المسج الإنزلاق مثل مسج MSN

PopupControl1.Animation = xtpPopupAnimationSlide

أما الكود التالي يحدد سرعة الإنزلاق بالميلي ثانية كأبطأ شي مثل الموجود

PopupControl1.AnimateDelay = 256

وأما الكود التالي يحدد مدة ظهور المسج أو بقائه معلق كذلك بالميلي ثانية

PopupControl1.ShowDelay = 2000

وأما الكود التالي يحدد مدى الشفافية للمسج

PopupControl1.Transparency = 200

وأما الكود التالي يقوم بإظهار المسج للمستخدم

PopupControl1.Show

وقبل الإظهار يجب أن نحدد شكل المسج ومحتوياته فقد قمنا بإستدعاء Sub ليقوم بتهيئة المسج

الآن نأتي إلى شرح محتويات المسج

في البداية الـ Sub راح يأخذ إسم الأداة PopupControl1 ويجعلها بإسم Popup

وفي أول سطر عرفنا Item ليقوم بتهيئة المسج ووضع المحتويات عن طريق AddItem.

نكمل الشرح بالأرقام الظهارة على صورة المسج

1- Option نص عادي ولكن تستطيع أن تجعل له حدث إذا أردت

لاحظ إن الكود يحتوي على أرقام وهي تشير إلى موقع النص

كذلك جهت النص مثل صندوق النص يأخذ ثلاث مواقع وهم الجهة اليسرى واليمنى والوسطى ولكن في الأداة أكثر من ذلك

DT_RIGHT or DT_CENTER or DT_LEFT

Set Item = Popup.AddItem(0, 27, 160, 0, "Options")
	Item.TextAlignment = DT_RIGHT
	Item.CalculateHeight
	Item.CalculateWidth

2- محتوى المسج وهو مهم.. لأنه هو زبدة المسج ووضعنا فيه إسم موقع الفريق العربي

وضعنا له Id لكي يخدمنا في الحدث

Set Item = Popup.AddItem(5, 50, 160, 100, "www.arabteam2000.com")
	Item.TextAlignment = DT_CENTER Or DT_WORDBREAK
	Item.CalculateHeight
	Item.Id = 1

3- العنوان وسميناه Popup

كذلك عطلنا خاصية الرابط لأننا لا نستفيد منه

Set Item = Popup.AddItem(25, 6, 170, 19, "Popup")
	Item.Hyperlink = False

4- أيقونة المسج طبعاً إستخدما فيه دالة خاصة للتحكم وتجلب الأيقونات

Set Item = Popup.AddItem(7, 6, 20, 19, "")
	Item.SetIcons LoadBitmap("Icons\CaptionMSN.bmp"), 0, xtpPopupItemIconNormal

5- شعار المسج كذلك إستخدمنا دالة للصور

Set Item = Popup.AddItem(115, 102, 160, 120, "")
	Item.SetIcons LoadBitmap("Icons\LogoMSN.bmp"), 0, xtpPopupItemIconNormal

6- زر إغلاق المسج وعرفنا Id لكي نستخدمه في الحدث

Set Item = Popup.AddItem(151, 6, 164, 19, "")
	Item.SetIcons LoadBitmap("Icons\CloseMSN.bmp"), 0, xtpPopupItemIconNormal Or xtpPopupItemIconSelected Or xtpPopupItemIconPressed
	Item.Id = 3

وفي نهاية الدالة إخترنا الثيم تبع الـماسنجر وكذلك حددنا حجم المسج

وإن شاء الله تستفيدوا

ربنا يوفقك فعلا شرح جميل ان شاء الله هتلاقوا حاجة عسل منى يعنى زبدة بالقشطة :lol:

وإنت كذلك ربنا يوفقك

يالل متشوقين نشووووووف الي عندك

اقتباس

يالل متشوقين نشووووووف الي عندك

ان شاء الله

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

أأأأأأأأأكرر شكري اليكم وتقديري على المجهود الخرافي في الدوتو اللي انت عملينوا.

ماشاء الله ,,,,,,,,,,, الظرف الاحمر هينفجر :D

A7med_prof

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

أنا أريد أنشيء عنصر قائمة يتفرع منه عنصر آخر و قد وجدت ذلك

في مثال القائمة الثاني الذي وضعته و لكنه غير مكتمل حاولت أن أعدل

عليه حتى أضيف عنصر فرعي فلم أستطع انظر الصورة المرفقة

و جزاكم الله خيراً .

اليس هذا ما تريد

فى المرفق عم كنفورت :lol: :D

command_bars.zip

يا أخ Comfort

إنت ماشفت الأمثلة على ال القوائم الي سويتها... ولا كان عرفت كيف تسوي حاجتك

اقتباس

يا أخ Comfort

إنت ماشفت الأمثلة على ال القوائم الي سويتها... ولا كان عرفت كيف تسوي حاجتك

هو عاوز بس خروج قائمة من اخرى وانت مذكرتهاش

ما الحل في هذه الرسالة ...........؟

حفظكم الله

crack the program but the forum lows against this

or download the tools from the previous page