| Вопрос: Перемещение и изменение резмеров контролов | Добавлено: 18.03.06 14:51 |
Автор вопроса:  Роман
|
| Подсажите как дать возможность пользователям перетаскивать и изменять размер элементов управления мышкой на форме. VB.NET |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Fever Вопросов: 60 Ответов: 808 |
Профиль | | #1 | Добавлено: 18.03.06 15:53 |
| Надо взять 4 сплиттера и приаттачить их на каждый контрол. Примеры в инете. | ||
|
Номер ответа: 2 Автор ответа: Роман Вопросов: 7 Ответов: 6 |
Профиль | | #2 | Добавлено: 22.03.06 09:40 |
|
зато я уже знаю как можно решить эту проблему с помощью АПИ
Private Declare Function ReleaseCapture Lib "user32" () As Integer Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As AnchorStyles) As Integer Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION As Integer = 2 If e.Button = MouseButtons.Left Then ReleaseCapture() SendMessage(.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0& 
Else |
||
Страница: 1 |