Palette couleur

[winfield]

Bonjour,

Comment faire pour afficher la palette de couleur ? et bien sûr récuperer la valeur..

 

Merci pour votre aide.

[Invité Patrick]

Question que j'avais posée il y a quelques mois, il ne me semble pas y avoir eu de réponse.

[delicad]

Salut

 

Apparemment si : cherchez sur Google "acedSetColorDialog"....

Pas testé...

 

Philippe

 

www.delicad.com

 

[winfield]

Alors là !!! Mille MERCI Philippe !

Code tiré de http:// http://www.cad.dp.ua/stats/a_vba/content.php?content=acentity.html

 

Option Explicit

Private Declare Function acedSetColorDialog Lib _
"acad.exe" (color As Long, ByVal bAllowMetaColor _
As Boolean, ByVal nCurLayerColor As Long) As Boolean

Private Function ChooseColor(ByVal lngInitClr As Long, _
ByVal blnMetaColor As Boolean, ByVal _
lngCurClr As Long) As Long
 ChooseColor = -1
 On Error Resume Next
 If acedSetColorDialog(lngInitClr, _
   blnMetaColor, lngCurClr) Then
   ChooseColor = lngInitClr
 End If
End Function


Public Sub TEST_ChangeColor()
 Dim objEnt As AcadEntity
 Dim varPnt As Variant
 Dim strPrmt As String
 On Error GoTo Err_Control
 strPrmt = vbCr & "Select an entity: "
 ThisDrawing.Utility.GetEntity objEnt, _
 varPnt, strPrmt
 objEnt.color = ChooseColor(objEnt.color, _
 True, objEnt.color)
Exit_Here:
 Exit Sub
Err_Control:
 Debug.Print Err.Description
 Resume Exit_Here
End Sub
 

.....et il y a encore pleins d'autres sources

Merci encore Philippe et merci à Victor Tkachenko

[Costa]

Génial Super site

 

:o