Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Неизвестно -

Visual Basic 5.0/6.0 - Разработка элементов управления

Все примеры / Интерфейс / Элементы управления Windows / Разработка элементов управления

Окно выбора цвета

Автор: Неизвестно | добавлено: 06.03.2010, 11:58 | просмотров: 1866 (2+) | комментариев: 0 | рейтинг: *x0
Окно выбора цвета без использования контрола. Только API.

Код

'за декларируйте тип и API-шку
Private Type ChooseColor
  lStructSize As Long
  hwndOwner As Long
  hInstance As Long
  rgbResult As Long
  lpCustColors As String
  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

'вставьте код для вызова диалогового окна
Dim cc As ChooseColor
Dim CustColor(16) As Long
cc.lStructSize = Len(cc)
cc.hwndOwner = Form1.hWnd
cc.hInstance = App.hInstance
cc.flags = 0
cc.lpCustColors = String$(16 * 4, 0)
Dim a
Dim x
Dim c1
Dim c2
Dim c3
Dim c4
a = ChooseColor(cc)
Cls
If (a) Then
  MsgBox "Color chosen:" & Str$(cc.rgbResult)

        For x = 1 To Len(cc.lpCustColors) Step 4
            c1 = Asc(Mid$(cc.lpCustColors, x, 1))
            c2 = Asc(Mid$(cc.lpCustColors, x + 1, 1))
            c3 = Asc(Mid$(cc.lpCustColors, x + 2, 1))
            c4 = Asc(Mid$(cc.lpCustColors, x + 3, 1))
            CustColor(x / 4) = (c1) + (c2 * 256) + (c3 * 65536) + (c4 * 16777216)
            MsgBox "Custom Color " & Int(x / 4) & " = " & CustColor(x / 4)
        Next x
Else
        MsgBox "Cancel was pressed"
End If
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Неизвестно

Нет информации об авторе...
Неизвестно
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики