| Вопрос: Progress Bar по блокам | Добавлено: 30.08.07 07:26 |
Автор вопроса:  Stasik
|
|
Приветствую!
Ищу Progress Bar... Только нужно чтобы не сплошной полосой был, а можно было работать по блокам. Например забить его на 10 блоков и заполнять сначала, например 4 потом первый и т.д. На подобу Progress Bar-а в Torrent или E-Mule клиентах. Там фаилы скачиваются по частям и в разброс. Отсюда и обработка событий для заполнения Progress Bar-а в разброс... Буду очень благодарен за помощь! Огромное спасибо откликнувшимся! С уважением! Стас... |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Millenium ICQ: 629966 Вопросов: 118 Ответов: 903 |
Web-сайт: Профиль | | #1 | Добавлено: 30.08.07 11:24 |
| Вот: http://www.vbnet.ru/samples/download.aspx?id=486 - Пожеш переделать под себя. | ||
|
Номер ответа: 2 Автор ответа: MilleniumICQ: 629966 Вопросов: 118 Ответов: 903 |
Web-сайт: Профиль | | #2 | Добавлено: 30.08.07 11:29 |
| З.Ы.: В разделе "Примеры" подраздел "Контроли". Поисчи ешё там. | ||
|
Номер ответа: 3 Автор ответа:  Stasik Вопросов: 3 Ответов: 21 |
Профиль | | #3 | Добавлено: 30.08.07 19:04 |
|
Не совсем то, что нужно... Точнее совсем не то...
Я имел в виду что-то вроде этого: http://www.stasik1984.nm.ru/pic/progressbar.jpg Пример: Нужно отследить 100 событий пронумированных от 1 до 100. События не обязательно должны завершиться по очереди. Сначала, например может завершиться событие №50, а потом № 10 и т.д. Нужно чтобы Progress Bar отслеживал эти события и реагирывал "включением блока" в прогрессе нужного по счёту... |
||
|
Номер ответа: 4 Автор ответа: el-pasoВопросов: 0 Ответов: 56 |
Профиль | | #4 | Добавлено: 30.08.07 19:46 |
|
Открой новый проект с формой. На форму кинь PictureBox (растяни только по горизонтали) и одну кнопку. А в код формы кинь вот это:
Dim events() As Boolean Dim event_count As Long Sub init_bar(n As Long) ' ReDim events(0 To n - 1) event_count = n ' Picture1.Scale (0, 0)-(n, 1) Picture1.Line (0, 0)-(n, 1), vbWhite, BF ' End Sub Sub step_bar(n As Long) ' events(n) = True event_count = event_count - 1 ' Picture1.Line (n, 0)-(n + 1, 1), vbBlack, BF ' End Sub Private Sub Command1_Click() If event_count = 0 Then Exit Sub Dim n As Long Do: n = Rnd * UBound(events): Loop Until Not events(n) step_bar n End Sub Private Sub Form_Load() init_bar 36 End Sub Запусти и пощелкай кнопку. Если умеешь писать контролы, можешь легко с помощью этой идеи написать его. Считай, что идею я тебе подарил 
|
||
|
Номер ответа: 5 Автор ответа: StasikВопросов: 3 Ответов: 21 |
Профиль | | #5 | Добавлено: 30.08.07 22:28 |
|
Спасибо огромное за помощь!
Огромное огромное спасибо! Контролы я никогда не писал, но можно попробывать разобраться. Учиться ведь никогда не поздно... А идея действительно оригенальная! Даже не подумал об использывании PictureBox в данных челях... Ещё раз огромное спасибо за помощь! С уважением... Стас... |
||
Страница: 1 |