ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как по координатам курсора отобразить форму
7 сообщений из 7, страница 1 из 1
Как по координатам курсора отобразить форму
    #34823143
SkyS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SkyS
Участник
Мне необходимо по правой кнопке мыши отобразить форму. Использую следующий код.

:)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub List2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
   X As Long
   Y As Long
End Type


Dim point As POINTAPI
GetCursorPos point
If Button = vbRightButton Then

Form3.Left = point.X
Form3.Top = point.Y
Form3.Show
........
Но форма прыгает в небольшом диапозоне и не там где нужно тоесть не по координатам курсора. Что я не так делаю????
Не откладывай на завтра то что можно сделать послезавтра
...
Рейтинг: 0 / 0
25.09.2007, 09:03
| Ответить | Цитировать | Написать  
Как по координатам курсора отобразить форму
    #34823304
SoftParanoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SoftParanoik
Участник
Код: plaintext
1.
Form3.ScaleMode =  3
...
Рейтинг: 0 / 0
25.09.2007, 10:05
| Ответить | Цитировать | Написать  
Как по координатам курсора отобразить форму
    #34823321
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Для правильного использования GetCursorPos возможно ClientToScreen или ScreenToClient понадобятся.
...
Рейтинг: 0 / 0
25.09.2007, 10:09
| Ответить | Цитировать | Написать  
Как по координатам курсора отобразить форму
    #34823366
SkyS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SkyS
Участник
Не помогло. может быть это важно приложение MDI

Не откладывай на завтра то что можно сделать послезавтра :)
...
Рейтинг: 0 / 0
25.09.2007, 10:20
| Ответить | Цитировать | Написать  
Как по координатам курсора отобразить форму
    #34823370
SkyS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SkyS
Участник
WorobjoffДля правильного использования GetCursorPos возможно ClientToScreen или ScreenToClient понадобятся.
А как использовать их
...
Рейтинг: 0 / 0
25.09.2007, 10:21
| Ответить | Цитировать | Написать  
Как по координатам курсора отобразить форму
    #34823592
SoftParanoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SoftParanoik
Участник
Код: plaintext
1.
2.
    Form3.Left = Screen.TwipsPerPixelX * point.X
    Form3.Top = Screen.TwipsPerPixelY * point.Y
...
Рейтинг: 0 / 0
25.09.2007, 11:06
| Ответить | Цитировать | Написать  
Как по координатам курсора отобразить форму
    #34823850
SkyS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SkyS
Участник
SoftParanoik
Код: plaintext
1.
2.
    Form3.Left = Screen.TwipsPerPixelX * point.X
    Form3.Top = Screen.TwipsPerPixelY * point.Y


СПС все помогло только я от Y-2000 сделал .
...
Рейтинг: 0 / 0
25.09.2007, 12:11
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как по координатам курсора отобразить форму
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34823850&tid=2163353]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 87ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 237ms
total:  407ms
созд. / загр.: 407ms
x
x
Закрыть


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