طلب في شرح بعض دوال Api

بالنسبة للدالة EnumWindows فقد حاولت عمل مثال بسيط لك بالاستعانة ببرنامج API-Guide، أرجو أن أكون قد وفقت في مساعدتك.

EnumWindows.rar

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

لكني احتاج شرح

شكرا على الرد

أنا فضلت أن أشرحها بمثال، لكن سأحاول شرحها هكذا:

الدالة EnumWindows وتعني تعداد النوافذ، تعطيك هذه الدالة النوافذ الموجودة في الطبقة العلوية Top-Level windows وذلك عبر تمريرها إلى دالة موجودة في وحدة نمطية في برنامجك، يمكن أن تدعوها بدالة Callback function ويجب أن يكون شكلها كالتالي:

Public Function MyFunction (ByVal hWnd As Long , ByVal lParam As Long) As Boolean

حيث MyFunction هو اسم الدالة.

حسناً، لو قمنا بكتابة هذا الكود:

Private Sub Form_Load()

	EnumWindows AddressOf MyFunction, ByVal 0&   

End Sub

فإن الدالة EnumWindows ستقوم بالذهاب إلى الدالة MyFunction وذلك بواسطة استخدام الكلمة المحجوزة AddressOf وتمرر إليها في كل مرة مقبض إحدى النوافذ، لتقوم الدالة MyFunction بمعالجتها كما تشاء.

يمكنك مثلاً في الدالة MyFunction كتابة التالي:

Public Function MyFunction(ByVal hWnd As Long, ByVal lParam As Long) As Boolean

	Form1.List1.AddItem hWnd
	MyFunction = True 

End Function

ففي هذه الدالة نقوم باستقبال المتغير hWnd والذي هو مقبض إحدى النوافذ المفتوحة وتقوم بإضافته في الـList1 الموجود في Form1 مثلاً.

وفي النهاية تسند إلى نفسها قيمة True وهذا ضروري، لأن الدالة EnumWindows ستظل تمرر إليها مقابض النوافذ ما دامت قيمتها True، أما إذا أصبحت قيمتها False فإنها ستتوقف، وهذا ما يحدث عندما تنتهي الدالة EnumWindows من تمرير مقابض كل النوافذ.

قد يكون الشرح ركيكاً، لكن هذا ما استطعت شرحه، فاعذرني...

الله يرضى عنك ويرفع قدرك ومقدارك أخ عبود

شرح ولا أروع ومتابعة أجمل

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

جزاك الله خيرا أخي عبود وعسى الله أن يجعل لك في كل خطوة سلامة

وأن يجعلك من أهل الجنة أمين أمين أمين

وان يعطيك الله كل شيء تحبه في الدنيا والأخرة