title image


Smiley Re: Zugriff auf einzelnen Bildpunkt in einem Bitmap
Mit der Point-Methode einer Picture-Box erhält man den Inhalt eines einzelnen Bildpunktes.Mit der PSet-Methode kann man einen Punkt malen.Und hier noch ein wenig Code:Option Explicit Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Private Sub Form_Load() Shape1.BackColor = Komplementärfarbe(Me.BackColor)End Sub Private Function Komplementärfarbe(inColor As Long) As Long Dim lColor As Long Dim Red As Long, Green As Long, Blue As Long Dim CRed As Long, CGreen As Long, CBlue As Long  If inColor And &H80000000 Then lColor = GetSysColor(inColor And &H7FFFFFFF) ' Systemfarbe Else lColor = inColor End If  Red = lColor And &HFF& Green = (lColor And &HFF00&) \ &H100& Blue = (lColor And &HFF0000) \ &H10000  Debug.Print Red, Green, Blue  CRed = &HFF - Red CGreen = &HFF - Green CBlue = &HFF - Blue  Debug.Print CRed, CGreen, CBlue Komplementärfarbe = RGB(CRed, CGreen, CBlue)End FunctionBenötigt wird für diesen Code ein Formular (Form1) und auf diesem Formular ein Rechteck(Shape1). Die Eigenschaft BackStyle von Shape1 muß auf 1 - Undurchsichtig eingestellt werden.Stelle dann die Eigenschaft BackColor des Formulares (Form1) auf irgend einen beliebigen Wert aus der Palette oder auf eine Systemfarbe ein, z.B. die Systemfarbe 1-Desktop (=&H80000001).Starten und beobachten, daß Shape 1 immer die komplementäre Farbe anzeigt.Viel Erfolg!Thomas Prötzschcu
Thomas Prötzsch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: