Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ist vieleicht ein Anfang?
Autor: Ronny42DAch
Datum: 01.01.02 17:34
Einfach mal ein neues Form aufmachen und das Listing reinkopieren! Den Timer mit Interval uns so nicht vergessen. Option Explicit Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) 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 Type POINTAPI X As Long Y As Long End Type Private Sub tmrMauscheck_Timer() 'Klasse ermitteln unterm Curser Dim strClassName As String * 100 Dim lngReturn As Long Dim cursr As POINTAPI Call GetCursorPos(cursr) lngReturn = GetClassName(WindowFromPointXY(cursr.X, cursr.Y), strClassName, 100) ' Window Class. If "SysTreeView32" = Left(strClassName, lngReturn) Then Caption = "Cursor über Outlookexpress Tree = True" Else Caption = "Cursor über Outlookexpress Tree = False" End If End Sub

KLICKEN?	176	SM	01.01.02 14:20
ist vieleicht ein Anfang?	156	Ronny42DAch	01.01.02 17:34
Re: ist vieleicht ein Anfang?	157	SM	01.01.02 17:41

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