Тест цвета - VB
Формулировка задачи:
Как поместить на форму палитру выбора цветов (чтобы их было много)?
Как сделать так, чтобы цвет текста в Text1.Text сменился на цвет выбранный в палитре?
Как сделать так, чтобы программа сама распознавала цвет, т.е например я ввел в Text1.Text это - FF0000( это красный цвет) нужно чтобы программа распознала этот красный цвет и закрасила цвет текста в Text1.Text на этот. (Вот аналогичные цвета - 0000FF, FFFFFF, 00FF00, ну и т.д)?
Как все это реализовать?
Решение задачи: «Тест цвета»
textual
Листинг программы
Private Type CHOOSECOLOR_ lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors As Long flags As Long lCustData As Long lpfnHook As Long lpTemplateName As String End Type Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR_) As Long Private Sub Form_Load() Dim cc As CHOOSECOLOR_ Dim col(15) As Long cc.lpCustColors = VarPtr(col(0)) cc.lStructSize = Len(cc) cc.hwndOwner = Me.hWnd If ChooseColor(cc) Then MsgBox "0x" & Hex(cc.rgbResult) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д