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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как узнать положение курсора мыши... отдельно X и Y... 
:(
    Опции темы
I_Am_Rock
Дата 20.1.2008, 00:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 12
Всего: 15



Всем привет.

Подскажите, пожалуйста:

Допустим на форме есть два ТекстБокса. Нужно, используя апи-шную функцию GetCursorPos, в один ТекстБокс загнать положение мыши X, а в другой - Y

Проще говоря, как узнать положения курсора отдельно X и Y относительно экрана...

В API Text Viewer там какой-то POINTAPI непонятный...:( 
PM MAIL WWW   Вверх
Akina
Дата 20.1.2008, 00:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(I_Am_Rock @  20.1.2008,  01:30 Найти цитируемый пост)
там какой-то POINTAPI непонятный

Читайте все линки до тех пор, пока не станет понятным... а лучше начните с основ API-вызовов, в частности с передачи параметров, уж коли пишете с использованием API-функций.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Dexx
Дата 20.1.2008, 00:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 5
Всего: 7



Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Что еще! непонятно....

Добавлено через 6 минут и 46 секунд
The GetCursorPos function retrieves the cursor's position, in screen coordinates. 

BOOL GetCursorPos(

    LPPOINT lpPoint    // address of structure for cursor position  
   );    
 

Parameters

lpPoint

Points to a POINT structure that receives the screen coordinates of the cursor. 

 

Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

Remarks

The cursor position is always given in screen coordinates and is not affected by the mapping mode of the window that contains the cursor. 
The calling process must have WINSTA_READATTRIBUTES access to the window station. 




если тупо то вот так

Код

Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Command1_Click()
Dim p As POINTAPI
GetCursorPos p
MsgBox p.x, , p.y
End Sub




--------------------

PM   Вверх
bom
Дата 20.1.2008, 01:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6



Цитата(Dexx @  20.1.2008,  03:59 Найти цитируемый пост)
если тупо то вот так

Он же говорит что не понятно, нужно еще тупее, типа:
Код

Text1.text = cstr(p.x)


PM MAIL   Вверх
I_Am_Rock
Дата 20.1.2008, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 12
Всего: 15



Спасибо всем.
Хотя можно было и без грубости...:(
PM MAIL WWW   Вверх
cardinal
Дата 20.1.2008, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99




M
cardinal
bom, в следующий раз пожалуйста потактичней!



--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
bom
Дата 20.1.2008, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6



OK, извиняюсь.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




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


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

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