Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как управлять курсором 
V
    Опции темы
Кирилл
Дата 29.12.2006, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 7.11.2006
Где: Воронеж

Репутация: 1
Всего: 1
Здрасте, это опять я
Мне надо чтобы указатель привязывался к определённой точке. координаты я вычислил, но как переместить курсор  smile 
На форуме уже есть что-то подобное, но то что я нашёл - 160 строк китайской грамоты. А можно проще?
PM MAIL   Вверх
ИгнатьевАлексей
Дата 29.12.2006, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: нет
Всего: 3
SetCursorPos

Описание:
function SetCursorPos(X, Y: Integer);
Пеpемещает куpсоp в указанные кооpдинаты экpана. Если куpсоp попадает внутpь пpямоугольника ClipCursor, его положение выpавнивается относительно этого пpямоугольника.
Паpаметpы:
X, Y: Новое положение куpсоpа (в кооpдинатах экpана).
функция находится в файле user32.dll



--------------------
Vingrad - FOREVER !!! 

"Как вы яхту назовете - так она и поплывет!" 
 Капитан Врунгель 
PM MAIL   Вверх
Кирилл
Дата 29.12.2006, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 7.11.2006
Где: Воронеж

Репутация: 1
Всего: 1
Работает, но одно но - что такое 
Цитата(ИгнатьевАлексей @  29.12.2006,  11:16 Найти цитируемый пост)
попадает внутpь пpямоугольника ClipCursor

И вообще, он кидает курсор в правый нижний угол smile Что делать? В Api я 0  smile 
PM MAIL   Вверх
Кирилл
Дата 29.12.2006, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 7.11.2006
Где: Воронеж

Репутация: 1
Всего: 1
Вот что у меня:
Код

Private Declare Sub SetCursorPos Lib "user32" (X, Y As Integer)
SetCursorPos 2, 2
PM MAIL   Вверх
W4FhLF
Дата 30.12.2006, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 3
Всего: 121
Ну во-первых так:

Код

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Form_Load()
Call SetCursorPos(2, 2)
End Sub



А во-вторых имей ввиду, что SetCursorPos перемещает курсор в координаты относительно "начала" экрана, а не твоей формы.


--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
Кирилл
Дата 30.12.2006, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 7.11.2006
Где: Воронеж

Репутация: 1
Всего: 1
Спасибо, W4FhLF
Кстати, прокатывает и Sub и Integer-ы, главное поставить ByVal и объявить каждую! Тут и я, и ИгнатьевАлексей перепутали с Delphi smile . А можно ориентировать курсор относительно начала формы, в её единицах измерения? Как-то неохота всё в пиксели переводить smile 
PM MAIL   Вверх
Naghual
Дата 3.1.2007, 11:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
АПИ только в пикселах работает.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Кирилл
Дата 3.1.2007, 21:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 7.11.2006
Где: Воронеж

Репутация: 1
Всего: 1
Жаль. Ну ладно, в любом случае спасибо
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0467 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.