vb@rchiv · Diskussionsforen · Maus einsperren · Fortgeschrittene Programmierung

VB Classic
VB.NET
ADO.NET
VBA
C#

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[478 User online]
[450 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Fortgeschrittene Programmierung

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Fortgeschrittene Programmierung

Maus einsperren

Autor: Braindead
Datum: 07.12.01 07:44

Ich wollte auf einem UserControll unter W2k den MausBereich einschränken und da habe ich im Archiv nen Tip gefunden und diesen so abgeändert das er für meine zwecke funzt. aber es funtzt halt nicht. die Abänderung Public Sub Mausbereich_Einschraenken(Optional Obj As Object, Optional ObjectHwnd As Long, Optional X As Single, Optional y As Single, Optional X1 As Single, Optional Y1 As Single) Dim ctrlFlaeche As Rect Dim ctrlPoints As POINTAPI Dim RVal As Long If Obj Is Nothing And ObjectHwnd = 0 Then ' Einschränkung wieder aufheben RVal = ClipCursor(ByVal 0&) Else ' Einschränkung setzen If ObjectHwnd <> 0 Then RVal = GetClientRect(ObjectHwnd, ctrlFlaeche) Else RVal = GetClientRect(Obj.hwnd, ctrlFlaeche) End If ctrlFlaeche.Left = IIf(X <> 0, X, ctrlFlaeche.Left) ctrlFlaeche.Top = IIf(y <> 0, y, ctrlFlaeche.Top) ctrlFlaeche.Right = IIf(X1 <> 0, X1, ctrlFlaeche.Right) ctrlFlaeche.Bottom = IIf(Y1 <> 0, Y1, ctrlFlaeche.Bottom) With ctrlPoints .X = ctrlFlaeche.Left .y = ctrlFlaeche.Top If ObjectHwnd <> 0 Then RVal = ClientToScreen(ObjectHwnd, ctrlPoints) Else RVal = ClientToScreen(Obj.hwnd, ctrlPoints) End If Call OffsetRect(ctrlFlaeche, .X, .y) RVal = ClipCursor(ctrlFlaeche) End With End If End Sub Der Aufruf Call Mausbereich_Einschraenken(, UserControl.hwnd, , Y / Screen.TwipsPerPixelY, , Y / Screen.TwipsPerPixelY) wenn ich auf die Zeile RVal = ClipCursor(ctrlFlaeche) einen Benutzerdef.haltepunkt setze klapts aber nicht ohne. Warum funtzt das nicht? Mfg

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Maus einsperren

Braindead

07.12.01 07:44

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

sevGraph (VB/VBA)

Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig!

Weitere Infos

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

Access-Tools Vol.1

Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB

Nur 24,95 EUR
Weitere Infos

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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel