هل يمكن الحصول على اسم النافذة النشطة في الوندوز؟

السلام عليكم

http://www.dreamincode.net/code/snippet2117.htm

اقتباس

السلام عليكم

http://www.dreaminco...snippet2117.htm

اشكرك اخي لكن الكلام المكتوب بهذا الرابط لم يكن ناجحاً مئة بالمئة ولهذا لقد قمت بتغيير الكود وجعله ناجحاً

Imports System.Text
    Private Declare Function GetForegroundWindow Lib "user32" () As IntPtr

    Private Declare Function GetWindowTextA Lib "user32" (ByVal hWnd As IntPtr, ByVal lpWindowText As StringBuilder, ByVal nMaxCount As Integer) As Integer

    Public Function GetWindowText() As Window
        Dim title As New StringBuilder(255)
        Dim titleLength As Integer = GetWindowTextA(GetForegroundWindow(), title, title.Capacity + 1)
        title.Length = titleLength
        Dim w As New Window
        w.Text = title.ToString()
        w.Handle = GetForegroundWindow()
        Return w
    End Function

    Public Structure Window
        Public Handle As IntPtr
        Public Text As String
    End Structure

ونصيحة مني ان تستعدي GetTextWindow() في تايمر وتجعل interval=2

جزاك الله خيرا على تعميم الفائدة

الشكر لك يا اخي على هذا الرابط المفيد وارجوا ان تعم الفائدة اكثر لكل مبرمجي العرب

شكرا أخوتي على الكود ، ومجرد إضافة بسيطة ..

لو عرفنا متغير عام في موديول واسمه CurrentActiveForm ...

Public CurrentActiveForm as string

وفي حدث Activated لكل فورد نكتب :

CurrentActiveForm = Formxx.name

أعتقد أننا سنحصل على الفورم النشط حاليا :S

عاشق للبرمجة كتب:

شكرا أخوتي على الكود ، ومجرد إضافة بسيطة ..

لو عرفنا متغير عام في موديول واسمه CurrentActiveForm ...

Public CurrentActiveForm as string

وفي حدث Activated لكل فورد نكتب :

CurrentActiveForm = Formxx.name

أعتقد أننا سنحصل على الفورم النشط حاليا :S

السلام عليكم

كلامك صحيح في حال كنا نبحث عن اسم النافذة النشطة في برنامجنا و لكن المطلوب هو النافذة النشطة بشكل عام في الويندوز (Word, Firefox, Autocad,... )

عفوا ، لم أنتبه لكلمة Windows بتاتاً :blink:

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