Command1 в Visual Basic

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
SINED
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 09.12.2004 (Чт) 0:19

Command1 в Visual Basic

Сообщение SINED » 16.01.2005 (Вс) 22:01

Подскажите как можно определить координаты кнопки на экране, если нельзя получить информацию о форме? Обычно делается так:
x = Form1.Left + Command1.Left,
но в моем случае нельзя определить значение Form1.Left :(

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 16.01.2005 (Вс) 22:19

Таки опять прочитать файл не открывая? :)

Почему нельзя и как нельзя?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Tarantul
Бывалый
Бывалый
 
Сообщения: 235
Зарегистрирован: 13.12.2004 (Пн) 16:39
Откуда: IUnknown

Сообщение Tarantul » 16.01.2005 (Вс) 22:25

Через это API:

Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


Передаешь hwnd CommandButton - получаешь прямоугольник кнопки. :) Только в пикселях, а не твипах.
Чтоб перевести в твипы, используй функции

screen.TwipsPerPixelX и screen.TwipsPerPixelY

как коефициенты перевода. :wink:

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 17.01.2005 (Пн) 9:54

Подозреваю, что речь идет о UserControl?
Тогда UserControl.Extender.Parent.Left.
Lasciate ogni speranza, voi ch'entrate.

SINED
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 09.12.2004 (Чт) 0:19

Сообщение SINED » 18.01.2005 (Вт) 18:22

Tarantul, БОЛЬШОЕ спасибо! Всё работает :)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 4

    TopList