| Вопрос: изменение размеров изображения | Добавлено: 27.01.07 08:42 |
Автор вопроса:  AlexDerS
|
| как изменить размеры изображения? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 27.01.07 09:13 |
|
Кинь на форму Image1 в колонке Picture назначь ей рисунок, а Stretch в да. Вот тебе код поймеш из него все сам.
Private m_Dragging As Boolean
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single) m_Dragging = False End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single) If Button And vbRightButton Then 'проверка, нажата ли правая клавиша мыши m_Dragging = False Else m_Dragging = True End If End Sub Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single) If Not m_Dragging Then Exit Sub Image1.Move 0, 0, X, y End Sub Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single) m_Dragging = False End Sub |
||
|
Номер ответа: 2 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 27.01.07 09:42 |
|
Для наглядности замени часть кода на этот.
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)
m_Dragging = False Form1.Caption = "кордината Х=" & X & " Кордината Y=" & y End Sub Если ты имел в виду другое изменение, то смотри сдесь в библиотеке кодов. |
||
Страница: 1 |