VBNet - Форум - Таскание формы

Вопрос: Таскание формы Добавлено: 03.02.10 17:10

Автор вопроса: van-lamer

Всем привет! Vb.net 2008
Ребята как таскать форму за любое место? А за любой элемент можно, если да то как? Всем спасибо.
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| \| #1	Добавлено: 04.02.10 02:18
	If Me.Capture then ... Ответить

Номер ответа: 2 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| \| #2	Добавлено: 09.02.10 22:52
	Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long 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) On Error Resume Next ReleaseCapture SendMessage me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0 End Sub Ответить

Номер ответа: 3 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| \| #3	Добавлено: 09.02.10 22:54
	Ах да.. забыл.. для элементов: Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next ReleaseCapture SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0 End Sub и тд Ответить

Номер ответа: 4 Автор ответа: BooBLe Вопросов: 4 Ответов: 15	Профиль \| \| #4	Добавлено: 22.02.10 09:56
	А я так делал чтоб таскать за лабел1 Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown a = MousePosition.X - Location.X b = MousePosition.Y - Location.Y End Sub Private Sub Label1_MouseMove1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove If MouseButtons = MouseButtons.Left Then Left = Location.X + (MousePosition.X - Location.X) - a Top = Location.Y + (MousePosition.Y - Location.Y) - b End If End Sub и объявить еще Public a, b As Single Ответить

Страница: 1 |