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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы