vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 
zurück
Rubrik: Fenster22.03.05
ClientToScreen-Funktion

Diese Funktion ermittelt die Bildschirmkoordinaten eines Punktes anhand einer Client-Koordinate eines Fensters.

Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinMEViews:  14.133 

Deklaration:

Declare Function ClientToScreen Lib "user32" ( _
  ByVal hwnd As Long, _
  lpPoint  As POINTAPI) As Long

Beschreibung:
Diese Funktion ermittelt die Bildschirmkoordinaten eines Punktes anhand einer Client-Koordinate eines Fensters.

Parameter:
hwndErwartet das Fensterhandle des Fensters dessen Clientkoordinate in Bildschirmkoordinaten umgerechnet werden sollen.
lpPointErwartet eine POINTAPI-Struktur die mit den ermittelten Bildschirmkoordinaten gefüllt wird.

Rückgabewert:
Ist die Funktion erfolgreich, so wird ein Wert "ungleich 0" zurückgegeben, andernfalls ist derWert "0". Für erweiterte Fehlerinformationen können Sie die GetLastError-Funktion aufrufen.

Beispiel:

Private Declare Function ClientToScreen Lib "user32" ( _
  ByVal hwnd As Long, _
   lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
' Bildschirmkoordinaten ermitteln
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As _
   Single, y As Single)
   Dim P As POINTAPI, Retval As Long
 
   P.x = x / Screen.TwipsPerPixelX
   P.y = y / Screen.TwipsPerPixelY
 
   With Me
     Retval = ClientToScreen(.hwnd, P)
 
     .Cls
     .CurrentX = 10
     .CurrentY = 10
 
     Me.Print "Bildschirmkoordinaten: x=" & P.x & " y=" & P.y
   End With
End Sub

Diese Seite wurde bereits 14.133 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2022 [email protected] Dieter Otter
Alle Rechte vorbehalten.
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