Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > de.comp.lang.vbclassic > #7658

Re: Desktop handle

From Klaus Ketelaer <usenet@ketelaer.de>
Newsgroups de.comp.lang.vbclassic
Subject Re: Desktop handle
Date 2024-04-13 19:15 +0200
Message-ID <uveekb$hq5s$2@solani.org> (permalink)
References <uv954n$1pung$1@dont-email.me> <uvc3ft$2hk27$1@dont-email.me> <uvdfqk$hb05$1@solani.org> <uvdhrf$2u3ku$1@dont-email.me> <uvee32$hq5s$1@solani.org>

Show all headers | View raw

Mal rein vorsorglich:

Die Daten zu einem Fenster ermittelt man so: :-) :-) :-)

Private Sub RegisterWindow(ByVal hWindow As Long)
   Dim hParent         As Long
   Dim hTask           As Long
   Dim szTitle         As String
   Dim szClass         As String
   Dim lStyle          As Long

   Dim iLength         As Integer
   Dim lResult         As Long

   ' Eltern-Fenster
   hParent = GetParent(hWindow)

   ' Festerstil
   lStyle = GetWindowLong(hWindow, GWL_STYLE)

   'Titel des Fenster auslesen
   szTitle = Space$(255)
   iLength = GetWindowText(hWindow, szTitle, 255)
   szTitle = Left$(szTitle, iLength)

   szClass = Space$(255)
   iLength = GetClassName(hWindow, szClass, Len(szClass))
   szClass = Left$(szClass, iLength)

   'Task-ID ermitteln
   lResult = GetWindowThreadProcessId(hWindow, hTask)

   m_Windows = m_Windows + 1
   ReDim Preserve m_Window(m_Windows)

   m_Window(m_Windows).hWnd = hWindow
   m_Window(m_Windows).hParent = hParent
   m_Window(m_Windows).Style = lStyle
   m_Window(m_Windows).Title = szTitle
   m_Window(m_Windows).Class = szClass
   m_Window(m_Windows).Task = hTask

   m_Window(m_Windows).Locked = False
   m_Window(m_Windows).Borders = (lStyle And WS_BORDER) = WS_BORDER
   m_Window(m_Windows).Visible = (lStyle And WS_VISIBLE) = WS_VISIBLE

   lResult = GetWindowRect(hWindow, m_Window(m_Windows).WindowPos)
End Sub

Back to de.comp.lang.vbclassic | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-11 19:03 +0200
  Re: Desktop handle Ulrich Möller <knobbi38@arcor.de> - 2024-04-12 21:53 +0200
    Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-13 10:30 +0200
      Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-13 11:04 +0200
        Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-13 19:06 +0200
          Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-13 19:15 +0200
          Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-14 18:35 +0200
            Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-14 20:46 +0200
      Re: Desktop handle Ulrich Möller <knobbi38@arcor.de> - 2024-04-13 13:35 +0200
  Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-17 11:06 +0200
    Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-17 16:07 +0200
      Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-17 19:30 +0200
        Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-19 13:44 +0200
          Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-20 00:43 +0200
            Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-20 19:46 +0200

csiph-web