VPF::Курсор внутри PictureBox - Форум программистов

indio

Дата 14.11.2008, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

история.
Левый клик мышью внутри picturebox.
Рождаются координаты этого клика.
От клика появляется кружочек в окне PictureBox по координатам клика.
От нажатия ДБЛклика(думаю и о ПрКл) из этого круга(последнего) рисуется линия. второй поток координат линии(X2,Y2) - текущие координаты курсора.
После нажатия ЛК линия замыкается на новом кружочке, образуя отрезок

есть функция API GetCursor, но не приладил пока. она считает координаты от начала формы. Пример с ней ниже,
координаты не попадают, необходим же кружок под кликом.
Прочел о SetCursosPos, но не сложил ее к делу.

Ответ прорабатывал здесь и здесь но VB6 решения нет или его толика..

Код


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim d As POINTAPI

Private Sub Picture1_Click()
GetCursorPos d
dx = z.x
dy = z.y
PointX = dx
PointY = dy
Text1(0).Text = dx
Text1(1).Text = dy
Picture1.Scale (0, 0)-(301, 301) ' задано в пикселях,позже в бокс загружу растр
Picture1.Circle (PointX, PointY), 5, QBColor(2)
End Sub

Private Sub Picture1_DblClick() 'пока на дабл клик, но предполагаю трабл с срабатыванием ОдноКлика
Picture1.Line (PointX, PointY)-(dx, dy), QBColor(3)
End Sub

Благодарю

BorisVorontsov

Дата 14.11.2008, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

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

Оцени ScreenToClient

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

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

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