ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подскажите api нахождения координат контрола
15 сообщений из 15, страница 1 из 1
Подскажите api нахождения координат контрола
    #36669719
ak787
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ak787
Участник
Подскажите api нахождения координат контрола... собственно весь вопрос
...
Рейтинг: 0 / 0
04.06.2010, 15:43
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36669728
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
что за контрол, где искать собрались и откуда?
...
Рейтинг: 0 / 0
04.06.2010, 15:45
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36669747
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
Public Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long
...
Рейтинг: 0 / 0
04.06.2010, 15:49
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36669766
ak787
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ak787
Участник
Konst_Oneчто за контрол, где искать собрались и откуда?
самопальный класс, контол Label
координаты нужны относительно экрана, чтобы сопоставить с координатами мыши
...
Рейтинг: 0 / 0
04.06.2010, 15:54
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36669767
ak787
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ak787
Участник
Konst_One
Код: plaintext
Public Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long

да это самое то! сэнкс
...
Рейтинг: 0 / 0
04.06.2010, 15:54
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36669781
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Если это обычный label, то у него нет hWnd.
...
Рейтинг: 0 / 0
04.06.2010, 15:56
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36669798
ak787
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ak787
Участник
AntonariyЕсли это обычный label, то у него нет hWnd.
да, действительно, облом ;)
...
Рейтинг: 0 / 0
04.06.2010, 16:00
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36669809
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
сделайте свой ActiveX control , тогда всё будет ок
...
Рейтинг: 0 / 0
04.06.2010, 16:02
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36669824
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Можно вычислить координаты hwnd контейнера метки (формы, фрейма и т.п.) и добавить к ним Top и Left от метки
...
Рейтинг: 0 / 0
04.06.2010, 16:09
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36669856
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
можно вообще обойтись без всяких апи, а просто написать функцию получения координат конкретного вашего label
...
Рейтинг: 0 / 0
04.06.2010, 16:17
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36669862
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Option Explicit

Private Sub Form_Load()
Me.Label2.Caption = ""
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label2.Caption = ""
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label2.Caption = "X=" & X & ", Y=" & Y
End Sub
...
Рейтинг: 0 / 0
04.06.2010, 16:19
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36669912
ak787
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ak787
Участник
Konst_One
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Option Explicit

Private Sub Form_Load()
Me.Label2.Caption = ""
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label2.Caption = ""
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label2.Caption = "X=" & X & ", Y=" & Y
End Sub

блин а слона то и не заметил ;).... сэнкс, сработало, вопрос снят
...
Рейтинг: 0 / 0
04.06.2010, 16:31
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36670407
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
ak787, эти сообщения со скриптами от 16 19 и 16 31 актуальны для всех контролов и в среде ВБА?
...
Рейтинг: 0 / 0
04.06.2010, 20:52
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36671201
ak787
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ak787
Участник
Ципихович Эндрю,

это к чему вопрос?
...
Рейтинг: 0 / 0
05.06.2010, 19:37
| Ответить | Цитировать | Написать  
Подскажите api нахождения координат контрола
    #36671208
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ak787Ципихович Эндрю,
это к чему вопрос?

Это к тому, что он, вместо того, чтобы попробовать, ждет, как обычно, когда ему разжуют и в рот положат.
...
Рейтинг: 0 / 0
05.06.2010, 19:41
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подскажите api нахождения координат контрола
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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