Die RGB-Funktion gibt einen Farbwert vom Typ Long zurück. Jedes der drei Argumente (RGB = rot, grün, blauoder ganz korrekt: red, green, blue) kann Werte im Bereich von 0 bis 255 annehmen, so dass man sich beliebigeFarben zusammenmischen kann. Beispiel: ' Hintergrundfarbe einem Formular beim Start zuweisen Private Sub Form_Load() Me.BackColor = RGB(255, 0, 128) End Sub Mit dieser Farbzuweisung erreichen Sie ein kräftiges Pink für Ihren Hintergrund. Was nun aber, wenn man eine Farbe hat und die in dieeinzelnen RGB-Bestandteile zerlegen will? Versuchen Sie mal folgendes: Sie starten ein neues Projekt und fügen auf der Form von links nach rechts drei Shapes hinzu. Jedem Shape ordnen Sie in denEigenschaften FillStyle = 0 - Ausgefüllt zu und FillColor - wieder von links nach rechts - rot, grün und blau. Unter diesen Shapes fügenSie drei Label als Steuerelemetefeld ein (über Kopieren und Einfügen). Außerdem benötigen Sie noch einen CommandButton und dieCommonDialog-Komponente. Dann diesen Code einfügen: Option Explicit ' benutzerdefinierter Datentyp Private Type tRGB rot As Byte grün As Byte blau As Byte End Type ' die Funktion hierzu Private Function GetRGB(Farbe As Long) As tRGB GetRGB.rot = (Farbe And &HFF&) GetRGB.grün = (Farbe And &HFF00&) \ 256 GetRGB.blau = (Farbe And &HFF0000) \ 65536 End Function ' und jetzt die Sub zum Testen Private Sub Command1_Click() Dim myRGB As tRGB CommonDialog1.ShowColor myRGB = GetRGB(CommonDialog1.Color) Label1(0).Caption = myRGB.rot Label1(1).Caption = myRGB.grün Label1(2).Caption = myRGB.blau End Sub Starten Sie Ihr Programm und wählen Sie eine Farbe aus. In den Labels werden nun die entsprechenden RGB-Anteile angezeigt. Diese Seite wurde bereits 25.021 mal aufgerufen. |
sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Buchempfehlung Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||
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. |