Rubrik: Fenster | 22.03.05 |
ClientToScreen-Funktion Diese Funktion ermittelt die Bildschirmkoordinaten eines Punktes anhand einer Client-Koordinate eines Fensters. | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 15.044 |
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:
hwnd | Erwartet das Fensterhandle des Fensters dessen Clientkoordinate in Bildschirmkoordinaten umgerechnet werden sollen. |
lpPoint | Erwartet 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