Windows Farbwähler aufrufen

[Peter Sander]

Hi.

Weis jemand einen Link zu einem Beispiel, wie man per VBA den
Windows-Farbwähler aufruft und danach dem Farbwert zurückerhält? (ohne
Verweise oder so).

Danke

Peter Sander

[Gunter Avenius]

Hallo Peter Sander,

Peter Sander schrieb folgendes:

> Weis jemand einen Link zu einem Beispiel, wie man per VBA den
> Windows-Farbwähler aufruft und danach dem Farbwert zurückerhält?
> (ohne Verweise oder so).

Scchau Die mal meine Toolssammlung für A00/AX an, diese enthält u.a. ein
Font/Color Assi. Auserdem findest Du auf meiner Site auch einen ActiveX
"ColorButton" mit dem Du Farben auswählen kanst.

Beide Downloads zu finden unter www.dbdev.org, www.access-guru.de und auf
meiner HP.

--
Gruß
Gunter
_________________________________________________
Access - FAQ: http://www.donkarl.com
home: http://www.avenius.com

[Henry Habermacher [MVP Access]]

Hallo Peter

Peter Sander wrote:
> Weis jemand einen Link zu einem Beispiel, wie man per VBA den
> Windows-Farbwähler aufruft und danach dem Farbwert zurückerhält? (ohne
> Verweise oder so).

Schau mal den Common Dialog Ersatz von mir bei www.dbdev.org an. Der kann
Fonts, Farben und Filedialoge anzeigen, ohne dafür das ComDlg32.OCX
einzubinden.

Gruss
Henry

--
Keine E-Mails auf Postings in NGs senden!
Don't send e-mails to postings in newsgroups!
KB: http://support.microsoft.com/default.aspx
FAQ: http://www.donkarl.com/FAQ/FAQStart.htm
MVP: http://mvp.support.microsoft.com
OH: Online Hilfe von Microsoft Access (Taste F1)

[Daniel Bolege]

Hallo Peter,

> Weis jemand einen Link zu einem Beispiel, wie man per
> VBA den Windows-Farbwähler aufruft und danach dem
> Farbwert zurückerhält? (ohne Verweise oder so).

Siehe unten. Aufruf z.B. mit

Dim colour As Long
colour = 0
If getColor(Application.hWndAccessApp, _
colour) Then
'Variable colour auswerten
Else
'Benutzer hat Farbauswahl abgebrochen
End If

Gruß Daniel

Public Declare Function ChooseColor _
Lib "comdlg32.dll" Alias "ChooseColorA" _
(pChoosecolor As tChooseColor) As Long

'Benutzerdef. Farbendialog nicht zeigen
Public Const CC_PREVENTFULLOPEN = &H4

'Vorgabe als Default vorblenden
Public Const CC_RGBINIT = &H1

'Nur "massive" Farben
Public Const CC_SOLIDCOLOR = &H80

Function getColor(ByVal hdlParrWin As Long, _
ByRef colour As Long) As Boolean
'Beschreibung: Zeigt den Farbe-wählen-Dialog an.
'Parameter: hdlParrWin: Handle des Fensters, das
' diese Funktion aufruft.
' colour: Farbe, die beim Start als
' Vorgabe gezeigt werdeen soll. Klickt
' der Benutzer auf "OK", so enthält
' diese Variable den gewählten Wert.
'Rückgabe: true, wenn Benutzer Farbe wählte,
' false bei Abbruch.

Dim cc As tChooseColor

With cc
.hwndOwner = hdlParrWin
.lStructSize = Len(cc)
.flags = CC_RGBINIT
.lpCustColors = 0
If colour > 0 Then
.rgbResult = colour
Else
.rgbResult = 0
End If
End With

If ChooseColor(cc) = 0 Then
getColor = False
Else
colour = cc.rgbResult
getColor = True
End If

End Function