Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму) / 10 сообщений из 10, страница 1 из 1
22.01.2011, 03:34
    #37072771
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
Все собранные функции сортирую по модулям и хотелось б также внедрить еще одну функцию, но без применения Timer1.
Работает на Bass.dll В основе рабочего функционалу лежитне только запуск и выгрузка после окончания трека но и регулировка звука (плавный подьем, спуск) А также микс если на очереде еще один трек. Я не знаю можно ли так чтоб в модуле или в чем там таком придумать, чтоб подключать такого роду функционал было очень просто. Таймер там просто необходим чтоб отследить в каком положении трек (проигранное времья трека). А как-то заменить сам таймер написанием кода можно ? или програмно виртуальный создать ?
с уважением Андрей
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2011, 05:38
    #37072780
Валентин67
Валентин67
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
Можно создать события таймера, исполбзуя API-функции
здесь (с примером кода)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2011, 09:51
    #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:59
    #37072825
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
У меня этот пример из указанного ресурса не работает. После нажатия на кнопку "старт таймер" програмка вылетает вместе с редактором VB6 без матюков мгновенно через одну-две секунды
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2011, 11:42
    #37072869
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
Андрей159События TimerProc я так понял нужно самому запускать
Не понял.
Это процедура. которая возбуждается таймером. То есть вместо Timer1_Timer

Андрей159У меня этот пример из указанного ресурса не работает. После нажатия на кнопку "старт таймер" програмка вылетает вместе с редактором VB6 без матюков мгновенно через одну-две секунды
Странно, у меня работает. Я сделал абсолютно чистый проект только с этим кодом.
Выложи проект, который у тебя получился - попробую запустить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2011, 17:51
    #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, 18:17
    #37073195
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
хотя нет наверно автору нужно другое
Андрей посмотри вот это

http://www.codeproject.com/KB/vb-interop/TimerLib.aspx
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2011, 13:56
    #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, 15:31
    #37073822
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таймер. Возможно ли делать виртуальный ? (не помещая элемент на форму)
WithEvents в модуле работать не будет

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


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