ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
10 сообщений из 10, страница 1 из 1
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
    #37072771
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Все собранные функции сортирую по модулям и хотелось б также внедрить еще одну функцию, но без применения Timer1.
Работает на Bass.dll В основе рабочего функционалу лежитне только запуск и выгрузка после окончания трека но и регулировка звука (плавный подьем, спуск) А также микс если на очереде еще один трек. Я не знаю можно ли так чтоб в модуле или в чем там таком придумать, чтоб подключать такого роду функционал было очень просто. Таймер там просто необходим чтоб отследить в каком положении трек (проигранное времья трека). А как-то заменить сам таймер написанием кода можно ? или програмно виртуальный создать ?
с уважением Андрей
...
Рейтинг: 0 / 0
22.01.2011, 03:34
| Ответить | Цитировать | Написать  
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
    #37072780
Валентин67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валентин67
Участник
Можно создать события таймера, исполбзуя API-функции
здесь (с примером кода)
...
Рейтинг: 0 / 0
22.01.2011, 05:38
| Ответить | Цитировать | Написать  
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
    #37072823
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
События TimerProc я так понял нужно самому запускать чтоб сделать опрас ? Если так то не подходит. Я б тоже самое реализовал через функцию Timer. Именно нужен Event который б сам срабатывал, вот как например в IE SPY, там все события вызываются в зависимости от событий стороннего IE
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
      Sub TimerProc(ByVal hwnd As Long, _
                     ByVal uMsg As Long, _
                     ByVal idEvent As Long, _
                     ByVal dwTime As Long)

          iCounter = iCounter +  1 
          Form1.Text1.Text = CStr(iCounter)
      End Sub
...
Рейтинг: 0 / 0
22.01.2011, 09:51
| Ответить | Цитировать | Написать  
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
    #37072825
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
У меня этот пример из указанного ресурса не работает. После нажатия на кнопку "старт таймер" програмка вылетает вместе с редактором VB6 без матюков мгновенно через одну-две секунды
...
Рейтинг: 0 / 0
22.01.2011, 09:59
| Ответить | Цитировать | Написать  
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
    #37072869
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Андрей159События TimerProc я так понял нужно самому запускать
Не понял.
Это процедура. которая возбуждается таймером. То есть вместо Timer1_Timer

Андрей159У меня этот пример из указанного ресурса не работает. После нажатия на кнопку "старт таймер" програмка вылетает вместе с редактором VB6 без матюков мгновенно через одну-две секунды
Странно, у меня работает. Я сделал абсолютно чистый проект только с этим кодом.
Выложи проект, который у тебя получился - попробую запустить.
...
Рейтинг: 0 / 0
22.01.2011, 11:42
| Ответить | Цитировать | Написать  
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
    #37073180
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
Андрей159

может такой вариант тебе нужен
контроль подгружается динамически при запуске
так же можно его убить по необходимости


код в самой форме

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public WithEvents My_Timer  As Timer

Private Sub Form_Load()
  Set My_Timer = Controls.Add("VB.Timer", "My_Timer")
  My_Timer.Interval =  3000  'каждые 3 секунды примерно
End Sub

Private Sub My_Timer_Timer()
  MsgBox "11"
End Sub
...
Рейтинг: 0 / 0
22.01.2011, 17:51
| Ответить | Цитировать | Написать  
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
    #37073195
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
хотя нет наверно автору нужно другое
Андрей посмотри вот это

http://www.codeproject.com/KB/vb-interop/TimerLib.aspx
...
Рейтинг: 0 / 0
22.01.2011, 18:17
| Ответить | Цитировать | Написать  
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
    #37073745
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public WithEvents My_Timer  As Timer

Private Sub Form_Load()
  Set My_Timer = Controls.Add("VB.Timer", "My_Timer")
  My_Timer.Interval =  3000  'каждые 3 секунды примерно
End Sub

Private Sub My_Timer_Timer()
  MsgBox "11"
End Sub
Пример супер и следующий тоже, хотя простого варианту наверное нет как было раньше ON TIMER GOTO ... (Basic)

А в модуле он работать не будет ? если из формы его просто активировать ? Имею ввиду про глобальный Events
Public WithEvents My_Timer As Timer в модуле вызывает ошибку

Я еще попробую "Пользовательское управление". Мне нужно максимум упростить подключение к элементу из формы (должен быть набор глобальных функций которым нужен таймер), подобно тому как мы подключаем например виндовс медиа плеер, когда одной строчкой задаем что ему проиграть, и он работает, по окончании выгружает с памьяти, а в процесе показывает статус. Что-то в этом роде
...
Рейтинг: 0 / 0
23.01.2011, 13:56
| Ответить | Цитировать | Написать  
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
    #37073822
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
WithEvents в модуле работать не будет

чтобы ещё попроще не получится наверно
сделай класс или dll на основе того кода с сылки со своими методами или эвентами
вызов метода и есть одна строчка
...
Рейтинг: 0 / 0
23.01.2011, 15:31
| Ответить | Цитировать | Написать  
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
    #37073935
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
точно. спасибо
...
Рейтинг: 0 / 0
23.01.2011, 18:09
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37072771&tid=2159033]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 16ms
total:  158ms
созд. / загр.: 158ms
x
x
Закрыть


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