كيف ألتقط الطبقة النشطة في برنامج آخر

لقد تطور مفهوم النافذة النشطة مع الانتقال إلى انظمة win32 حيث ان تعاملك مع الدالتين GetFocus و GetActiveWindow سيقتصر على تطبيقك الحالي واذا قمت باستخدامهما لغير نوافذ تطبيقك فستعيد صفر، والفكرة ليست غبية كما بدا لك ولكنها محاولة جيدة من مايكروسوفت لمنع حدوث تضاربات بين التطبيقات ... وقد قامت الشركة بايجاد مفهوم النافذة الأمامية لحل هذه المسألة .. وهذا مثال يقوم بعمل ماتريده بناء على الدالة السابقة ..

Private Declare Function GetForegroundWindow Lib "user32" _
 () As Long
Private Declare Function GetClassName Lib "user32" Alias _
 "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName _
 As String, ByVal nMaxCount As Long) As Long

Private Sub Form_Load()
 Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
 Dim lpClassName$
 lpClassName = Space(256)
 GetClassName GetForegroundWindow, lpClassName, 256
 Label1 = lpClassName
End Sub

مبروك يا استاذ ReadOnly على اللقب الجديد (عضو شرف) (f)

مشكور يا أخ Read Only بس أنا أبغا اذا كنت أعرف النافذة النشطة كيف أعرف أي طبقة عليها التركيز .

مثلا اذا ضغط الواحد على Enter كيف أعرف انه على أي مربع نص في البرنامج هذا

بالنسبة لاجابة سؤالك فهي على الرابط

http://www.vb4arab.com/vb/showthread.php?s...&threadid=10871

لكن لدي ملاحظة:

بالنسبة لقولك "طبقة" فأعتقد انك تقصد ترجمة Class وإذا كان هذا ماتقصده، فأعتقد ان سؤالك يحتاج لبعض التعديل لأنك تقول "كيف أعرف أي طبقة عليها التركيز" ولكن البرنامج قد يملك نافذتين لها نفس الطبقة كمربعي نص على سبيل المثال، وبالتالي كأننا نقول أن كلا مربعي النص يملكان تركيز الدخل وهذا مستحيل منطقيا ... واعتقد انك تقصد النوافذ الأبناء والتي تمثل غالبا نوافذ عناصر التحكم.