Вверх ↑
Этот топик читают: Гость
Ответов: 49
Рейтинг: 10
#1: 2009-07-01 11:33:06 ЛС | профиль | цитата
Доброго Всем Дня! Кто покажет, как возможно сделать так, что бы программа каждые например 10 секунд, переходила на новую строку и выдавало ее в поток в элементе ListBox. Видел такое в некоторых программах, так что думаю такое возможно осуществить!
карма: 0

0
Разработчик
Ответов: 26109
Рейтинг: 2124
#2: 2009-07-01 11:43:35 ЛС | профиль | цитата
Можно так



Add(MainForm,2953706,182,252)
{
Width=469
link(onCreate,11390398:doOperation,[])
}
Add(ListBox,3473035,343,140)
{
Left=20
Top=10
Width=245
Height=230
Strings=#4:Вася|4:Петя|4:Коля|4:Маша|4:Саша|
Point(doSelect)
Point(String)
}
Add(Counter,1698486,252,182)
{
Default=-1
Point(doMax)
link(onNext,9721854:doEvent1,[])
}
Add(Hub,9721854,301,182)
{
link(onEvent1,3473035:doSelect,[])
link(onEvent2,14223535:doData,[(339,195)(339,230)])
}
Add(Timer,5107559,182,182)
{
link(onTimer,1698486:doNext,[])
}
Add(Math,11390398,350,266)
{
OpType=1
Op2=1
ResultType=0
link(onResult,1698486:doMax,[(460,272)(460,124)(240,124)(240,209)])
link(Op1,3473035:Count,[])
}
Add(DoData,14223535,364,224)
{
link(onEventData,6633416:doText,[])
link(Data,3473035:String,[])
}
Add(Edit,6633416,413,224)
{
Left=270
Top=10
Width=180
Text=""
}

карма: 22

1
Голосовали:MireX
Ответов: 49
Рейтинг: 10
#3: 2009-07-01 11:46:02 ЛС | профиль | цитата
nesco - Замечательно, то что надо! Огромное спасибо Вам! Где бы я в мире еще нашел таких людей, которые всегда готовы помочь!
карма: 0

0
Ответов: 8908
Рейтинг: 823
#4: 2009-07-01 13:50:59 ЛС | профиль | цитата
"nesco, прикинь: Вася на даче, Петя в горах, Маша, как всегда, на точке, а я на море!" - блин, реклама в зубах завязла
карма: 19

0
Ответов: 1088
Рейтинг: 112
#5: 2009-07-01 15:06:44 ЛС | профиль | цитата
Леонид, не смотри больше зомбоящик
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26109
Рейтинг: 2124
#6: 2009-07-01 15:31:32 ЛС | профиль | цитата
А я, честно -- ниче не понимаю ((с) Следствие ведут колобки)
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2009-07-01 15:39:01 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-05 07:57:10
карма: 0

0
Ответов: 1397
Рейтинг: 50
#8: 2009-07-01 18:21:16 ЛС | профиль | цитата
Оптимизация. На один компонент меньше.
code_13964.txt
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_13964.txt [766B] [106]
Администрация
Ответов: 15295
Рейтинг: 1519
#9: 2009-07-01 18:30:14 ЛС | профиль | цитата
и еще -1


Add(MainForm,14038701,210,196)
{
Width=469
}
Add(ListBox,3473035,371,112)
{
Left=20
Top=10
Width=245
Height=230
Strings=#4:Вася|4:Петя|4:Коля|4:Маша|4:Саша|
Point(doSelect)
Point(String)
}
Add(Hub,9721854,329,154)
{
link(onEvent1,3473035:doSelect,[])
link(onEvent2,6633416:doText,[(367,167)(367,202)])
}
Add(Timer,5107559,210,154)
{
link(onTimer,4783245:doCalc,[])
}
Add(Edit,6633416,392,196)
{
Left=270
Top=10
Width=180
Text=""
link(Str,3473035:String,[])
}
Add(MathParse,4783245,280,154)
{
MathStr="(%1+1) mod %2"
Default=-1
link(onResult,9721854:doEvent1,[])
link(X1,4783245:Result,[(286,142)(274,142)(274,198)(286,198)])
link(X2,3473035:Count,[(293,142)(336,142)(336,179)(384,179)])
}
карма: 27
0
Разработчик
Ответов: 26109
Рейтинг: 2124
#10: 2009-07-01 18:55:05 ЛС | профиль | цитата
Ну почалось

А вывод на Edit я не сделал специально, вдруг челу надо куда-то в другое место выдавать, а Edit -- частный случай
карма: 22

0
10
Сообщение
...
Прикрепленные файлы
(файлы не залиты)