Tipp 4.1 - Arbeitsbereich ermitteln

Wie kann ich den aktuellen Arbeitsbereich ermitteln?

Mit dieser Funktion können Sie den aktuellen Arbeitsbereich ermitteln. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: SystemParametersInfo - RECT

Beispiel:

Option Explicit
 
Public Type RECT
  Left   As Long
  Top    As Long
  Right  As Long
  Bottom As Long
End Type
 
Public Declare Function SystemParametersInfo _
    Lib "user32" Alias _
    "SystemParametersInfoA" _
    (ByVal uAction As Long, _
    ByVal uParam As Long, _
    lpvParam As Any, _
    ByVal fuWinIni As Long) As Long
 
Public Sub GetWorkArea(uMyRect As RECT)
  '// -----------------------------------------------------
  '// Methode:   | Ermittelt den aktuellen Arbeitsbereich
  '// -----------------------------------------------------
  '// Parameter: | uMyRect - Strukturvariable vom Typ RECT
  '// -----------------------------------------------------
  '// Rückgabe:  | gefüllte Strukturvariable
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  '// Beispiel:
  '// -----------------------------------------------------
  '// Dim uMyRect As RECT
  '// GetWorkArea uMyRect
  '// With uMyRect
  '//     Debug.Print "Links: "; .Left & vbCrLf & _
   '//                 "Rechts: "; .Right & vbCrLf & _
   '//                 "Oben: "; .Top & vbCrLf & _
   '//                 "Unten: "; .Bottom
  '// End With
  '// -----------------------------------------------------
  Const SPI_GETWORKAREA = 48
  SystemParametersInfo SPI_GETWORKAREA, 0, uMyRect, 0
 
End Sub


Zurück | Inhalt | Tipp 4.2 - Schriftart registrieren Weiter