| Вопрос: Как перетаскива форму за любое место??? | Добавлено: 07.08.07 21:37 |
Автор вопроса:  &RiU
|
| Как сделать так чтобы форму можно было перетаскивать за любое место??? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #1 | Добавлено: 07.08.07 22:06 |
|
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then ReleaseCapture SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0 End If End Sub |
||
|
Номер ответа: 2 Автор ответа:  VβÐUηìt Вопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #2 | Добавлено: 08.08.07 07:28 |
|
Dim dx as integer dim dy as integer Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) dx = x dy = y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) left = left + x - dx top = top + y - dy End Sub |
||
|
Номер ответа: 3 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #3 | Добавлено: 08.08.07 07:29 |
| Да и еще засунь в моусемув "If BUtton = vbLeftButton Then" | ||
Страница: 1 |