| Вопрос: задать координаты кликом мыши на picture | Добавлено: 14.05.07 16:21 |
Автор вопроса:  litt
|
| Ответы | Всего ответов: 20 |
|
Номер ответа: 16 Автор ответа:  Silver Ferrum ICQ: 422640045 Вопросов: 12 Ответов: 144 |
Профиль | | #16 | Добавлено: 22.05.07 20:07 |
|
..или добавь в Form_Load()
Picture1.ScaleMode=3
|
||
|
Номер ответа: 17 Автор ответа: ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #17 | Добавлено: 22.05.07 20:18 |
|
Объясни, плз, что должен делать этот код:
Picture1.Scale (0, Picture1.ScaleHeight)-(Picture1.ScaleWidth, 0)
Все дело в Picture1.ScaleHeight, каждое второе значение - отрицательное Если не хочешь голову лоломать - поставь Abs(Picture1.ScaleHeight) |
||
|
Номер ответа: 18 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #18 | Добавлено: 22.05.07 21:23 |
|
Private Sub Form_Load()
Picture1.Scale (0, 1)-(1, 0) End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub X = (X / Picture1.ScaleWidth) * 200 Y = (Y / Picture1.ScaleHeight) * 200 Label1.Caption = CStr(X) Label2.Caption = CStr(Abs(Y)) End Sub |
||
|
Номер ответа: 19 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #19 | Добавлено: 22.05.07 21:39 |
|
Label2.Caption = CStr(Abs(Y))
Плагиатом попахивает |
||
|
Номер ответа: 20 Автор ответа: litt Вопросов: 6 Ответов: 18 |
Профиль | | #20 | Добавлено: 22.05.07 22:53 |
| Спасибо огромное!!!! Работает | ||