Excel, COLOR / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, COLOR

5 сообщений из 5, страница 1 из 1

Excel, COLOR

#32732554

Milk

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

Нижеидущий код во все контролы типа TextBox помещает нуль.
Как его вывести в красном цвете RGB( 255 , 0 , 0 ) ?

For Each ctrl In Me.Controls
    If TypeName(ctrl) = "TextBox" Then  
         ctrl.Text =   0 
    End If   '  end  L2 
Next

СПАСИБО

...

Рейтинг:

0 / 0

11.10.2004, 16:11

| Ответить | Цитировать | Написать

Excel, COLOR

#32732641

HalK2

Участник

Сообщения: 738

Рейтинг: 0 / 0

For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
ctrl.Text = 0
Me.ForeColor=RGB(255,0,0) End If ' end L2
Next

...

Рейтинг:

0 / 0

11.10.2004, 16:35

| Ответить | Цитировать | Написать

Excel, COLOR

#32732650

HalK2

Участник

Сообщения: 738

Рейтинг: 0 / 0

For Each ctrl In Me.Controls

If TypeName(ctrl) = "TextBox" Then

ctrl.Text = 0

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

End If ' end L2

Next

...

Рейтинг:

0 / 0

11.10.2004, 16:36

| Ответить | Цитировать | Написать

Excel, COLOR

#32732776

Milk

Гость

Код: plaintext

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

НЕПРАВДА, т.е. ЛОЖЬ - НЕ ВЫВОДИТ КРАСНЫМ,

хотя и аварийно НЕ ЗАВЕРШАЕТСЯ.

...

Рейтинг:

0 / 0

11.10.2004, 17:13

| Ответить | Цитировать | Написать

Excel, COLOR

#32734925

HalK2

Участник

Сообщения: 738

Рейтинг: 0 / 0

А сейчас не ложь???
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
ctrl.Text = 0
ctrl.ForeColor = RGB(255, 0, 0)
End If ' end L2
Next

...

Рейтинг:

0 / 0

12.10.2004, 18:33

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, COLOR

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/search_topic.php?author=vizarius&author_mode=last_posts&do_search=1]:	0ms
get settings:	9ms
get forum list:	13ms
get settings:	11ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	55ms
get topic data:	10ms
get forum data:	3ms
get page messages:	43ms
get tp. blocked users:	1ms
others:	747ms

total:	913ms