Разворачивающийся список с палитрой в VBA в Corel

[PressMAN]

Друзья! Подскажите как в VBA поставить на форму моего проекта РАЗВОРАЧИВАЮЩИЙСЯ СПИСОК со стандартной палитрой и как потом пользоваться выбранным цветом?

 

[wOxxOm]

Ответ: VBA в Corel

Я искал и то и другое когда-то и не нашел.

 

[PressMAN]

Ответ: VBA в Corel

Блин, не думал, что все так серьезно

 

[lev]

Ответ: VBA в Corel

а вызов стандартного диалога Вас не устраивает?

Sub GetAndStoreColor()
Dim c As New Color
c.UserAssign
'куча кода
'красим выделенный объект выбранным цветом
ActiveShape.Fill.UniformColor = c
End Sub

 

[PressMAN]

Ответ: Разворачивающийся список с палитрой в VBA в Corel

А какбы вот такое окошко

 

[wOxxOm]

Ответ: Разворачивающийся список с палитрой в VBA в Corel

1 способ - повеcить клавишу на диалог обводки и посылать ее через vba: sendkeys. 2 способ - winapi sendmessage