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

Программное перемещение курсора мыши

15.10.2006, 04:08. Показов 3039. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет!
У меня тут вопрос.... каким образ можно перемешать курсор мышака программно?
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.10.2006, 04:08
Ответы с готовыми решениями:

Перемещение курсора мыши и его виды
привет друзья! есть некая сетка 1. хотелось бы что бы при приближении к узлу сетки курсор мыши "прилипал" к нему ...

Ограничить перемещение курсора
Как ограничить перемещение курсора по круговой ттраектории с определенным радиусом в определенной позиции формы ? Знаю что lock курсор...

Замена курсора мыши
Basic изучаю около 2 недель, и хочу сделать игру "Тир", можете помочь с кодом замены курсора мыши на перекрестье прицела(картинку или...

3
asd
15.10.2006, 05:44
Используй API
Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Declare Function GetCursorPos Lib 'user32' (lpPoint As POINTAPI) As Long
 
Private Declare Function SetCursorPos Lib 'user32' (ByVal X As Long, ByVal Y As Long) As Long
 
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
Dim Pos As POINTAPI
Можно использовать таймер, чтобы перемещать автоматически с заданным интервалом
HUNTER
15.10.2006, 07:13
Хм... только у меня что-то не получилось...
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Declare Function GetCursorPos Lib 'user32' (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib 'user32' (ByVal X As Long, ByVal Y As Long) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim Pos As POINTAPI
Private Sub Timer1_Timer() ''interval я постаил 2 сек
X = X + 10
Y = Y + 1
End Sub
так?
0 / 0 / 0
Регистрация: 31.05.2006
Сообщений: 40
16.10.2006, 23:45
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Timer1.Interval = 2000
 
Private Sub Timer1_Timer()   
  
     Static Pos As POINTAPI    
     Dim lRetVal As Long
 
     Pos.X = Pos.X + 10
     Pos.Y = Pos.Y + 1
     If (Pos.X >= Screen.Width) Then Pos.X = 0
     If (Pos.Y >= Screen.Height) Then Pos.Y = 0
     lRetVal = SetCursorPos(Pos.X, Pos.Y)
 
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.10.2006, 23:45
Помогаю со студенческими работами здесь

Случайное перемещение кнопки при наведении курсора
Задачи нужно решить черех windows forms на языке visual basic. Задачи элементарные, но опыта не хватает. Помогите решить, пожалуйста,...

Перемещение Label с помощью мыши
1) Чтобы можно было тоскать по форме один лейбл 2) Чтобы когда я им касался других лейблов выводило что-то вроде ошибки, и желательно...

Как получить глобальные координаты курсора мыши
Нужно узнать координаты курсора для эмуляции клика кнопки, расположенной на странице в ИЕ. Пробовал просто пересчитать через пиксели на...

Местоположение курсора в текстовом поле и указатель мыши
В этой теме речь идёт о следующем: По текстовом полю скользит указатель мыши. Вот этот указатель "наткнулся" на слово. Как...

Изменения курсора мыши при наведении на Label
Подскажите пожалуйста,как сделать ,чтобы при наведении на Label изменялся курсор мыши на нужный мне рисунок.Заранее благодарин.


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru