Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Drag & Drop
Autor: LesPaul
Datum: 20.11.07 13:34
moin, ich möchte ein Label innerhalb einer Picturebox verschieben und habe bisjetzt folgenden Code gefunden: Ich weiss leider die exakte Position der Picturebox im Verhältnis zum Screen nicht, sonst könnte ich ja die entsprechenden Twips abziehen. Deshalb geht das Label natürlich nie dorthin wo die Maus ist Ich hoffe jemand kann helfen LesPaul ---------------------------------------------------------- Option Explicit Private Type POINTAPI X As Long Y As Long End Type Private Declare Function GetCursorPos Lib "user32" _ (lpPoint As POINTAPI) As Long Private Declare Function WindowFromPoint Lib "user32" _ (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Sub Picture2_DragOver(Source As Control, X As Single, Y As Single, State As Integer) 'Mousezeiger bestimmen Dim oPoint As POINTAPI Dim hWnd As Long Dim xTwips Dim yTwips Dim FormAbs As Single hWnd = WindowFromPoint(oPoint.X, oPoint.Y) If GetCursorPos(oPoint) <> 0 Then xTwips = oPoint.X * Screen.TwipsPerPixelX yTwips = oPoint.Y * Screen.TwipsPerPixelY Label1.Left = xTwips Label1.Top = yTwips End If End Sub

Drag & Drop	606	LesPaul	20.11.07 13:34
Re: Drag & Drop	546	wincnc	20.11.07 15:38
Re: Drag & Drop	439	LesPaul	20.11.07 16:13

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