| Вопрос: Перемещение формы. | Добавлено: 27.01.08 21:48 |
Автор вопроса:  Кирилл | Web-сайт: kozlovssoft.z16.ru | ICQ: 467555686 |
| Помогите, пожолуста, мне нодо зделать так чтобы форму можно было таскать за любую ее часть. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Samaretz ICQ: 454224 Вопросов: 0 Ответов: 2 |
Web-сайт: Профиль | | #1 | Добавлено: 28.01.08 14:52 |
| http://www.vbnet.ru/faq/showtopic.asp?id=55 | ||
|
Номер ответа: 2 Автор ответа: КириллICQ: 467555686 Вопросов: 4 Ответов: 3 |
Web-сайт: Профиль | | #2 | Добавлено: 31.01.08 17:55 |
| Етот код нормально роботает на vb6 а на vb.net не хочет что делать? | ||
|
Номер ответа: 3 Автор ответа: DLF Вопросов: 9 Ответов: 53 |
Профиль | | #3 | Добавлено: 15.06.08 17:44 |
|
Private b_Down As Boolean
Private oldPoint As Point Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown b_Down = True oldPoint = e.Location End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove If b_Down Then Me.Location = New Point(Me.Left + e.X - oldPoint.X, Me.Top + e.Y - oldPoint.Y) End If End Sub Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp If b_Down Then Me.Location = New Point(Me.Left + e.X - oldPoint.X, Me.Top + e.Y - oldPoint.Y) b_Down = False End If End Sub |
||
|
Номер ответа: 4 Автор ответа: ника Вопросов: 1 Ответов: 111 
|
Профиль | | #4 | Добавлено: 15.06.08 19:28 |
|
protected override void WndProc(ref Message m) { const int WM_LBUTTONDOWN = 0x201; const int WM_NCLBUTTONDOWN = 0xA1; const int HTCAPTION = 2; if (m.Msg == WM_LBUTTONDOWN) { Capture = false; m.Msg = WM_NCLBUTTONDOWN; m.WParam = (IntPtr)HTCAPTION; } base.WndProc(ref m); } |
||
Страница: 1 |