Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: frage zu MouseMove
Autor: Martin01
Datum: 19.03.03 01:32
Option Explicit 'Aufruf: ' ShowFocusRect Me.Command1 ' 'Wenn es einfacher geht, dann bitte zeigen... Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function CallWindowProc Lib "User32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const GWL_WNDPROC As Long = -4 Private Const WM_ACTIVATE As Long = &H6 Private Const WM_SETFOCUS As Long = &H7 Private x As New Collection Public Sub ShowNoFocusRect(ByVal Control As Object) ' On Error Resume Next If MePos(Control.hWnd) = -1 Then x.Add Control.hWnd x.Add GetWindowLong(Control.hWnd, GWL_WNDPROC) SetWindowLong Control.hWnd, GWL_WNDPROC, AddressOf ButtonProc End If End Sub Private Function ButtonProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long ' On Error Resume Next Dim lPos As Long lPos = MePos(hWnd) If lPos > -1 Then Beep Select Case uMsg Case WM_SETFOCUS Case Else ButtonProc = CallWindowProc(x.Item(lPos + 1), hWnd, uMsg, wParam, lParam) End Select End If End Function Private Function MePos(ByVal hWnd As Long) As Long ' On Error Resume Next Dim i As Long MePos = -1 For i = 1 To x.Count - 1 Step 2 If x.Item(i) = hWnd Then MePos = i Exit For End If Next End Function

frage zu MouseMove	95	Exp-Soft	18.03.03 07:32
Re: frage zu MouseMove	296	Dieter	18.03.03 08:28
Re: frage zu MouseMove	48	Exp-Soft	18.03.03 10:58
Re: frage zu MouseMove	239	Dieter	18.03.03 11:19
Ahjo thx 4 Help und nochmal ne frage zu Buttons	41	Exp-Soft	18.03.03 11:26
Re: Ahjo thx 4 Help und nochmal ne frage zu Buttons	242	Dieter	18.03.03 13:24
Re: frage zu MouseMove	39	Martin01	19.03.03 01:32

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