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 24.388 mal aufgerufen. |
sevWizard für VB5/6 ![]() Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Buchempfehlung Tipp des Monats ![]() Dieter Otter PopUp-Menü wird nicht angezeigt :-( In diesem Tipp verraten wir Ihnen, wie Sie Probleme mit PopUp-Menüs umgehen können, wenn diese unter bestimmten Umständen einfach nicht angezeigt werden. [email protected] CD Vol.6 ![]() ![]() Geballtes Wissen aus mehr als 8 Jahren [email protected]! Online-Update-Funktion Entwickler-Vollversionen u.v.m. |
||||||||||
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. |