VPF::Цвет всего текста. - Форум программистов

Kirill89

Дата 2.12.2006, 11:40 (ссылка)

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

Загрузка ...

Опытный

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

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

Вопросик: есть такая возможность изменить сразу весь текст на форме, я имею в виду все кнопки, лаблы, чеки...и т.д.?
Может какая - нибудь api функция?

Написал проект и оказалось, что необходимо сделать настройки цвета текста и фона, а в проекте на форме много чего... очень smile

Извините, не стал второй топик писать, но вот ещё вопрос на эту-же тему: цвет фона всех объектов одновременно можно поменять?

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

GSteam[dot]info

BorisVorontsov

Дата 2.12.2006, 12:43 (ссылка)

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

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

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

Цитата(Kirill89 @ 2.12.2006, 11:40

)

есть такая возможность изменить сразу весь текст на форме

Код


    Dim hControl As Object
    For Each hControl In Me.Controls
        Select Case TypeName(hControl)
            Case "Form", "Frame", "PictureBox", "TextBox", "Label" '...
                hControl.ForeColor = vbCyan
                hControl.BackColor = vbBlack
        End Select
    Next hControl

Цитата(Kirill89 @ 2.12.2006, 11:40

)

Может какая - нибудь api функция?

Нет.

Цитата(Kirill89 @ 2.12.2006, 11:40

)

цвет фона всех объектов одновременно можно поменять?

См. код выше.

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

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

Kirill89

Дата 2.12.2006, 12:54 (ссылка)

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

Загрузка ...

Опытный

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

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

мне до токого расти и расти smile

... Спасибо!
Ещё коечто сюда: можно как-то взвать стандартный диалог выбора цвета?

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

GSteam[dot]info

IcyJet

Дата 2.12.2006, 14:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

А для этого нехтроумного smile

дела надо CommongDialog'ом пользоваться.

Kirill89

Дата 2.12.2006, 14:18 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(IcyJet @ 2.12.2006, 14:10)

надо CommongDialog'ом пользоваться.

Так, немоного по подробнее, пожалуйста.

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

GSteam[dot]info

BorisVorontsov

Дата 2.12.2006, 23:54 (ссылка)

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

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

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

Цитата(Kirill89 @ 2.12.2006, 12:54

)

можно как-то взвать стандартный диалог выбора цвета?

Код


Option Explicit

Public Const CC_RGBINIT As Long = &H1
Public Const CC_FULLOPEN As Long = &H2
Public Const CC_PREVENTFULLOPEN As Long = &H4

Public 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

Public Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias "ChooseColorA" (ByRef CChooseColor As CHOOSECOLOR) As Long

Public Const API_TRUE As Long = 1

Public Function GetColor(ByVal hWndOwner As Long, ByRef lColor As Long) As Boolean
    Dim CChooseColor As CHOOSECOLOR
    Dim x As Long, i As Long, lClr As Long, UserColor(15) As Long
    For i = 0 To 15
        UserColor(i) = RGB(255 - lClr, 255 - lClr, 255 - lClr)
        lClr = lClr + 17
    Next i
    With CChooseColor
        .lStructSize = Len(CChooseColor)
        .hWndOwner = hWndOwner
        .hInstance = App.hInstance
        .rgbResult = lColor
        .lpCustColors = VarPtr(UserColor(0))
        .flags = CC_RGBINIT Or CC_FULLOPEN
    End With
    x = CHOOSECOLOR(CChooseColor)
    If x <> API_TRUE Then
        GetColor = False
        Exit Function
    Else
        GetColor = True
        lColor = CChooseColor.rgbResult
    End If
End Function

Использовать:

Код


Private Sub MySub()
    Dim lColor As Long
    lColor = Form.BackColor
    If GetColor(Form.hWnd, lColor) Then Form.BackColor = lColor
End Sub

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

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

Kirill89

Дата 3.12.2006, 17:58 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо!

Большое!

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

GSteam[dot]info

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