Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 01.12.2008, 14:07   #1
Иван Иванович
 
Регистрация: 11.12.2007
Сообщений: 4
По умолчанию изменение формата всех Label на UserForm

Каким образом можно изменить формат всех Label, расположенных на форме? При попытке сделать это с помощью следующего кода получаем ошибку: "Method or data member not found".

Dim lb As Control
For Each lb In UserForm1.Controls
If TypeName(lb) = "Label" Then
UserForm1.lb.Caption = Format(UserForm1.lb.Caption, "0.00")
End If
Next
Иван Иванович вне форума
Старый 01.12.2008, 14:30   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Вот так точно работает:

Код:
Private Sub UserForm_Initialize()
    Dim lb As Control
    For Each lb In UserForm1.Controls
        If TypeName(lb) = "Label" Then
            UserForm1.Controls(lb.Name).Caption = Format(UserForm1.Controls(lb.Name).Caption, "0.00")
            UserForm1.Controls(lb.Name).Caption = "проверка"
            UserForm1.Controls(lb.Name).BackColor = vbGreen
        End If
    Next
End Sub
Ну а правильнее будет так:

Код:
Private Sub UserForm_Initialize()
    For Each lb In UserForm1.Controls
        If TypeName(lb) = "Label" Then lb.Caption = Format(lb.Caption, "0.00"): lb.BackColor = vbYellow
    Next
End Sub

Последний раз редактировалось EducatedFool; 01.12.2008 в 18:45.
EducatedFool вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
2 вопроса по UserForm tolikman Microsoft Office Excel 4 25.11.2008 22:50
При расположении Label на компонентах, место под Label, не реагирует на событие onClick. NavigatorNeba Компоненты Delphi 3 15.11.2008 19:56
Помогите с UserForm Maxx Microsoft Office Excel 4 12.11.2008 11:37
Изменение формата DRAGGER Фриланс 6 14.10.2008 19:36
Вопрос по label. Как сделать так чтобы label была прозрачной. Lonix Компоненты Delphi 2 01.04.2007 06:23