🚀 go-pugleaf

Hallo,

Ik gebruik onderstaande code voor het weergeven van de waarden van de
control waar op dat moment de muispointer op staat.
Dit werkt voor alle controls die op de form staan behalve voor Labels.  Hoe
kan ik de code zodanig aanpassen dat de caption van de labels ook getoond
worden. (Als dit al mogelijk is)
Het venster dat moet 'onderzocht' worden is een ander programma dan de
mijne.

Dank u


Private Sub Timer1_Timer()
    Dim mousepos As POINT_TYPE  ' coordinates of the mouse cursor
    Dim wintext As String, slength As Long  ' receive title bar text and its
length
    Dim hWnd As Long  ' handle to the window found at the point
    Dim retval As Long  ' return value

    ' Determine the window the mouse cursor is over.
    retval = GetCursorPos(mousepos)  ' get the location of the mouse
    hWnd = WindowFromPoint(mousepos.x, mousepos.y)  ' determine the window
that's there
    If hWnd = 0 Then  ' error or no window at that point
      Debug.Print "No window exists at that location."
      End
    End If

    ' Display that window's title bar text
    slength = GetWindowTextLength(hWnd)  ' get length of title bar text
    wintext = Space(slength + 1)  ' make room in the buffer to receive the
string
    slength = GetWindowText(hWnd, wintext, slength + 1)  ' get the text
    wintext = Left(wintext, slength)  ' extract the returned string from the
buffer
    lblCurrentControl = wintext
End Sub