Beschreibung: Deklaration: Declare Function ClipCursor Lib "user32.dll" (lpRect As Any) As Long Parameter:
Rückgabewert: Beispiel: Private Declare Function ClipCursor Lib "user32.dll" (lpRect As Any) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type ' Die Maus darf nur noch innerhalb des aktuellen Fensters bewegt werden. ' Damit das Fenster nicht aus dem Bereich verschoben werden kann, ' siehe Tipp <img src='../images/16x16/tipp.gif' width=16 height=16 border=0 align=absmiddle> <a href="../tipps/details.php?id=57">Verschieben eines Fensters unterbinden</a> Private Sub Form_Load () Dim TmpR As RECT Dim RetVal As Long ' Angabe der Fenster-Koordinaten With TmpR .Top = Form1.Top / Screen.TwipsPerPixelY .Bottom = .Top + Form1.Height / Screen.TwipsPerPixelY .Left = Form1.Left / Screen.TwipsPerPixelX .Right = .Left + Form1.Width / Screen.TwipsPerPixelX End With RetVal = ClipCursor(TmpR) If RetVal = 0 Then MsgBox "Funktionsaufruf gescheitert", vbInformation , "Fehler" End If End Sub ' WICHTIG: Diese Funktion hebt die Bewegungseinschränkung ' der Maus wieder auf Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer) Dim TmpR As RECT Dim RetVal As Long ' Koordinaten des gesamten Bildschirmbereichs With TmpR .Top = 0 .Bottom = Screen.Height / Screen.TwipsPerPixelY .Left = 0 .Right = Screen.Width / Screen.TwipsPerPixelX End With RetVal = ClipCursor(TmpR) End Sub Diese Seite wurde bereits 11.408 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung sevWizard für VB5/6 Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) |
||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |