RECT-Struktur schneller mit Werten füllen Immer wieder benötigt: Das Füllen einer RECT-Struktur mit Werten.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  14.772
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 11 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Viele API-Funktionen erwarten als Parameter eine RECT-Struktur, die mit folgenden vier Werten gefüllt werden muss:

Public Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

Die meisten unter uns füllen diese RECT-Struktur wahrscheinlich wie folgt:

Dim nRECT As RECT
nRECT.Left = Wert1
nRECT.Top = Wert2
nRECT.Right = Wert3
nRECT.Bottom = Wert4

Es geht aber auch einfacher Und zwar mit Hilfe einer weiteren API-Funktion namens SetRect.

' Deklaration der API-Funktion
Public Declare Function SetRect Lib "user32" ( _
  lpRect As RECT, _
  ByVal X1 As Long, _
  ByVal Y1 As Long, _
  ByVal X2 As Long, _
  ByVal Y2 As Long) As Long

Das Füllen der RECT-Struktur wird durch Aufruf der SetRect-Funktion ab sofort zum Einzeiler:

SetRect nRECT, Wert1, Wert2, Wert3, Wert4

Um eine RECT-Struktur zu löschen könnte man ebenfalls die SetRect-Funktion verwenden:

SetRect nRECT, 0, 0, 0, 0

Aber auch für diesen Zweck gibt es wiederum eine einfachere Variante:

' Benötigte API-Deklaration
Public Declare Function SetRectEmpty Lib "user32" ( _
  lpRect As RECT) As Long

Der Aufruf sieht dann so aus:

SetRectEmpty nRECT