Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 08.08.2007
Сообщений: 184

Требуется устранить полсекундную задержку ...

03.06.2008, 08:08. Показов 955. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ситуация такая.
Жмем клавишу и удерживаем ее. Что происходит ?
Печатается строка одинаковых символов. Но после первого символа происходит задержка.
Можно ли эту задержку устранить или хотя бы уменьшить ???
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
03.06.2008, 08:08
Ответы с готовыми решениями:

Как устранить возрастающую задержку при отправке данных через EDGE (2G)?
Вопрос к гуру клиент-серверных приложений для мобильных сетей. Eсть клиент-серверное приложение под андроид. Клиент под Android с...

Рассчитать задержку распространения сигнала и задержку передачи данных
Здравствуйте. Рассчитайте задержку распространения сигнала и задержку передачи данных для случая передачи пакета согласно исходных...

Организовать задержку
Добрый день! Написал тут программу, которая имитирует мигание светодиодом, нужно было сделать задержку так, чтобы она была заметной....

8
Vita
03.06.2008, 09:35
Есть такая возможность как Специальные настройки в Панели управления. Там есть то, что ты спрашиваешь.
0 / 0 / 0
Регистрация: 08.08.2007
Сообщений: 184
03.06.2008, 10:13  [ТС]
Если я понял, то это в Keyboard properties, вкладка Speed, параметр Repeat delay.
Но если я его ставлю на минимум, то задержка уменьшилась, но есе же осталась.
Кто знает, как, может с помощью API, убрать эту задержку совсем (задержку после
первого символа) ?
0
2 / 2 / 1
Регистрация: 30.07.2007
Сообщений: 206
04.06.2008, 07:13
иногда помогает использование функции SendKeys. К примеру, кусок кода
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub LB1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim iTemp As Integer
If Button = vbRightButton Then
With LB1
iTemp = ((Y / Screen.TwipsPerPixelY)  (TextHeight('A') / Screen.TwipsPerPixelY)) + .TopIndex
If iTemp > .ListCount - 1 Then iTemp = -1
.ListIndex = iTemp
.SetFocus
SendKeys 'a'
Call LB1_DblClick
End With
End If
End Sub
Без использования SendKeys 'a' выделение строки в элементе ЛистБокс происходит медленно, и не всегда срабатывает. Тебе надо будет использовпть SendKeys с другим параметром.
0
2 / 2 / 1
Регистрация: 30.07.2007
Сообщений: 206
05.06.2008, 02:43
помогло? а чего молчишь?
0
0 / 0 / 0
Регистрация: 08.08.2007
Сообщений: 184
05.06.2008, 09:10  [ТС]
Нет. Что-то не могу.
Хочу сделать элементарное.
На форму поместил кнопку.
И хочу по нажатию на любую клавишу перемещать кнопку, т.е.
Button1.left = Button1.left + 10

Естественно, когда я нажму клавишу и удержу не отпуская, кнопка перед перемещением сдвинется на 10 вправо и задержится на величину задержки после первого нажатия клавиши (примерно 0,5 сек), а после этого уже нормально 'поедет'

И вот куда не суну SendKeys, не получается
:-(
0
0 / 0 / 0
Регистрация: 04.07.2008
Сообщений: 6
04.07.2008, 04:44
Проще сделать так:
поместить на форме таймер не запущеный. Период выставить нужный тебе для продвижения кнопки. В событии Form_KeyDown включай таймер, а всобытии Form_KeyUp выключай. А свой двигательный код - в событие Timer1_Timer. НЕ забудь для формы установить KeyPreview=True. И поедет и помчится . Проверял только что сам.
0
Vita
04.07.2008, 10:15
Вот так вот. В правильно поставленном вопросе содержится 50% ответа!
Ghost
04.07.2008, 11:41
Еще есть такая вещь, как события нажатия и отпускания кнопки. Может помочь.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
04.07.2008, 11:41
Помогаю со студенческими работами здесь

Замена кнопки на задержку
У меня есть хороший пример реализации сервера и клиента архив я хочу сделать так что бы кнопки не было А отправка текста была бы через 1...

сделать задержку в циклі
Как сделать задержку в циклі??

Как сделать задержку ?
При наведении на элемент , появляется окно, но как только я отвожу курсор , окно пропадает , как сделать задержку ?Пока курсор находиться в...

Как сделать задержку 1 ms ?
Частота cpu= 41 780 000 Hz. В сети нашел следующий код: long volatile a=def_msec*ms; while(a!=0) { a--; }

Как сделать задержку C++
#include <iostream> #include <math.h> #include <conio.h> using namespace std; double function(double x, double y) { ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru