| |
VB & Windows APIGDI+: Farbe bei pens | | | Autor: PlayBOOLean | Datum: 24.04.11 22:27 |
| Hi,
Hab eig. gleich 2 Fragen zu GDI+:
1) beim erstellen eines Pinsels
Private Declare Function GdipCreatePen1 Lib "gdiplus" (ByVal Color As Long, _
ByVal Width As Single, ByVal Unit As Unit, ByRef pen As Long) As Status wird als erstes Argument die Farbe übergeben. Diese entspricht aber nicht den VB-Farben; wie kann man die konvertieren?
2) kennt jemand eine Dokumentation mit allen Funktionen (am Besten mit Beispielen) über GDI+?
Danke schon mal im Voraus
LG
PS: hab beides bei Google gesucht, wenn ich was übersehen hab, bitte hier posten, aber bitte nicht einfach auf Google verweisen, wenn ich da nicht gesucht hätte, wär ich nicht hier.
My Mail doesn't exist anymore. But there doesn't seem to be a way to unregister from this forum. | |
Re: GDI+: Farbe bei pens | | | Autor: Preisser | Datum: 25.04.11 21:01 |
| Hallo,
ich denke mal, die Farben bei GDI+ werden als ARGB übergeben, während die bei VB6 BGR sind.
Umwandeln kann man sie beispielsweise so:
Public Function ConvertColor(Color As Long)
ConvertColor = (Color And &HFF&) * &H10000 + (Color And &HFF00&) + (Color _
And &HFF0000) \ &H10000
End Function Allerdings ist dort dann kein Alphakanal dabei, und es geht auch nur für "normale" Farben (also keine Systemfarben wie Titelleiste, Fensterhintergrund usw.).
Um eine neue Farbe mit Alphakanal zu erstellen, kann man beispielsweise so eine Funktion verwenden:
Public Function ARGB(a As Byte, r As Byte, g As Byte, b As Byte)
ARGB = ((IIf(a < 128, a, a - 256) * &H100& + r) * &H100& + g) * &H100& + b
End Function | |
Re: GDI+: Farbe bei pens | | | Autor: PlayBOOLean | Datum: 25.04.11 21:26 |
| Danke, sowas hatte ich mir schon gedacht, nur in welcher Form die Farbe in GDI+ genau vorliegt, wusste ich nicht. funktioniert perfekt!
LG
My Mail doesn't exist anymore. But there doesn't seem to be a way to unregister from this forum. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle 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.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|