powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Refresh Label
7 сообщений из 7, страница 1 из 1
Refresh Label
    #32417222
Alex Sheff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет всем.
нужно изменить Label1.Caption в зависимости от переменной PbLE.
в properties прописал для Caption iif(PbLE=1,"текст 1","текст 2")
Но когда PbLE меняет значение - Caption неменяется, Thisform.Refresh непомогает.
Подскажите плиз
...
Рейтинг: 0 / 0
Refresh Label
    #32417252
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Caption у любого объекта формируется один раз при инициализации формы. Если в процессе работы необходимо изменить Caption, то это надо прописать явно непосредственно в коде

ThisForm.Lable1.Caption="Новый текст"

Чтобы автоматизировать этот процесс в зависимости от некоторого значения свойства формы используют ASSIGN - методы. Это делается примерно так:

Создаешь новое property формы (например, тот же PbLE), и при этом выставляешь ему птичку в свойстве Assign. В результате, кроме собственно свойства PbLE возникает еще событие PbLE_Assign().

Событие PbLE_Assign будет срабатывать автоматически каждый раз при попытке изменения значения свойства PbLE. Т.е. например по команде:

ThisForm.PbLE=1

Даже если оно и так имеет значение 1. Соответсnвенно в этом событии и пиши

IF ThisForm.PbLE=1
ThisForm.Lable1.Caption="текст 1"
ELSE
ThisForm.Lable1.Caption="текст 2"
ENDIF
...
Рейтинг: 0 / 0
Refresh Label
    #32417273
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Версия VFP?
В VFP8 лейблы рефрешатся :)
...
Рейтинг: 0 / 0
Refresh Label
    #32417291
Alex Sheff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
VFP 7.0
...
Рейтинг: 0 / 0
Refresh Label
    #32417293
Если после изменения в VFP Label.Caption за этой командой следует команда, запускающая большой кусок кода, например SELECT..SQL или процедура, то метка на форме не успевает обновиться - я в таких случаях ввожу искусственную задержку:
= inkey(0.1)
Как правило, помогает.
...
Рейтинг: 0 / 0
Refresh Label
    #32417309
Alex Sheff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
нету там большого кода, програмка простая и маленькая...
просто надо сделать английскую и русскую версию
Хотел чтобы юзеры выбирали в Optiongroup язык и все лейблы менялись
...
Рейтинг: 0 / 0
Refresh Label
    #32419339
Тогда в OptionGroup используйте событие Click:

thisform.Label1.Caption = iif(this.value=1,'Русский','english')
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Refresh Label
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]