- Details
- Geschrieben von: Ewald
- Zugriffe: 1430
Vielleicht braucht jemand mal einen Farbpicker, um eine Farbe auszuwählen, die in einem Feld gespeichert werden soll. Dies ist mit dem Access-eigenen Farbauswahl ganz einfach zu realisieren.
Hier das Modul:
Declare Sub wlib_AccColorDialog _
Lib "msaccess.exe" _
Alias "#53" (ByVal Hwnd As Long, lngRGB As Long)
Public Function ChooseWebColor(DefaultWebColor As Variant) As String
Dim lngColor As Long
lngColor = DefaultWebColor
wlib_AccColorDialog Screen.ActiveForm.Hwnd, lngColor
ChooseWebColor = lngColor
End Function{/code}
und nochenmal mit Rückgabe von HTML-Farbcodes
{code lang:vb lines:true hidden:false}Declare Sub wlib_AccColorDialog _
Lib "msaccess.exe" _
Alias "#53" (ByVal Hwnd As Long, lngRGB As Long)
Public Function ChooseWebColor(DefaultWebColor As Variant) As String
Dim lngColor As Long
lngColor = CLng("&H" & Right("000000" + _
Replace(Nz(DefaultWebColor, ""), "#", ""), 6))
wlib_AccColorDialog Screen.ActiveForm.Hwnd, lngColor
ChooseWebColor = "#" & Right("000000" & Hex(lngColor), 6)
End Function
Der Aufruf erfolgt so
Me.txt_Farbe = ChooseWebColor(Me.txt_Farbe)