TrueColor对话框
有人知道如何从VBA调用真彩色对话框吗，比如LISP中的' acad_truecolordlg '?我知道有一个用于ACI颜色对话框的API，但是找不到类似于TrueColor的API。
A2k7...蒂亚·于尔格
**** Hidden Message ***** 以下是我所知道的关于
选项显式
公共声明函数acedSetColorDialog Lib"acad.exe"（Color As Long， ByVal bAllowMetaColor As Boolean， ByVal nCurLayerColor As Long）As Boolean
Sub test（）
Dim lngInitClr As Long
Dim blnMetaColor As Boolean
Dim lngCurClr As Long
On Error Resume Next
如果acedSetColorDialog（lngInitClr， blnMetaColor， lngCurClr）然后
MsgBox lngInitClr
结束如果
结束子
公共函数ColorDialog（）As整数
Dim intVariable As整数
如果连接则
objAcad.Application.WindowState=acMin
'调用acad颜色对话框并返回
'调用颜色对话框
ThisDrawing1.SendCommand（"（setq clr（acad_colordlg1））"&vbCr）
ThisDrawing1.SendCommand（"（if（=clr nil）"&_
"（setvar""USERI5"""-1）"&_
"（setvar""USERI5""clr）"&vbCr）
ColorDialog=ThisDrawing1.GetVariable（"USERI5"）
'重置sysvar
ThisDrawing1.SetVariable"USERI5"， intVariable
End如果
Fred Castillo
谢谢你，弗雷德…
我从AutoCAD的VBA调用ACI颜色对话框没有问题，而是在A2k4+中调用TrueColor对话框<第三条路呢<干杯 http://www.fmsinc.com/products/components/components2000/ControlTour/cdlg.htm
http://www.shareup.com/Aurigma_Color_Dialog-download-5471.html
http://www.shareup.com/ColorCombo_ActiveX-download-27898.html 我会试一试，谢谢弗雷德。
页:
[1]