powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Бегущая строка
10 сообщений из 10, страница 1 из 1
Бегущая строка
    #33964349
Igrok4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А нет ли у кого программки, которая бы делала бегущую строку в строке состояния VFP? Или такаое не возможно сделать?
...
Рейтинг: 0 / 0
Бегущая строка
    #33964397
Igrok4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Или хотя бы можно сообщение с втроке состояния напечатать другим цветом?
...
Рейтинг: 0 / 0
Бегущая строка
    #33964461
Фотография бендер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Реализован текстбоксик снизу, слева, типа служебный,
там все примечания и шастают - просто и надежно . . .
----------------
И это пройдет...
...
Рейтинг: 0 / 0
Бегущая строка
    #33964493
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
таймер + _vfp.StatusBar='мой текст'
...
Рейтинг: 0 / 0
Бегущая строка
    #33964929
Igrok4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Никак не могу разобраться с Таймером. Помогите пожалуйста. Надо при нажатии на кнопку формы, в строке состояния на 3 сек. появлялась (или пробегала 1 раз) надпись "Записали".
...
Рейтинг: 0 / 0
Бегущая строка
    #33965281
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну в данном случае можно и без таймера.
можно примерно так
Код: plaintext
1.
2.
3.
4.
5.
lnDelay= 0 . 01 
FOR i= 1  TO  200 
_vfp.StatusBar=SPACE(i)+'Записали'
INKEY(lnDelay)
next
играясь lnDelay и кол-вом проходов цикла можно получить бегущую строку.

Минуса данного подхода - это INKEY

при использовании таймера такого не будет.
Как можно сделать
на форме создаем таймер
Interval=0
Создаем на форме свойство nIt (или объявляем переменную)
событие таймера Timer

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
IF thisform.nit<= 150 
   thisform.nit=thisform.nit+ 1 
   _vfp.StatusBar=SPACE(thisform.nIt)+'Записали'
ELSE
    _vfp.StatusBar='' 
   this.Interval= 0 
endif 
в кнопке добавляем код

Код: plaintext
1.
ThisForm.Timer1.Interval= 100 
thisform.nit= 0 

ежели установить

Код: plaintext
ThisForm.Timer1.Interval= 500 

и поменять код Timer на

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
If Thisform.nit<= 10 
	Thisform.nit=Thisform.nit+ 1 
	If Mod(Thisform.nit, 2 )= 0 
		_vfp.StatusBar='записали'
	Else
		_vfp.StatusBar='ЗАПИСАЛИ'
	Endif
Else
    _vfp.StatusBar=''	
    This.Interval= 0 
Endif
получим эффект "мигания"

Только как-то неинформативно это.
Как часто пользователь после нажатия смотрит на статусную строку ?
...
Рейтинг: 0 / 0
Бегущая строка
    #33965830
Igrok4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Большое спасибо!
Ну как часто он будет смотреть не важно. Важно это свойство прописать в доке к проге ;)
Просто до этого была запись не совсем правильная: чтобы записать операцию, надо было нажать 3 раза Enter. Сейчас будет 1 раз, и подтверждение в строке состояния.
...
Рейтинг: 0 / 0
Бегущая строка
    #33967131
Igrok4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Бегущая строка получается, а вот эффект мигания нет. В статусной строке вообще ничего не появляется. :(
...
Рейтинг: 0 / 0
Бегущая строка
    #33967257
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а у меня получается ;-)
...
Рейтинг: 0 / 0
Бегущая строка
    #33967377
Igrok4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо заработало. :)
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Бегущая строка
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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