Как из 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д