Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

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

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

Ответить

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

Номер ответа: 1
Автор ответа:
 BG(Алексей)



Вопросов: 26
Ответов: 295
  Профиль | Цитата | #1 Добавлено: 04.02.10 02:18
  1. If Me.Capture then ...

Ответить

Номер ответа: 2
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
  Профиль | Цитата | #2 Добавлено: 09.02.10 22:52
  1.  
  2.  
  3. 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
  4. Private Declare Function ReleaseCapture Lib "user32" () As Long
  5. Private Const WM_NCLBUTTONDOWN = &HA1
  6. Private Const HTCAPTION = 2
  7.  
  8.  
  9. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  10. On Error Resume Next
  11. ReleaseCapture
  12. SendMessage me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
  13. End Sub
  14.  

Ответить

Номер ответа: 3
Автор ответа:
 Just



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



и тд

Ответить

Номер ответа: 4
Автор ответа:
 BooBLe



Вопросов: 4
Ответов: 15
  Профиль | Цитата | #4 Добавлено: 22.02.10 09:56
А я так делал чтоб таскать за лабел1
  1. Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
  2.         a = MousePosition.X - Location.X
  3.         b = MousePosition.Y - Location.Y
  4.     End Sub
  5.  
  6.     Private Sub Label1_MouseMove1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
  7.         If MouseButtons = MouseButtons.Left Then
  8.             Left = Location.X + (MousePosition.X - Location.X) - a
  9.             Top = Location.Y + (MousePosition.Y - Location.Y) - b
  10.         End If
  11.     End Sub


и объявить еще Public a, b As Single

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам