Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

habe kleines Listing
Autor: Ronny42DAch
Datum: 29.11.01 04:33
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Const gcClassnameMSWord = "OpusApp" Const gcClassnameMSExcel = "XLMAIN" Const gcClassnameMSIExplorer = "IEFrame" Const gcClassnameMSVBasic = "wndclass_desked_gsk" Const gcClassnameNotePad = "Notepad" Const gcClassnameMyVBApp = "ThunderForm" Dim RetVal As Long, lpClassName As String, lastWnd As Variant Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Declare Function GetFocus Lib "user32" () As Long Private Sub Check1_Click() lastWnd = Check1.hwnd End Sub Private Sub Command1_Click() lastWnd = Command1.hwnd End Sub Private Sub Command2_Click() lastWnd = Command2.hwnd End Sub Private Sub Form_Click() lastWnd = Me.hwnd End Sub Private Sub Picture1_Click() lastWnd = Picture1.hwnd End Sub Private Sub Text1_Click() lastWnd = Text1.hwnd End Sub Private Sub Timer1_Timer() lpClassName = Space(256) RetVal = GetClassName(GetForegroundWindow, lpClassName, 256) Label1 = "Classname: " + Left$(lpClassName, RetVal) & " HWND: " & GetForegroundWindow Dim R As RECT Dim Rhwnd As Long Rhwnd = GetForegroundWindow Call GetClientRect(Rhwnd, R) Label2 = "Top =" + Str$(R.Top) & " Left =" & Str$(R.Left) Label3 = "Fordergrund Fenster " & GetForegroundWindow If GetFocus <> 0 Or GetActiveWindow <> 0 Then Label4 = "aktiv" lpClassName = Space(256) RetVal = GetClassName(lastWnd, lpClassName, 256) Label1 = "Classname: " + Left$(lpClassName, RetVal) & " HWND: " & lastWnd Else Label4 = "nicht aktiv" End If End Sub ----------------ende Listing So meine Frage was stimmt an dem GetClientRect nicht? vieleicht kann mir einer Helfen! MFG

Focus und Classname	46	Ronny42DAch	29.11.01 00:21
Re: Focus und Classname	300	Dieter	29.11.01 00:57
bessere Orientierung in einem Formular	29	Ronny42DAch	29.11.01 02:18
lRetVal was verbirgt sich dahinter..	29	Ronny42DAch	29.11.01 02:31
habe kleines Listing	27	Ronny42DAch	29.11.01 04:33
Re: habe kleines Listing	306	Dieter	29.11.01 09:19
Re: lRetVal was verbirgt sich dahinter..	315	Dieter	29.11.01 09:20

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen