Rubrik: Grafik und Font · Sonstiges | VB-Versionen: VB4, VB5, VB6 | 03.02.04 |
RECT-Struktur schneller mit Werten füllen Immer wieder benötigt: Das Füllen einer RECT-Struktur mit Werten. | ||
Autor: Dieter Otter | Bewertung: | Views: 14.342 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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