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

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Координаты PictureBox'а, Оч нужно 
:(
    Опции темы
GorKa
Дата 5.4.2007, 11:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Кликнув в PictureBox'e, мне нужно получить координаты точки места клика...
PM MAIL WWW ICQ   Вверх
Naghual
Дата 5.4.2007, 16:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 26
Всего: 49
Код

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MsgBox X
    MsgBox Y
End Sub



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


Новичок



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

Репутация: нет
Всего: нет
Спасибо, Naghual.

Теперь можно дальше продолжать...
PM MAIL WWW ICQ   Вверх
Black_Star
Дата 6.4.2007, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 4
Всего: 4
 smile 
Хм... 
Вообще клик считается MouseDown+MouseUp. 
Причем срабатывание клика происходит именно в момент маусапа. Соответственно в координатах где этот ап произошел. Задержка тут не важна. 
Код

Private Sub Form_Click()
  Print "Click"
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Print "Down"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Print "Up"
End Sub

Результатом будет:
Цитата

Down
Up
Click

Потому отлавливать событие клика с координатами лучше по MouseUp.
PM ICQ   Вверх
Naghual
Дата 6.4.2007, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 26
Всего: 49
Black_Star, вы совершенно правы. Спасибо.


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


Новичок



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

Репутация: нет
Всего: нет
Мне и надо было при жатии.
Всё равно спс... smile 
PM MAIL WWW ICQ   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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