vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Grafik und Font · Sonstiges   |   VB-Versionen: VB4, VB5, VB603.02.04
RECT-Struktur schneller mit Werten füllen

Immer wieder benötigt: Das Füllen einer RECT-Struktur mit Werten.

Autor:   Dieter OtterBewertung:  Views:  14.342 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11kein 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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2024 vb@rchiv Dieter OtterAlle 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.