Июн 25, 2012 - Уроки 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 777
Запись опубликована в 09:24
Очень таак доходчиво.полезно Пригодилось.
И мне тоже понравилось