Как сделать сетку и чтоб контролы ровнять по ней?

[Георгий2]

Как сделать сетку точками, как в дизайн-моде и как реализовать привязку контролов к ней при перемещении оных мышкой?
Спасибо.

[iGrok]

Хм.. Ну задаешь размер сетки, потом при перемещении мыши смотришь, к какой точке ближе текущее положение, и ставишь точку туда, а не туда, где реально мышь. Суть ясна?

[Денис]

Георгий2

На.
Процедура двигает элемент массива Card(Index) шаг сетки - это переменная StepMod. Если надо прорисовать сетку пройдись по форме for-next'ами с шагом StepMod

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

Private Sub Card_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
    Card(Index).Move ( _
    Int((X + Card(Index).Left - pX) / StepMod)) * StepMod, ( _
    Int((Y + Card(Index).Top - pY) / StepMod)) * StepMod
    Card(Index).ZOrder 0
End If

End Sub

[Георгий2]

Что называется разжевали... Большое спасибо!

[Antonariy]

http://bbs.vbstreets.ru/viewtopic.php?p=6671536#6671536

[Георгий2]

Я люблю людей на этом форуме потому что они думают обо мне лучше чем я есть на самом деле! Спасибо Antonariy! Но если б вы представляли, насколько мне непонятен этот пример . Хоть видит око, да зуб неймёт! Я его скачал до того как завёл тему, но ничего не поняв, решил спросить в надежде на более простое решение. Я ОЧЕНЬ слабо разбираюсь в VB к сожалению.
Поверите, после получения примера от Дениса я только сейчас смог попробовать его, и то окно времени у меня примерно час-полтора, потом надо мчаться по делам, и когда я снова включу VB неизвестно, может через пол-года-год, бывало и так. Для меня это пламенная страсть, которой я не могу отдаться даже на 1/1000 своего времени! Жизнь-сволочь! Ну, извините за офф. Поплакался и легче стало на душе.
Денису. Спасибо, ваш пример работает, но с маленьким минусиком - при первом движении мышки контрол скачет верхним левым углом совмещаясь с курсором, проскакивая несколько узлов, а потом движется последовательно от узла к узлу. Оно понятно исходя из кода. Но хотелось бы чтоб двигался он последовательно, перескакивая узлы сетки по очереди. Счас пытаюсь сообразить, как это сварганить, но туплю...

[Георгий2]

Простите за тупой вопрос, но что такое pX и pY ? И какую роль они выполняют? Работает и без них да и по логике процесса вроде лишние они