Перетаскивать мышкой

[Saturn.65]

Можно ли так сделать, чтоб по форме перетаскивать объекты и менять их размеры, как это мы делаем на форме, когда ставим контролы? Хочу написать программу "Весы". Чтоб брать грузы и мышкой их перетаскивать на чаши, при этом грузы можно было бы растягивать как надо, чтоб изменить им размеры? Просто не знаю, за что сперва зацепиться. Нашел пример с DragDrop, но там можно только взять и бросить. Промежуточного нет состояния. Т.е. нельзя сдвинуть предмет на пару мм. Либо он там либо там. Может у кого примитивный пример есть?

[MIT]

Можно.
Но степень сложности определяется языком, на котором пишешь: в .NET - это не проблема - WPF в руки и пошел; с VB6 посложнее - придется реализовывать все самому.

[Хакер]

Можно ли так сделать, чтоб ...

Запомни одно правило. Если что-то где-то как-то сделано, то можно сделать так же.

По теме:
1) Можно, но нужно ли?
2) Посмотри вопрос Константина в разделе VB. Прогулйся по ссылке, посмотри там два примера.

[Saturn.65]

Хакер Спасибо! То, что нужно. Просто хотел писать схему размещения грузов в прицепе. Т.е. надо ездить через весы, а на ось нагрузка ограничена. Вот и хотелось бы моделировать некие грузы и размещать их в кузове и прикидывать нагрузку. Если например влево больше перетащил по кузову, то нагрузка на левую ось больше, чуть в право, то уже меньше на левую и больше на правую. Вот и думаю, как нагляднее это сделать. А как по проще то? Если не растягивать мышкой, а сделать набор некоторых стандартных грузов и только их перетаскивать, то будет немного попроще.

[Saturn.65]

Как упростит код ?
Фигур много и из надо перемещать по форме на определенном расстоянии. Фигуры sh(0), sh(1) и так далее.

Код: Выделить всё

If sh(mInd).Left = 14 Then
Label3.Caption = "0"
End If
If sh(mInd).Left = 15 Then
Label3.Caption = "1"
End If
If sh(mInd).Left = 16 Then
Label3.Caption = "2"
End If
If sh(mInd).Left = 17 Then
Label3.Caption = "3"
'И так далее до If sh(mInd).Left = 540


Мне нужно от 14 до 540 твипов такое писать

[tyomitch]

Издеваешься, да?

Код: Выделить всё

If (sh(mInd).Left >= 14) And (sh(mInd).Left <= 540) Then
Label3.Caption = sh(mInd).Left - 14
End If

[Saturn.65]

tyomitch Гуниально! Спасибо! А я голову ломаю.
Уже кое что.
И еще хотел спросить. Как сделать клик по фигуре? потому как по фигурам щелкаешь, а открывается окно General.
Тут приходится либо по форме делать либо

Код: Выделить всё

Private Sub Form_Click()
Text1.Text = sh(mInd).Index
  If Text1.Text = sh(mInd).Index Then
  Text2.Text = sh(mInd).Height
  Text3.Text = sh(mInd).Width
  End If
End Sub


Либо так.

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Text1.Text = sh(mInd).Index
  If Text1.Text = sh(mInd).Index Then
  Text2.Text = sh(mInd).Height
  Text3.Text = sh(mInd).Width
  End If


[Joo]

Это что за бадяга????

Код: Выделить всё

...
  Text1.Text = sh(mInd).Index
  If Text1.Text = sh(mInd).Index Then
  Text2.Text = sh(mInd).Height
  Text3.Text = sh(mInd).Width
  End If
...