Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: ПрогрессБар в vb6 Добавлено: 24.03.10 21:13  

Автор вопроса:  Smith | Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой. | ICQ: ненавижу 
Люди, киньте пример перевода прогрессбара в "бесконечный" режим.
Просто неверится, что везде в прогах используются самоделки, выглядит слишком одинаково.
Я имею ввиду не заполняющийся прогрессбар, а с ползающими туда и обратно тремя кубиками.

Ответить

  Ответы Всего ответов: 12  

Номер ответа: 1
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #1 		Добавлено: 24.03.10 21:24
в вб по моему нету (в стандарных компонентах) можно только заполняющийся бесконечно...
а насчёт выглядит одинакого - может ктото создал стороннию компоненту.

Ответить

Номер ответа: 2
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
  Профиль | | #2 Добавлено: 24.03.10 21:56
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=56151&lngWId=1

Ответить

Номер ответа: 3
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #3 Добавлено: 24.03.10 21:57
Я уже давно не использую прогресс из КоммонКонтролс.
А этот бесконечный есть к примеру в нэро барнинг, а они бы не стали использовать левое.

Ответить

Номер ответа: 4
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #4 		Добавлено: 24.03.10 22:57
Smith! i've done it!
1 Копируешь кот http://www.recursosvisualbasic.com.ar/htm/listado-api/272-barra-de-progreso-con-animacion.htm
2 Добавляешь манифест. Например в ресурс-эдиторе добавляешь слепленный мной и Restorator'ом файл http://rghost.ru/1237676
3 Компилируешь и запускаешь
P.S. Кстати можно закомментить строчку SetWindowTheme(...)

Ответить

Номер ответа: 5
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #5 Добавлено: 24.03.10 23:08
Забубенно! Winand Спасибо огромное!
С темой нет проблем, мне нужны были константы.

Ответить

Номер ответа: 6
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #6 		Добавлено: 24.03.10 23:09
кстати надо почему-то использовать прогрессбар из CommonControls 5.0, а не 6.0
Еще можно создавать progress bar самостоятельно без ocx.
  1. Option Explicit
  2. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, wParam As Long, lParam As Long) As Long
  3. Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
  4. Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
  5. Private Const PROGRESS_CLASS = "msctls_progress32"
  6. Private Const WM_USER = &H400
  7. Private Const PBM_SETMARQUEE = (WM_USER + 10)
  8. Private Const PBS_MARQUEE = &H8
  9. Private Const WS_VISIBLE = &H10000000
  10. Private Const WS_CHILD = &H40000000
  11.  
  12. Private Sub Form_Initialize()
  13.     Dim m_hprogbar As Long
  14.     Call InitCommonControls
  15.     m_hprogbar = CreateWindowEx(0, PROGRESS_CLASS, vbNullString, _
  16.         WS_CHILD Or WS_VISIBLE Or PBS_MARQUEE, _
  17.         10, 100, 100, 15, hwnd, 0, App.hInstance, ByVal 0)
  18.     SendMessage m_hprogbar, PBM_SETMARQUEE, ByVal 1, ByVal 100
  19. End Sub

Ответить

Номер ответа: 7
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #7 Добавлено: 24.03.10 23:12
Дык яж говорю, мне и нужны были только константы, яж мизинцем чуйствовал, что это такой "бесконечный" режим.
Думал или СэндМесседж или СэтСтайл или одно из двух :D

Ответить

Номер ответа: 8
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #8 Добавлено: 25.03.10 13:02
хм.. незнаю как в вб6, но в вб.нет у прогрес бара нада просто установить свойство
Style = Marquee
На вб6 проверить сейчас не могу, т.к. нету под рукой, но глянте ,авось и тама есть :)

Ответить

Номер ответа: 9
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #9 Добавлено: 25.03.10 15:43
Нее, чёт я такого не припомню. Ну оно нафик и не нужно, у меня прогрессбар апишный не активХ

Ответить

Номер ответа: 10
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
  Профиль | | #10 Добавлено: 25.03.10 15:49
кстати, а че мой пример, не подошел? он тоже апишный и помойму то что ты просил...

Ответить

Номер ответа: 11
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #11 Добавлено: 25.03.10 17:56
Пример не плохой, просто это пример юзерконтрола, да, использует апи gdi32 и jpg`шные рисунки :), красивая самоделка от MArio Flores G.

Ответить

Номер ответа: 12
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #12 Добавлено: 25.03.10 18:02
За линк спасибо, он в тему, я просил пример перевода микрософтовского msctls_progress32 в бесконечный режим и получил нужный мне ответ :)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам