colorbox

Bonjour.

il y a des sauts de lignes qui ne fonctionnent pas par le copier/coller, je
te le copie ci-dessous

Option Compare Database
Option Explicit

Private Type COLORSTRUC
lStructSize As Long
hwnd As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Enum WinSizeColors
Small = 0
Large = 2
PreventLarge = 4
End Enum
Const SOLIDCOLOR = &H80
Const ANYCOLOR = &H100
Const RGBINIT = &H1
Dim RetValue As Long
Dim CS As COLORSTRUC

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

Public Function ColorBox(Optional ColorNumber As Long = 0, _
Optional FULLOPEN As WinSizeColors = Small) As Long
CS.lStructSize = Len(CS)
CS.hwnd = hWndAccessApp
CS.rgbResult = ColorNumber
CS.Flags = SOLIDCOLOR Or ANYCOLOR Or RGBINIT Or FULLOPEN
CS.lpCustColors = String$(16 * 4, 0)
RetValue = ChooseColor(CS)
If RetValue = 0 Then CS.rgbResult = 0
ColorBox = CS.rgbResult
End Function

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Laurent" <Laurent@discussions.microsoft.com> a écrit dans le message de
news: FAD50C5D-E62B-44B1-AD72-193E22874142@microsoft.com...

Bonjour à tous,

J'ai recopié l'api colorbox de l'adresse suivante :
http://officesystem.access.free.fr/apicolorbox.htm

Cependant, un message de MSVB m'indique "une erreur de compilation : seuls
les commentaires peuvent apparaître après End Sub, End Function ou End
Property" en mettant en surbrillance la ligne :
Private Declare Function ChooseColor Lib (...) As Long

Je tourne sous W2000 et Access 2000.

Merci de votre aide

un grand MERCI pour ton aide. Tu viens de m'enlever une belle épine du pied.

@+

Laurent