Перемещение элементов по форме - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы