Rubrik: Grafik und Font · Grafische Effekte | VB-Versionen: VB4, VB5, VB6 | 22.03.01 |
Invertieren einer Grafik Dieser Tipp zeigt, wie man eine Grafik oder nur einen Teilausschnitt darin, invertiert darstellen kann. | ||
Autor: Wolfgang Kluge | Bewertung: | Views: 13.976 |
www.vbwelt.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Der nachfolgende Tipp zeigt, wie man eine Grafik oder auch nur einen Teilbereich einer Grafik, invertiert darstellen kann.
Um das nachfolgende Beispiel ausprobieren zu können, plazieren Sie auf einer Form ein Command-Button und ein Picture-Element, und weisen diesem ein beliebiges Bild zu. Durch Klicken auf den Commandbutton wird das Bild invertiert.
' zunächst die benötigten API-Deklarationen Private Declare Function InvertRect Lib "user32" ( _ ByVal hdc As Long, _ lpRect As RECT) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Sub Command1_Click() Dim InvRECT As RECT Picture1.ScaleMode = 3 ' gesamte Grafik invertieren With InvRECT .Top = Picture1.ScaleTop .Bottom = Picture1.ScaleHeight - Picture1.ScaleTop .Left = Picture1.ScaleLeft .Right = Picture1.ScaleWidth - Picture1.ScaleLeft End With Call InvertRect(Picture1.hdc, InvRECT) End Sub