Как из CommonDialogs получить ColorDialog? - VB

Узнай цену своей работы

Формулировка задачи:

как из CommonDialog VB6 получить ColorDialog и подскажите основные методы и свойства или дайте ссылку на описание

Решение задачи: «Как из CommonDialogs получить ColorDialog?»

textual
Листинг программы
Private Sub Command1_Click()
'cdlCCFullOpen = 2 'выводит полное диалоговое окно с настройкой цветов
'cdlCCPreventFullOpen = 4 'выводит часть окна с цветами по-умолчанию и делает недоступной кнопку Define Custom Colors (определение настраиваемых цветов)
'cdlCCHelpButton = 8 'делает видимой кнопку Help
'cdlCCRGBInit = 1 'выводит часть окна с цветами по-умолчанию но кнопка Define Custom Colors (определение настраиваемых цветов) доступна для расширения окна
 
 
 
CommonDialog1.Flags = cdlCCRGBInit
On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
Exit Sub
Cansel:
If Err.Number = cdlCancel Then
Exit Sub
Else
MsgBox Err.Description
End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы