VBNet - Форум - Изменение цвета.

Вопрос: Изменение цвета. Добавлено: 27.03.03 13:34

Автор вопроса: boevik | Web-сайт: www.hypertech.ru | ICQ: 137392264

Как изменить цвет ForeColor в TextBox, когда TextBox.Еnabled = False?
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: Gravity Вопросов: 6 Ответов: 120	Профиль \| \| #1	Добавлено: 27.03.03 13:42
	Надо быть дальтоником )))))) Ответить

Номер ответа: 2
Автор ответа:

Алексей

black admin

ICQ: 261779681

Вопросов: 87
Ответов: 633

Web-сайт: aleksey.nemiro.ru
Профиль | | #2

Добавлено: 28.03.03 03:11

Text1.Enabled = True

Text1.Locked = False

Text1.ForeColor = RGB (255, 0, 0)

Ответить

Номер ответа: 3 Автор ответа: boevik Хранитель чата ICQ: 137392264 Вопросов: 8 Ответов: 557	Web-сайт: www.hypertech.ru Профиль \| \| #3	Добавлено: 30.03.03 10:07
	Нужно изменить цвет ForeColor, когда у TextBox свойство Enabled = False. Может есть возможность сделать через API functions? Ответить

Номер ответа: 4 Автор ответа: Алексей black admin ICQ: 261779681 Вопросов: 87 Ответов: 633	Web-сайт: aleksey.nemiro.ru Профиль \| \| #4	Добавлено: 30.03.03 10:56
	I dont know Ответить

Номер ответа: 5
Автор ответа:

Zeus

ICQ: 161801353

Вопросов: 63
Ответов: 220

Web-сайт: apirussia.by.ru
Профиль | | #5

Добавлено: 30.03.03 14:19

Если тебя интересует апи-функция, меняющая цвет текста, то используй SetTextColor.

Ответить

Номер ответа: 6
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #6

Добавлено: 30.03.03 14:47

Пробовал, не работает:

Dim prevColor As Long
prevColor = SetTextColor(GetDC(Text1.hwnd), RGB(255, 255, 255))

цвет не меняет и возвращает значение - 0.
когда, -1 это ошибка,
а всё другое, предедущий цвет.
В моём случае, начальный цвет - красный.

Ответить

Номер ответа: 7 Автор ответа: Zeus ICQ: 161801353 Вопросов: 63 Ответов: 220	Web-сайт: apirussia.by.ru Профиль \| \| #7	Добавлено: 30.03.03 20:00
	Во-первых, если апи функция возвращает число, отличное от нуля, то функция была УСПЕШНА (не путайте с ВБ!) Во-вторых, второй аргумент SetTextColor должен быть уже ргб цветом... Ответить

Номер ответа: 8
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #8

Добавлено: 31.03.03 08:36

В данном случае функция при неудаче возвращает -1.
Смотри http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/fontext_8bsi.asp.
Второй аргумент у меня RGB возвращаемый функцией RGB.

После некоторых тестов я нашёл, что SetTextColor действует на техт выведеный функцией TextOut с тем же device context. К примеру:
Dim hwnd As Long
Dim hDC As Long
    hwnd = Text1.hwnd
    hDC = GetDC(hwnd)
    SetTextColor hDC, RGB(255, 0, 127)
    TextOut hDC, 0, 30, "test", 4

Слово "test" выводиться задонный светом.
Но если поменять местами последние две строки, то слове "test" выводиться чёрным светом.

Ответить

Страница: 1 |