Farbauswahl-Dialog II Kurzinfo: Dieser Tipp zeigt, wie man den Farbauswahldialog darstellen kann. Access-Version(en): Access 97, 2000 und XP Autor: Stefan Kulpa Homepage: http://www.kulpa-online.de

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!

Um den Farbauswahldialog aufrufen zu können, muss man sich des Win32-API bedienen.

Code:

Type CHOOSECOLOR lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors As Long flags As Long lCustData As Long lpfnHook As Long lpTemplateName As String End Type   Declare Function GetActiveWindow Lib "user32.dll" () As Long Declare Function ChooseColor_API Lib "comdlg32.dll" Alias _ "ChooseColorA" _ (lpChoosecolor As CHOOSECOLOR) As Long   Function ColorSelected(Optional lCurrentColor As Long = -1) As Long '// ---------------------------------------------------------------------------- '// Funktion: |Aufruf des Farbauswahldialoges. '// ---------------------------------------------------------------------------- '// Voraussetzungen: |- '// ---------------------------------------------------------------------------- '// Parameter: |optional lCurrentColor als aktuelle Farbe zur '// |Voreinstellung im Auswahldialog '// ---------------------------------------------------------------------------- '// Rückgabe: |Ausgewählte Fabe als Long-Wert '// ---------------------------------------------------------------------------- Const CC_SOLIDCOLOR As Long = &H80& Const CC_ANYCOLOR As Long = &H100& Const CC_RGBINIT As Long = &H1&   Dim uChooseColor As CHOOSECOLOR Dim alColorRef(15) As Long Dim hWnd As Long   hWnd = GetActiveWindow() With uChooseColor .lStructSize = Len(uChooseColor) .hwndOwner = hWnd .lpCustColors = VarPtr(alColorRef(0)) .flags = CC_SOLIDCOLOR Or CC_ANYCOLOR Or CC_RGBINIT End With If lCurrentColor >= 0 Then uChooseColor.rgbResult = lCurrentColor End If If ChooseColor_API(uChooseColor) Then ColorSelected = uChooseColor.rgbResult End If   End Function

Neuen Tipp melden

Neuen Download melden

Copyright 2000-2003 Microsys Kramer– Alle Rechte vorbehalten - Der Download von Tipps und Programmen von den Seiten www.access-paradies.de erfolgt auf eigene Gefahr. Microsys Kramer haftet nicht für Schäden, die aus der Installation oder der Nutzung von Tipps oder Software aus dem Download-Bereich erfolgen. Trotz aktueller Virenprüfung ist eine Haftung für Schäden und Beeinträchtigungen durch Computerviren ausgeschlossen. Schadenersatzansprüche, aus welchem Rechtsgrund auch immer, sind ausgeschlossen, wenn Microsys Kramer nicht Vorsatz oder grobe Fahrlässigkeit zu vertreten hat. Dies gilt auch für Ansprüche auf Ersatz von Folgeschäden wie Datenverlust.