| Вопрос: перемещение формы | Добавлено: 21.01.07 07:04 |
Автор вопроса:  AlexDerS
|
|
как можно перемещать форму, зажав и удерживая в пустом месте левую кнопку мыши?
в VB2005 |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Алексей black admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #1 | Добавлено: 21.01.07 07:13 |
|
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then Me.Location = New Drawing.Point(Cursor.Position.X, Cursor.Position.Y) End If End Sub остальное сам 
|
||
|
Номер ответа: 2 Автор ответа:  ua4ase Вопросов: 5 Ответов: 19 |
Профиль | | #2 | Добавлено: 25.01.07 02:18 |
|
Лови кусок кода из моей проги.
'=========== перетаскивание Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Sub ReleaseCapture Lib "user32" () Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 '===================== Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim ReturnValue As Long If Button = 1 Then Call ReleaseCapture ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If End Sub |
||
|
Номер ответа: 3 Автор ответа: ua4aseВопросов: 5 Ответов: 19 |
Профиль | | #3 | Добавлено: 25.01.07 02:19 |
|
Да, забыл!
Кусок кода из VB6. |
||
|
Номер ответа: 4 Автор ответа: EROS Вопросов: 58 Ответов: 4255  |
Профиль | | #4 | Добавлено: 25.01.07 09:01 |
| в 2005 это можно решить и без API | ||
Страница: 1 |