Июн 25, 2012 -
Уроки Visual Basic.NET
2 комментария
Уроки Visual Basic.NET
2 комментария Перемещаем контрол(ы) по форме
"Таскаем" контрол по форме c помощью мышки.
Перемещать будем кнопку (можно сделать практически с любым контролом).
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Cursor = Cursors.SizeAll
End Sub
Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
If Control.MouseButtons = Windows.Forms.MouseButtons.Left Then
CType(sender, Button).Left = Control.MousePosition.X - Me.Left - CType(sender, Button).Width
CType(sender, Button).Top = Control.MousePosition.Y - Me.Top - CType(sender, Button).Height
End If
End Sub
End Class
Запускаем проект на исполнение и пробуем потаскать свою кнопку.






Метки:
Евгений
Просмотров: 6 789
Запись опубликована в 09:24
Очень таак доходчиво.полезно Пригодилось.
И мне тоже понравилось