VPF::системные цвета - Форум программистов

SOY

Дата 28.4.2005, 23:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 30.10.2004

Репутация: 1
Всего: 1

как через VB узнать цветовую схему?
GetSysColor Lib "user32" (ByVal nIndex As Long) As Long - возвращает только системные цвета.

Guest

Дата 28.4.2005, 23:57 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

какую цветовую схему?
ты имеешь ввиду напр. forecolor или backcolor формы и т.д.? тык это прям в свойствах каждого объекта есть.

SOY

Дата 29.4.2005, 23:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 30.10.2004

Репутация: 1
Всего: 1

на рабочем столе щелкни правой кнопкой мыши и найди вкладку "Оформление". Там увидишь. В WinXP есть три цветовых схемы : Стандартная (Голубая), Оливковая, Серебристая.
Так мне нужно через VB узнать какая из этих схем выбрана.
Заранее спасибо!

Naghual

Дата 30.4.2005, 12:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Текущая схема хранится в реестре по адресу: HKEY_CURRENT_USER\Control Panel\Current
в ключе: Color Schemes
А работа с реестром рассматривалась уже не раз на этом форуме. Вот хотябы тут.

--------------------

Я желаю всем Счастья!

Gannibal

Дата 3.5.2005, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

Код


  Dim names() As String
  Dim values As Array

  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    names = [Enum].GetNames(GetType(System.Drawing.KnownColor))
    values = [Enum].GetValues(GetType(System.Drawing.KnownColor))
    Dim i As Integer
    With ComboBox1
      .DrawMode = DrawMode.OwnerDrawFixed
      AddHandler .DrawItem, AddressOf PaintColor
      For i = 0 To names.Length - 1
        .Items.Add(String.Format("{0} = {1}", names(i), CInt(values.GetValue(i))))
      Next
    End With
  End Sub

  Private Sub PaintColor(ByVal sender As Object, ByVal e As DrawItemEventArgs)
    Dim g As Graphics = e.Graphics
    e.DrawBackground()
    Dim rectangle As Rectangle = New Rectangle(2, e.Bounds.Top + 2, _
        e.Bounds.Height, e.Bounds.Height - 4)
    e.Graphics.FillRectangle(New SolidBrush(System.Drawing.Color.FromName(names(e.Index))), rectangle)
    e.Graphics.DrawString(names(e.Index), e.Font, System.Drawing.Brushes.Black, _
        New RectangleF(e.Bounds.X + rectangle.Width, e.Bounds.Y, _
        e.Bounds.Width, e.Bounds.Height))
    e.DrawFocusRectangle()
  End Sub

Это сообщение отредактировал(а) M.E.G.U.S - 3.5.2005, 16:27

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

SOY

Дата 6.5.2005, 22:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 30.10.2004

Репутация: 1
Всего: 1

Чудненько! Спасибо всем!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »