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.381 mal aufgerufen. |
Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||
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. |