Тест цвета - 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

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

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