Перемещение элементов по форме - VB
Формулировка задачи:
имеются 2 лейбела внутри другого большого .
нам нужно перетащить их пачкой
то есть зажимаем большой лебл3 и тащим его ,вместе с ним в кучке ташутся леблелы которые внутри большого.
Решение задачи: «Перемещение элементов по форме»
textual
Листинг программы
Dim XX As Single, YY As Single Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then XX = X YY = Y End If End Sub Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then With Label1 .Left = .Left + X - XX .Top = .Top + Y - YY End With With Label2 .Left = .Left + X - XX .Top = .Top + Y - YY End With With Label3 .Left = .Left + X - XX .Top = .Top + Y - YY End With End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д